Beiträge von Windi

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

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.