Vielen Dank Silvermoon und KriZza,
ich habe die Funktion zum laufen bekommen:
[autoit]
#include <Array.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
; Create application object and open an example workbook
Local $oAppl = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oAppl, @ScriptDir & "\test2.xlsx")
If @error Then
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oAppl)
Exit
EndIf
; *****************************************************************************
; Read data from a single cell on the active sheet of the specified workbook
; *****************************************************************************
Local $sResult = _Excel_RangeRead($oWorkbook, Default, "A1")
Local $sResult2 = _Excel_RangeRead($oWorkbook, Default, "B1")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
$sResult = StringTrimLeft($sResult,3)
$sResult = StringTrimRight($sResult,4)
$sResult2 = StringTrimLeft($sResult2,3)
$sResult2 = StringTrimRight($sResult2,4)
for $i = string($sResult) to string($sResult2)
;~ $exec = ShellExecute(@ScriptDir & "\IV_"&$i&".bmp")
shellexecute("IV_000"&$i&".bmt", "", @SW_HIDE)
Next
Sleep(20000)
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000407' Then
MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000407->' & $aResult[1] & ')')
EndIf
EndFunc
[/autoit][autoit][/autoit][autoit][/autoit][autoit]Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---
;*************************************************************************************************
;Ab hier startet meine Automatisierung. habe einfach die Mouseklicks automatisiert. Bevor ich den Ablauf gestartet habe, habe die Nummer des späteren PDF mit STRG+C in
;den Zwischenspeicher gelegt und dann die ensprechenden Bilder händisch heraus gesucht.
;****************************************************************************************************
_WinWaitActivate("testo IRSoft Software","")
MouseClick("left",164,42,1)
_WinWaitActivate("testo IRSoft Software","")
MouseClick("left",59,100,1)
_WinWaitActivate("Berichtsassistent","")
MouseClick("left",108,53,1)
MouseClick("left",497,211,1)
MouseMove(460,57)
MouseDown("left")
MouseMove(461,50)
MouseUp("left")
MouseClick("left",289,102,1)
;Hier wird die Dokumentnummer mit STRG+V eingefügt
Send("{CTRLDOWN}a{CTRLUP}{CTRLDOWN}v{CTRLUP}")
MouseClick("left",578,54,1)
Sleep(10000)
_WinWaitActivate("Berichtsassistent", "PDF")
MouseClick("left",97,83,1)
_WinWaitActivate("Speichern des Berichts als PDF Datei ...","")
MouseClick("left",452,451,1)
_WinWaitActivate("Berichtsassistent","")
MouseClick("left",608,667,1)
_WinWaitActivate("Frage 1004","")
MouseClick("left",300,156,1)
_WinWaitActivate("testo IRSoft Software","")
MouseClick("left",1276,8,1)
Könnt ihr mir noch helfen das ganze zu automatisieren?
Die Excelliste sieht wie im Beitrag oben aus.
Zelle C1 Soll der Dokumentname geben bisher wurde dieser mit STRG+C kopiert und in meiner Mouseklickautomatisierung mit STRG+ V an der richtigen stelle eingefügt. Anschließend sollen die entsprechenden Bilder von bis geöffnet werden. Dann die Mouseklickautomatisierung ausgeführt werden.
Anschließen soll es bei C2 weiter gehen un dass ganze soll durchlaufen bis in Spalte C keine daten mehr sind.
Wäre cool ihr mir noch mal helfen könntet.