AS400 Wert auslesen und in txt/ xls schreiben

[AlexK*]

Habe ich probiert. Dort will keiner weiterhelfen...

Hab jetzt mit deiner vorgeschlagenen Alternative weitergemacht. Klappt leider nicht so.
Sobald ich die Screenshots gespeichert hätte wärs kein Problem den Rest mit VBA zu machen.
Am Ende der aufgenommene Code. Wie schätzt du die Lage ein?

Bevor "em80enal" gesendet wird, müsste das Makro an die Kursorpositione 04,019 wechseln.

dazu bin ich auf das gestoßen, funktioniert leider nicht...
Private Declare Sub SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long)
SetCursorPos 4, 19


Die iSeries Funktion Screenshot finde ich nicht. Habe im Menü jede Möglichkeit durchsucht.
Du meinst ja nicht den Print-Key oder?


[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)
REM This line calls the macro subroutine
subSub1_
sub subSub1_()
autECLSession.autECLOIA.WaitForAppAvailable
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "em80enal"
autECLSession.autECLOIA.WaitForInputReady
autECLSession.autECLPS.SendKeys "[enter]"
end Sub


vg
Alex

[Fuerchau]

Da du ja mit den API's schon umgehst, musst du die Doku dazu mal beschaffen.
Dort findest du entsprechende Methoden für die Sitzungssteuerung.

SetCursorPos() ist eine Windows-Funktion und setzt den Mauszeiger auf die Pixel-Koordinaten.

Entschuldige bitte:
Bist du ein Azubi der hier Beschäftigungstherapie betreibt?
Die IT-Abteilung sollte gewisse Wünsche der Fachabteilungen respektieren.
In den meisten Betrieben gibt's da bestimmt entsprechende Formulare und Wege.
Datenbankabfragen, also Queries, sollten für die IT kein Problem darstellen.