Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife gesucht

Schleife gesucht
15.01.2013 06:16:06
astis
Ich suche eine Schleifenfunktion um folgendes auszuführen.
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt, zu
15.01.2013 08:30:56
Klaus
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige