Schleife gesucht
15.01.2013 06:16:06
astis
Aus Tabelle1 Werte im Bereich A1:A? auszulesen, diesen Wert dann an eine andere PC Anwendung (IBM Konsole) übermitteln, dort das Ergebnis auslesen und dann in Tabelle2 eintragen und dann mit der nächsten Zeile in Tabelle1 fortfahren bis alle Wert duch sind. Hier mal der Code, soweit ich gekommen bin...
Sub Zuordnung()
'IBM Konsole ansteuerbar machen
Dim autECLPSObj As Object, autECLConnList As Object, autECLSession As Object
Dim strSource As String, z As Long, wksZ As Worksheet
Set wksZ = ActiveSheet
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
Set autECLSession = CreateObject("PCOMM.autECLSession")
autECLSession.SetConnectionByHandle (autECLConnList(1).Handle)
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
autECLSession.autECLOIA.WaitForAppAvailable
'Anwendung in der Konsole aufrufen
autECLSession.autECLPS.SetText "in101", 32, 48
autECLSession.autECLPS.SendKeys "[Enter]"
autECLSession.autECLOIA.WaitForInputReady
'Daten aus tabelle1 auslesen
'autECLSession.autECLPS.SetText "Ausgelesener Wert aus Tabelle1", 32,65
'Werte von Konsole in Excel einfügen
'Zellbereich auswählen - Trim(autECLPSObj.GetText(03,02,22)
'beim nächsten Wert weitermachen bis alles Werte in Tabelle1 durchlaufen sind
End Sub