Hallo alle zusammen.
Ich hoffe dass mir hier jemand schnell weiter helfen kann
Ich hatte von jemanden ein Programm bekommen womit ich Daten
Bei mir auslesen kann und diese in eine Excel liste speichern konnte.
Damals benötigte ich nur eine information von der jeweiligen Seite.
Jetzt muss ich 2 auslesen die dann geschrieben werden sollen in Spalte B und C
Jede spalte für eine information
Spoiler anzeigen
HotKeySet("{ESC}", "_Exit")
BlockInput (1)
#include <Excel.au3>
$sPath = @ScriptDir & "\Test1.xls"
$oExcel = _ExcelBookOpen($sPath, 0)
$iRow = 1
While True
$value = _ExcelReadCell($oExcel, "A" & $iRow)
If $value = "" Then ExitLoop
$return = _Data($value)
_ExcelWriteCell($oExcel, $return, "B" & $iRow)
$iRow += 1
WEnd
_ExcelBookClose($oExcel)
Func _Data($value)
ClipPut($value)
WinActivate ( "QWS3270")
WinWaitActive("QWS3270")
Sleep (300)
MouseClick("LEFT", 394, 397, 1, 0)
Send ("^v")
Send ("{ENTER}")
Send ("9")
Send ("{ENTER}")
Sleep (300)
MouseClick("LEFT", 360 , 394, 1, 0)
Send("{LSHIFT down}")
Send("{right 4}")
Send("{LSHIFT up}")
Send ("^c")
Return ClipGet()
EndFunc
BlockInput (0)
MsgBox (0, "Fertig", "Alle Daten in der XLS gespeichert", 2)
ProcessClose("EXCEL.exe")
Func _Exit()
Exit
EndFunc
das ist das uhrsprüngliche programm funktioniert dadellos nur das ich damit nur eine info abrufen kann
ich müste es aber haben das er die 2 te info auch ausliest und in spalte C schreibt
das währe der weg zur 2ten info.
Spoiler anzeigen
MouseClick("LEFT", 450 , 366, 1, 0)
Send("{LSHIFT down}")
Send("{right 4}")
Send("{LSHIFT up}")
Send ("^c")
danke schon mal im vorraus
Adam
