Excel UDF: COM Error mit _Excel_Open

Hallo ihr alle,

ich trau mich jetzt doch mal an meinen ersten Post ran, weil ich auch nach längerer Suche in den meist wirklich guten Forumsbeiträgen noch keine Lösung für mein Problem gefunden habe.

Ich arbeite mit Folgendem:

• AutoIT 3.3.12 (mit SciTE 3.4.4)
• Windows 7 Ultimate (64 Bit)
• MS Office 2010 SP2 (32 Bit)

Ich habe ein Skript entwickelt, um eine Excel-Tabelle mit Werten aus einer XML-Datei zu füllen. Das funktioniert grundsätzlich auch wunderbar.

Nervig ist nur, dass ich beim Öffnen von Excel über _Excel_Open (aus Excel.au3) immer einen "COM Error with DOM" erhalte, wenn Excel noch nicht läuft. Hier mal die Ausgabe mit eingebundener Debug.au3:

@@ DEBUG COM Error encountered in ParseStudioReport.au3 (66) :
Number = 0x80020006 (-2147352570)
WinDescription = Unbekannter Name.
Description =
Source =
HelpFile =
HelpContext =
LastDllError = 0
Retcode = 0x00000000

Ich verwende folgende Anweisung, um Excel zu öffnen:

Local $oExcelH = _Excel_Open()

Interessanterweise verhindert dieser COM Error aber nicht die weitere Ausführung des Skripts. Der Fehler wird also angezeigt, und dann geht alles problemlos weiter.

Die Zeile 66, die als Ursache des Fehlers angegeben wird, scheint sich übrigens nicht auf mein eigenes Skript zu beziehen, denn da wird an der Stelle nur eine einfache Integer-Variable abgefragt, die mit irgendwelchen COM-Objekten überhaupt nichts zu tun hat (die kommen erst ab Zeile 151 ins Spiel). Offensichtlich stolpert mein System über Zeile 66 in der Excel.au3, die zur Funktion _Excel_Open gehört:

If Not $bForceNew Then $oExcel = ObjGet("", "Excel.Application")

Ich hab es auch schon mit der Anweisung #AutoIt3Wrapper_UseX64=N oben in meinem Skript probiert (obwohl ich mich bei der Installation von AutoIT ohnehin für die 32-Bit-Variante entschieden hatte), was aber bei der kompilierten Version (.exe) keine Abhilfe gebracht hat.

Weiß vielleicht jemand Abhilfe? (Wie gesagt, der COM Error ist zwar nervig, aber kein Showstopper.)
Vielen Dank schon mal,
caseelse

Hallo water,

Zitat von water

Kannst Du umgehen, wenn Du den Parameter $bForceNew auf True setzt.

Prima, vielen Dank. Ich hab's getestet und jetzt läuft's ohne den Fehler

Mir erschließt sich zwar die Logik nicht so ganz, denn der Sinn dieser Funktion ist es doch gerade, das Ganze zu automatisieren (also überprüfen, ob schon eine Instanz läuft, und nur, wenn dies nicht der Fall ist, eine neue Instanz starten), aber wo kann man sich im Leben schon auf Logik verlassen

Dir jedenfalls herzlichen Dank für deine Hilfe!

Ja, das ist mir schon klar. Aber das heißt auch, dass grundsätzlich eine neue Excel-Instanz gestartet werden muss, wenn man den COM-Fehler vermeiden will, und zwar auch dann, wenn schon eine Instanz läuft. Dann könnte man sich die Prüfung ja auch eigentlich sparen, oder?

Ah, ich glaube, so langsam dämmert es mir. Lass es mich noch mal versuchen:

Die UDF erkennt aufgrund des COM-Fehlers nach dem Aufrufen von ObjGet("", "Excel.Application") (Zeile 66), dass noch keine Excel-Instanz läuft, und erstellt erst dann mit ObjCreate("Excel.Application") (Zeile 68 ) eine neue Excel-Instanz. Stimmt das so?

Jetzt fände ich noch interessant, ob man die Ausgabe des COM-Fehlers, die ja eigentlich nur der internen Information des Skripts selbst dient, irgendwie unterdrücken könnte, damit der Benutzer davon nichts mitbekommt? Dann müsste man das Skript nicht zwingen, auch dann eine neue Excel-Instanz zu erstellen, wenn dies gar nicht notwendig ist.

Zitat

Das wird doch in der Konsole ausgegeben, so weit ich weiß. (Oder?)

Hm, bei mir kommt das immer als Extra-Meldung hoch (auch nach dem Kompilieren):
[Blockierte Grafik: http://www.loddeke.net/kanal/COM_Error.png]

Zitat von water

Wer zwingt wen? Das macht doch alles _Excel_Open intern - oder machst Du da noch irgendwas von Hand?
Zeig mal Deine Hände - äh - Dein Skript.

Nee, zwingen meine ich mit $bForceNew = True (engl. "to force" heißt auf Deutsch "zwingen"). Dadurch wird doch _Excel_Open angewiesen, IMMER eine neue Instanz zu erstellen, egal ob schon eine läuft oder nicht. Oder verstehe ich das falsch?

Zitat von water

Dann hast Du irgendwo einen COM error handler installiert. Such mal nach "ObjEvent" in Deinem Skript.

Nicht wirklich. Ich hatte irgendwann mal beim Suchen nach einem Tipp, wie ich diese nervigen Meldungen loswerden könnte, den Hinweis gefunden, man könne Folgendes am Skriptanfang einfügen:

#include <Debug.au3>
_DebugSetup()
_DebugCOMError()

Dadurch wurde mir das Ganze aber auch nur in einer anderen Fenstersorte angezeigt. Und die drei Zeilen hab ich schon lange wieder auskommentiert. Daran kann's nicht liegen.

Ha, Moment. Ich hab jetzt mal meine anderen Includes durchgeschaut und in _XMLDomWrapper gibt es in der von mir verwendeten Funktion _XMLFileOpen Folgendes:

$oXMLMyError = ObjEvent("AutoIt.Error")
If $oXMLMyError = "" Then
$oXMLMyError = ObjEvent("AutoIt.Error", "_XMLCOMEerr") ; ; Initialize SvenP 's error handler
EndIf

Kann sich das auf mein gesamtes Skript auswirken?

Zitat von water

So isses. Ruf einfach _Excel_Open vor dem ersten XML Befehl auf.

Wahnsinn, worauf man da alles achten muss. Na ja, immerhin ist das mein erstes ernsthaftes AutoIT-Skript. Es gibt also noch viel Luft nach oben

Water, vielen Dank für deine geniale Hilfe!!