Hallo liebe Spezialisten,
ich bin neu hier im Forum und habe ein kleines Menue geschrieben,
(vielmehr zusammen kopiert).
Wenn ich mit F5 laufen lasse geht es ohne Probleme.
Wenn es kompiliert ist kommt die Fehlermeldung wie Bild1.jpg.
Hier mein Quelltext:
AutoIt
MsgBox( "","", "Winitas Rechnung oder Auftrag öffnen")
GUICreate ("DHL" ,200 ,200 ,1130 ,60)
$Button = GUICtrlCreateButton("Versandliste erstellen", 35, 20 ,130,30)
$Button2 = GUICtrlCreateButton("Ende", 65, 150 ,70, 30)
GUISetState ()
While 1
$msg = GUIGetMsg() ; Kreuz Ende
; Prüft, ob das Winitas Fenster geöffnet ist.
If not WinExists("[CLASS:OMain]") Then
MsgBox( "","", "Winitas öffnen")
Exit
EndIf
Select
Case $msg = -3
Exit
Case $msg = $Button
; hier Mause Befehle einfügen
; Button Ausgabe
MouseClick("left", 700,87,2)
Sleep (500)
; Buttun Ladeliste nach Auftrag
MouseClick("left", 1031,542,1)
Sleep (10)
; Button Vorschau
MouseClick("left", 1504,971,1)
Sleep (10)
; Button nach Excel
MouseClick("left", 338,91,1)
Sleep (10)
; Button OK
MouseClick("left", 1162,764,1)
Sleep (500)
; Button Schließen
MouseClick("left", 1260,800,1)
Sleep (10)
; Button Schließen
MouseClick("left", 32,82,1)
Sleep (100)
; Button Abbrechen
MouseClick("left", 676,972,1)
Sleep (10)
; AutoRun Macro Befehl
Dim $objXL
$objXL = ObjCreate("Excel.Application")
With $objXL.Application
.Visible = True
;Open the Workbook
.Workbooks.Open ("C:\DHL-Versand\Versand.xlsm") ;Dateiname und Pfad einfügen
$x = .Run("Versand") ; MacroName einfügen
Exit
EndWith
Case $msg = $Button2 ; Ende Button
Exit
EndSelect
WEnd
Alles anzeigen
Vielleicht ist jemand so nett und schaut sich das mal an.
Rückmeldung bitte so das ich es auch als kompletter Anfänger verstehe.
Ich bedanke mich im Voraus schon mal bei Euch
und wünsche Euch einen guten Rutsch ins neue Jahr.
Gruß Windi
EDIT BugFix: Code in Tags gesetzt und formatiert.