Office: Laufzeitfehler 1004: Open Workbook fehlgeschlagen

Hi,

Excel 2003, Windows 2000.

Fehler:

Laufzeitfehler '1004'
Die Methode 'Open' für das Objekt 'Workbooks' ist fehlgeschlagen.

Und der zugehörige Codeschnipsel:

Private Sub Workbook_Open()

Dim strPfad As String
Const strName As String = "2006.xls"
strPfad = ActiveWorkbook.Path
Application.ScreenUpdating = False
Workbooks.Open Filename:=strPfad & "\" & strName


Die Datei 2006.xls liegt im gleichen Verzeichnis wie die geöffnete Datei.
Der Fehler tritt auch nicht immer auf.
Der kommt "einfach so" alle paar Tage, Wochen, Monate.
Kann mir da echt keinen Reim drauf machen.
Jemand ne Idee? Danke *Smilie

:)

 

Moin, Du,

ich kann in der Syntax des hier geposteten Codes keinen Fehler finden (bis auf ein fehlendes End Sub)...

 

Eben, das ist ja das seltsame.
Ich habe nun ein Backup von vor einer Woche eingespielt welches funktioniert und am Inhalt Datei wurde definitiv nichts außer ein paar zusätzlichen Tabellenwerten geändert.
Könnte mir nur noch vorstellen, dass ein Virus sein Unwesen treibt.
Aber welcher Virus klemmt sich denn an diese Open-Funktion?

 

Moin, Du,

ein Virus würde sich meines Wissens nicht an ein bestimmtes Ereignis "anhängen" - 1004 kann man z.B. durch Umbenennen der Mappe hervorrufen (dies wird dann aber explizit in der Fehlermeldung angezeigt).

 

K, danke.
Dann weiß ich leider nicht weiter.