Ich weiß das funktioniert ja auch.
AI öffnet das Makro und Excel beendet das Makro und Excel.
Dann kommt die Fehlermeldung komischerweise.
Ich weiß das funktioniert ja auch.
AI öffnet das Makro und Excel beendet das Makro und Excel.
Dann kommt die Fehlermeldung komischerweise.
gibt es keinen einzelzeilen Debugger
Jetzt kommt eine andere Fehlermeldung:
Variable must be of type *Object
Mit F5 funktioniert es immer noch fehlerfrei.
Hallo Musashi,
Die Fehlermeldung bleibt weiterhin.
Ich vermute mal das es ein Excel Problem ist.
Ich öffne das Excelmakro in Autoit.
Dann wird in Excel alles automatisch abgearbeitet.
Zum Schluß wird Excel per Makro beendet.
Und dann kommt die Fehlermeldung.
Deshalb gehe ich davon aus das Autoit nicht richtig beendet wird
und noch im Speicher ist.
gibt es eine Möglichkeit Autoit nach dem aufruf von Excel zu beenden.
Ich habe ja Exit nach dem Aufruf von Excel gesetzt.
Irgendwie habe ich da einen Denkfehler drin.
Gruß Windi
Danke für die schnelle Meldung,
jetzt kannst du mal was von dem alten Mann lernen.
Excel 2007 hat als normale Datei *.xls
und *.xlsm sind Dateien die über VBA mit Makros und
Userforms automatisiert werden.
In meinem Fall werden aus einer Access Kunden und Auftragsverwaltung (Kaufsoftware)
Aufträge als Excel Datei gespeichert und über Makro mit Barcode versehen.
Da es verschiedene Punkte gibt, die Ähnliche Exceldateien speichern
möchte ich das mit Autoit lösen.
Dein Script läuft perfekt Excel wird geöffnet und auch wieder geschlossen.
Gruß Windi
Local $oExcel = _Excel_Open()
Local $oWorkBook = _Excel_BookOpen($oExcel, "C:\DHL-Versand\Versand.xlsm")
Exit
Habe es so eingefügt.
Wie kann ich nach dem öffnen von Excel die GUI beenden.
Excel wird durch das Makro beendet.
Ich denke hier liegt der Fehler.
Gruß Windi
Danke, Danke!
läuft fehlerfrei auch compiliert.
wo muss ich jetzt meine Makro Datei einsetzen (Versand.xlsm)
brauche ich den Run Befehl nicht mehr.
Gruß Windi
Habs versucht komme nicht mit Excel UDF.
Wie oben beschrieben absoluter Anfänger.
Ich bräuchte schon ein Beispiel:
Auch ControlClick habe ich probiert weiß nicht was ich wo hinschreiben soll.
Habs mit Wininfo probiert.
Vielen Dank für eure Bemühungen.
Es hängt wahrscheinlich damit zusammen, dass ich einer der ältesten hier im Forum bin (66 Jahre)
und kein Englisch kann.
Vielen Dank für die Antworten und alles Gute im neuen Jahr.
Wie oben schon beschrieben:
Wenn ich mit F5 laufen lasse geht es ohne Probleme.
Wenn es kompiliert ist kommt die Fehlermeldung wie Bild1.jpg.
Es läuft ja alles Excel Makro wird aufgerufen, bearbeitet und wieder geschlossen.
Die Fehlermeldung kommt wenn Excel geschlossen ist, also kann es nicht an Excel liegen.
Kann man die Fehlermeldung irgendwie abfangen und mit exit beenden.
Wenn bei meinen Kollegen eine Fehlermeldung erscheint, höre ich alle 3 Tage
da steht was auf dem Bildschirm.
"Was muss ich jetzt machen."
Diese Winitas Quellsoftware ist ein MSAccess Proramm auf das ich leider nur
mit der Maus zugreifen kann und ein Exceldatei erzeugen kann.
Hallo Oscar,
vielen Dank für deine schnelle Antwort.
Mit ControClick habe ich es auch schon versucht.
Kriege ich mangelnder Kentnisse nicht hin.
Excel 97 ist installiert und das VBA Modul läuft einwandfrei.
Nur wenn Excel beendet wird von VBA, kommt die Fehlermeldung.
Mit F5 kommt die Fehlermeldung nicht.
MfG. Windi
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:
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.