Office: VBA Excel Workbooks.Open (manchmal) fehlerhaft

Hallo,

ich verzweifle bald.

Ich führe in einem Makro die Befehle:

Dim wb As Workbook
Set wb = Workbooks.Open("D:\kst.xls")

aus. Die Datei "D:\kst.xls" existiert und ist auch nicht geöffnet. Beim Ausführen über "Extras -> Makros..." kommt jedesmal die Fehlermeldung "Laufzeitfehler '1004' Die Methode "Open" für das Objekt Workbooks ist fehlgeschlagen"

"Debugge" ich dann und führe den Code nochmal aus funktioniert alles wie gewünscht. Was mache ich falsch ?

Danke !!
Lexis

:)

 

Moin Lexis,

wenn sich der Code in einer anderen Mappe als kst.xls befindet, sollte er funktionieren - macht mein Excel2000 ohne gutes Zureden zumindest. *wink.gif*

 

Hallo,

ja, der Code wird in einer anderen Datei ausgeführt. Ich verstehe das wirklich nicht, weil mir das vollkommen willkürlich erscheint. Wie gesagt im "Code-Modus" funktioniert das wunderbar, beim Ausführen direkt aus Excel nicht. Benutze Excel 2002. Liegt aber scheinbar irgendwie am Restcode. Wenn ich ein Makro mit nur diesen Befehlen ausführe, funktionert es auch bei mir.

Muss mir dann was anderes überlegen... *schnief*

Danke !

 

Soo, konnte jetzt den Code soweit reduzieren, dass nur noch der Fehler übrig bleibt:

Sub Fehler()

Dim wb As Workbook
Dim wbPlan As Workbook
Dim wbCurrent As Workbook

Set wbCurrent = ThisWorkbook
Set wb = Workbooks("Tabelle von ReportWriter (1)")
wb.Activate

Set wbPlan = Workbooks.Open("d:\Kst.xls")

 

Hallo Lexis,

erklären kann ich mir den Fehler auch nicht. Was passiert denn, wenn du das Öffnen der Arbeitsmappe und die Zuweisung in die Objektvariable in zwei getrennte Schritte aufteilst?
Code:

Gruß Ingolf

 

Hallo Lexis,

habe auch grad versucht, den Fehler nachzustellen, aber mein Excel meckert an keiner Stelle. Einen logischen Fehler kann ich auch nicht erkennen.

Sind eventuell noch Ereignisprozeduren am Start? Zum Beispiel
- Workbook_Open
- Workbook_Activate
- Workbook_SheetActivate

Grüße
EarlFred

 

Hallo,

vielen Dank für eure Mithilfe !!

Leider bin ich noch nicht weiter, außer dass ich jetzt (ziemlich) sicher bin, dass es irgendwie am Workbook("Tabelle von ReportWriter (1)") liegen muss. Mit anderen Tabellen funktionert alles. Benutze ich aber obige Tabelle kommt es auch zu anderen Fehlern.

Schreibe ich z.B. statt der Zeile:

Set wbPlan = Workbooks.Open("d:\Kst.xls")

die Zeile

wbCurrent.Activate

so führt auch das zu einem Fehler 1004, dass die Methode "Activate" fehlschlägt.

hmmm...

 

Hallo,

ist die Datei Tabelle von ReportWriter (1) gespeichert?

Hast Du mal
Code:

probiert?

Grüße
EarlFred

 

Hallo,

leider ist die Tabelle nicht gespeichert. Sie wird von SAP generiert und bleibt dann im Hintergrund offen.

Naja, ich mache morgen weiter. Vll kommt die Erlösung im Schlaf...

Schönen Abend !

 

Guten Morgen,

hab mir jetzt so geholfen, dass ich den Inhalt (als Range) aus dem Sheet "Tabelle von ReportWriter (1)" in ein temporäres Arbeitsblatt des aktiven Workbooks kopiere und damit weiterarbeite.

Wo auch immer das Problem gelegen hat...

Danke euch Helfern !