Fehler beim Programm-Öffnen abfangen

mumpel

Hallo!

Nun arbeitet mein Script so wie es soll. Leider musste ich feststellen dass das Script beim Starten von Excel einen Fehler auswirft ("... Variable vom Typ Objekt" erwartet (...)"). Schuld daran ist in meinem Fall ein fehlerhaft programmiertes Add-On ("Foxit PDF Creator COM Add-inn"). Den Fehler wirft aber nur das AutoIt-Script aus, Excel selber nicht (Excel startet ohne Murren, und alles in Excel funktioniert wie es soll). Dadurch bricht das AutoIt-Script natürlich ab. Wie kann ich solche Fehler sauber und korrekt abfangen, wobei das Script weiterhin alles abarbeiten soll? Excel im abgesicherten Modus zu starten ist keine Option. Es gibt zwar @error, aber so richtig anzuwenden verstehe ich das nicht.

Danke!

Gruß, René

**alpines**

Zitat von mumpel

Wie kann ich solche Fehler sauber und korrekt abfangen

Mit einem COM-Error-Handler. Solltest du die Excel-UDF verwenden, so sollte einer schon aktiv sein glaube ich (__Excel_COMErrFunc),
dort kannst du die Fehler soft abfangen, ohne eine MsgBox vom AutoIt-Interpreter zu bekommen.

mumpel

Danke! Weshalb finde ich in Google keine Beispiele?

**alpines**

Weil du nicht richtig suchst, hier mal das ganze für die IE.au3 (offizielle Dokumentation!): https://www.autoitscript.com/autoit3/docs/f…ns/ObjEvent.htm
Für andere Objekte funktioniert es eigentlich gleich.

mumpel

Ich nutze Local $oExcel = _Excel_Open(), also keine Objekte wie in dem von Dir verlinken Beispiel. _Excel_COMErrFunc wird von Intellisense nicht aufgelistet.

**alpines**

Zitat von mumpel

also keine Objecte wie in dem von Dir verlinken Beispiel

Mach mal die UDF auf und guck was du zurückbekommst. Da steht Return SetError(0, $bApplCloseOnQuit, $oExcel) und $oExcel ist $oExcel = ObjCreate("Excel.Application").
Die IntelliSense gibt dir nichts zurück, da __Excel_ComErrFunc (zwei __ nicht eins!) eine leere interne Funktion ist, du kannst diese mit einer eigenen überschreiben und so selber die Fehler behandeln.

mumpel

Zitat von alpines

(...) Mach mal die UDF auf (...)

Ich soll bitte was aufmachen?

**alpines**

Zitat von mumpel

Ich soll bitte was aufmachen?

Na die UDF Die Excel.au3 im Include Verzeichnis der AutoIt-Installation! Dann wirst du die Funktion auch sehen.

mumpel

Ich kenne die Bezeichnung "UDF" nur unter "User definied function" (Benutzerdefinierte Funktion) in VBA.

Das heisst ich muss nur die Zeile Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc") und die leere Funktion einfügen und bekomme keine Fehlermeldung mehr?

**alpines**

Zitat von mumpel

Ich kenne die Bezeichnung "UDF" nur unter "User definied function" (Benutzerdefinierte Funktion) in VBA.

UDF hat die selbe Bezeichnung in AutoIt aber damit bezeichnen wir auch die entsprechenden Dateien (oder Includes wenn du so willst).
Probier es doch mal aus, du findest per Google ja paar Beispiele wie man diese Fehlermeldungen registriert und schau einfach mal was passiert.
Die leere Funktion existiert schon in der UDF, d.h. wenn du sie nochmal hinschreibst wird der Compiler wegen 'duplicate function name' rummeckern.
Du kannst in den Error-Funktionen auch die Meldungen auslesen und dementsprechend verarbeiten.

**Musashi**

@alpines : Wie schon so oft, bewundere ich deine Engelsgeduld

@mumpel : Es gibt ein obskures, halb in Vergessenheit geratenes Verfahren, das nennt sich 'Suchmaschinen verwenden'.

Gruß Musashi

mumpel

In Google finde ich aber nichts.

Und alle Versuche scheitern. Es klappt einfach nicht, es kommt immer die Meldung von AutoIt.

Das Folgende ahbe ich eingebaut. Aber egal an welche Stelle ich das setze, es funktioniert nicht.

AutoIt

Local $oError = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
   If $oError Then MsgBox(0,0,"Test")

**alpines**

Zitat von mumpel

If $oError Then MsgBox(0,0,"Test")

In der Dokumentation die ich dir geschickt habe wird nirgends der Rückgabewert von ObjEvent verwendet also warum tust du es?

Hier mal ein rudimentäres Beispiel, kommentier die 1. Zeile aus und du wirst den Unterschied merken:

AutoIt

$oErrorEvent = ObjEvent("AutoIt.Error", "_MyErrFunc")


$oObject = ObjCreate("DieserKlassennamExistiertNicht")
$oObject.Blablubb("Diese Methode existiert auch nicht!")


Func _MyErrFunc($oError)
	MsgBox(16, "AutoIt Error", "_MyErrFunc wurde ausgelöst und die AutoIt Nachricht wurde unterdrückt!" & @CRLF & _
							   "(" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
								@TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
								@TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
								@TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
								@TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
								@TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
								@TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
								@TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
								@TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
								@TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode))
EndFunc

Alles anzeigen

mumpel

Ich verstehe trotzdem nicht wie und wo ich das bei mir einbauen muss.

AutoIt

Local $oExcel = _Excel_Open()
   Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Office Administration Tool.xlsb", 0, True, $sEndCD, $sEndCD)
; Hier soll es trotz Fehler weitergehen

Zeitriss

Hi,

Wie alpines schon sagte du must nur einmal mit ObjEvent eine gültige Funktion registrieren.

AutoIt

ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")

(Edit: Return-Wert natürlich nicht is leere laufen lassen)
Alle Request Errors danach können (Solange das Objekt welches von ObjEvent zurückgegeben wird nicht freigegeben wird), soweit ich weiß wie gewohnt mit @error (If @error Then ...) ausgewertet werden.

Wenn du den Rückgabewert von ObjEvent auf 0/Null setzt, kannst du das Objekt wieder freigeben.

Edit2:

AutoIt: Beispiel

Global $oExcel = _Excel_Open()


Global $__g_oTemplateCOMErrorHandler = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
; Ab hier werden Fehler dein Script nicht mit einem Request-Error beenden


$oExcel.adgojk5dtrj()
If @error Then MsgBox(16,"Fehler", "Fehler aber Script läuft weiter!")


; Ab hier würde sich das Script wieder bei einem Request-Error beenden
$__g_oTemplateCOMErrorHandler = Null


$oExcel.adgojk5dtrj()
If @error Then MsgBox(16,"Fehler", "Diese Msgbox wird nie angezeigt werden.")


_Excel_Close($oExcel)

Alles anzeigen

mfg
Zeitriss

**Musashi**

@mumpel !
Eigentlich haben @alpines und @Zeitriss bereits alles gesagt, hier aber noch mal umgangssprachlich :

Ein COM-Errorhandler ist quasi ein Überwachungsprogramm, das im Hintergrund mitläuft. Dazu muss es natürlich erst mal gestartet werden. Das erfolgt, um bei @alpines Beispiel zu bleiben, mit :
$oErrorEvent = ObjEvent("AutoIt.Error", "_MyErrFunc")

Der Parameter "_MyErrFunc" bezeichnet die Funktion, die im Fall eines COM-Fehlers automatisch aufrufen wird, also : Func _MyErrFunc($oError)
In einer Messagebox oder auch der Scite-Konsole (innerhalb dieser Funktion), können nun Infos zum COM-Fehler angezeigt werden.

Das Wesentliche aber ist : Ohne diesen Handler führen COM-Fehler zu einem fatalen Abbruch des Skriptes.

Gruß Musashi

mumpel

Der Code von @Zeitriss macht genau das Gegenteil von dem was er machen soll. Mit dem Code wird Excel abgeschossen (auch wenn ich "Excel_Close" weglasse) und das Script beendet. Aber die ursprüngliche Fehlermeldung kommt vorher trotzdem noch. Die Zeile die als fehlerhaft angegeben wird stammt aber nicht von meinem Code. Das Problem betrifft nicht Excel, sondern ein Add-On (wie im Eingang bereits erwähnt), welches aber nicht durch mein Script aufgerufen/eingebunden wird.

**alpines**

Isolier das Problem mal in ein neues kleines Script damit wir sehen können wo du das ganze eingebaut hast.

mumpel

Ich kann den Code anordnen wie ich möchte. Die Fehlermeldung bleibt. Mit dem folgenden Code bleibt Excel offen, aber auch die ursprüngliche Fehlermeldung.

AutoIt

Global $oExcel = _Excel_Open()
   Global $__g_oTemplateCOMErrorHandler = ObjEvent("AutoIt.Error", "__Excel_COMErrFunc")
   $oExcel.adgojk5dtrj()
   If @error Then MsgBox(16,"Fehler", "Fehler aber Script läuft weiter!")
   Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Office Administration Tool.xlsb", 0, True, $sEndCD, $sEndCD)
   $__g_oTemplateCOMErrorHandler = Null
   $oExcel.adgojk5dtrj()
   If @error Then MsgBox(16,"Fehler", "Diese Msgbox wird nie angezeigt werden.")
   Local $sReadOn = RegRead("HKEY_Current_User\Software\VB and VBA Program Settings\RMH_Installationen\AdminTool\", "OnStart")
   Local $sReadNew = RegRead("HKEY_Current_User\Software\VB and VBA Program Settings\RMH_Installationen\AdminTool\", "NewStart")

(P.S.: An meinem VBA-Code liegt es nicht. Würde sonst auch einen Fehler ausgeben wenn Add-Ons deaktiviert sind)

**autoiter**

Hallo @mumpel,

statt das Skript zu kompilieren, solltest du es in SciTE starten, damit du dort unten in der Konsole sehen kannst, wo der Fehler genau auftritt.

Du kannst prüfen, ob eine Variable ein Objekt ist. (If IsObj($oVariable) Then ...).