Problem mit _Excel_BookOpen und WinAPI

Hallo zusammen,

in meinem Skript soll Excel geöffnet werden (welches auf einem Netzlaufwerk liegt) und dort etwas eingetragen, gespeichert und geschlossen werden.

Soweit alles super. Um Fehlerquellen auszuschließen habe ich nun eine Funktion eingebaut, die prüft, ob diese Excel Datei bereits geöffnet ist / in Benutzung ist (von einer anderen Person) und demnach mein Skript zu warten hat, bis der Zugriff wieder klappt.

Hier mal ein Schnipsel, wie der Zugriff auf die Datei problemlos funktioniert:

#include <Excel.au3>
Local $oExcelapp = _Excel_Open(True,False,True,True,True)
Local $oExcel = _Excel_BookOpen($oExcelapp, "C:\Users\751076\Desktop\MAF.xlsx", False, True, "123")
Sleep(3000)
_Excel_BookClose($oExcel, True)
_Excel_Close($oExcelapp, Default, True)

Er öffnet Excel, lädt die Arbeitsmappe, wartet 3 Sekunden und schliesst anschliessend wieder alles. Genau soll es sein - hier gibts auch nichts zu meckern.

Nun zum Problem. Baue ich hier vorher die Abfrage ein, ob die Datei derzeit verwendet wird und demnach zu warten hat, funktioniert zwar noch das öffnen von Excel, aber das Laden der Arbeitmappe vollzieht er nichtmehr... allerdings wirft er auch keinen Fehler aus - er tut es einfach nur nicht.

So der modifizierte Code mit Access-Prüfung:

#include <Excel.au3>
#include <WinAPI.au3>
$sFile="C:\Users\751076\Desktop\MAF.xlsx"
Do
	$hFile = _WinAPI_CreateFile($sFile, 2)
	$file_open_test = _WinAPI_GetLastErrorMessage()
	ConsoleWrite($file_open_test & @CRLF)
	Sleep(250)
Until $file_open_test = "The operation completed successfully."
	Local $oExcelapp = _Excel_Open(True,False,True,True,True)
	Local $oExcel = _Excel_BookOpen($oExcelapp, "C:\Users\751076\Desktop\MAF.xlsx", False, True, "123")
	Sleep(3000)
	_Excel_BookClose($oExcel, True)
	_Excel_Close($oExcelapp, Default, True)

Warum um Himmels Willen tut er das? Ich kann nicht nachvollziehen warum er das "_Excel_BookOpen" komplett ignoriert, obwohl es im obigen Beispiel noch wunderbar funktioniert...

Jemand ne Idee?

LG
Mirko

Ach Mensch... manchmal kann es doch so einfach sein

An dem Close hat's gelegen... jetzt geht es. Werd es nachher mal mit dem "FileInUse" testen... das hatte ich in der deutschen Hilfe gar nicht gefunden - scheint nur in der englischen Hilfe vorhanden zu sein, daher ist es mir nciht aufgefallen.

Danke @Zeitriss

Hallo @alpines,

danke - habe ich im Eifer des Gefechts vergessen... normal mache ich das immer

LG
Mirko

Ich hab nochmal etwas bezüglich dem Excel_BookOpen...

Nachdem die Arbeitsmappe geöffnet wurde soll er natürlich in der Datei Daten einfügen. In meinem Skript beginne ich immer damit, dass in der besagten Excel-Datei eine leere Zeile eingefügt wird (und anschliessend dann die Daten).

Ab und zu in meinen Tests bricht dort mein Skript aber ab... hier mal der Ausschnitt:

Local $oExcelapp = _Excel_Open(False,False,True,True,True)
		Local $oExcel = _Excel_BookOpen($oExcelapp, $sFile, False, True, "123")
		Do
			$file_open_test = _WinAPI_FileInUse($sFile)
			Sleep(250)
		Until $file_open_test = 1
		_Excel_RangeInsert($oExcel.Activesheet, "2:2")
		GUICtrlSetData($progress, "25")
		_Excel_RangeWrite ($oExcel,Default, @MDAY&"."&@MON&"."&@YEAR , "A2")
		GUICtrlSetData($progress, "30")
		_Excel_RangeWrite ($oExcel,Default, @UserName , "B2")

Er bricht jedoch manchmal mein Skript ab mit dem folgenden Fehler:

"C:\Program Files\AutoIt3\Include\Excel.au3" (227) : ==> Variable must be of type "Object".:
$oExcel.Windows($oWorkbook.Name).Visible = $bVisible
$oExcel.Windows($oWorkbook.Name)^ ERROR

Ich bin der Meinung, dass er sich durch Aufruf der Zeile 7 verabschieded, weiß aber nicht warum. Manchmal sind unserer Rechner hier sehr langsam oder auch manchmal das Netzlaufwerk. Kann es sein, dass einfach die Exceldatei noch nicht vollständig geöffnet ist und er deswegen den Fehler wirft? Die Exceldatei lasse ich auf invisible starten, da der Mitarbeiter nur meine Maske ausfüllen soll, ohne jedoch die eigentliche Excel-Datei (diese dient dann als Art Datenbank). Ich hab versucht ein paar Sleeps einzubauen nach dem Excel_Open und dem Excel_BookOpen Befehl, aber der Skriptabsturz erfolgt dennoch immer mal sporadisch. Lässt sich der Fehler irgendwie abfgangen damit der User ohne Absturz des Programmes arbeiten kann?

Sorry das ich das eigentlich fertige Thema nochmal eröffne...

LG
Mirko

@BugFix

Leider kann ich"nur" AutiIT. Mit VBA kenn ich mich überhaupt nicht aus... auch wenn es evtl sehr ähnlich ist.... man klammert sich halt immer an dingen die man kennt bzw kann...

@water
Hm ich glaube nicht - ich werde das aus Deinem Post mal testen (allerdings erst morgen - bin heute nur noch im Meeting)...

Ich melde mich dann nochmal zurück.

LG
Mirko

@water

Also bisher läuft es... konnte es jetzt noch nicht sooo oft testen aber bisher ist es stabil

Danke für den Hinweis auf den Fix.