Terminal Emulator get Value - Brauche mal Hilfe
02.11.2017 16:09:36
TiloT
ich habe eine Frage bzgl. der Übertragung von Daten aus einer bestehenden
Terminal Sitzung.
Ich nutze das Programm Quick3270 und kann relativ einfach mit u.g. Code
einen Datensatz in die Sitzung eintragen, enter fertig.
Wie kann ich jetzt aber einen Wert der im Terminal in einem Feld angezeigt wird wieder zurückspielen nach zB A2 ?
Geht das per Application.MoveCursor 1, 2 und wenn ja wie?
Habt Ihr vielleicht eine Idee?
Sub testHost()
Dim ACell As Long
ACell = Range("A1").Value
AppActivate "Sitzung A - Sitzung.ecf", True
SendKeys ACell, True
SendKeys "{ENTER}", True
End Sub
Dank und GrußTilo