VBA findet Datei nicht (die es aber gibt)

Hallo Excelperten,

ich habe ein Makro (Excel2003) in dem eine weitere Excel-Datei geöffnet werden soll. Das Makro hat auch immer funktioniert, bis letztens unser Firmen-IT-Fuzzy mein Profil geändert hat. Seitdem gibts einen Laufzeitfehler „Datei nicht gefunden“, obwohl Dateiname und Pfad korrekt geschrieben sind.

Welche Ursache könnte das Problem haben?

Liebe Grüße

Roland

ich habe ein Makro (Excel2003) in dem eine weitere Excel-Datei
geöffnet werden soll. Das Makro hat auch immer funktioniert,
bis letztens unser Firmen-IT-Fuzzy mein Profil geändert hat.
Seitdem gibts einen Laufzeitfehler „Datei nicht gefunden“,
obwohl Dateiname und Pfad korrekt geschrieben sind.

Hi Roland,

was sagt denn der Fuzzy dazu?

Was wird angezeigt bei diesem Code:

Sub nn()
Dim Pfad, Datei
Pfad = „C:\Test“
Datei = „Test.xls“
MsgBox Dir(Pfad & „“ & Datei)
End Sub

Kannst du die Datei über den Explorer finden und öffnet sie sich samt Excel?

Gruß
Reinhard

Hallo Reinhard,

Sub nn()

Const conPfadÖffnen = „C:\Test1“
Const conPfadSpeichern = „C:\Test2“
Const conDatei1 = „Testdatei1.xls“

ChDir conPfadÖffnen
Workbooks.Open (conDatei1) ----> DEBUGGEN

Die Datei liegt definitiv unter „C:\Test1\Testdatei1.xls“

Laufzeitfehler 1004 „Testdatei1.xls“ wurde nicht gefunden …"

Manchmal klappt es sogar!?

Es muss also an irgendwelchen anderen Faktoren liegen.

Gruß
Roland

Hallo Roland,

Die Datei liegt definitiv unter „C:\Test1\Testdatei1.xls“

probiers mal so:

Sub nn()
Const conPfadÖffnen = „C:\Test1“
Const conDatei1 = „Testdatei1.xls“
ChDrive "C"
ChDir conPfadÖffnen
Workbooks.Open (conDatei1)
End Sub

Laufzeitfehler 1004 „Testdatei1.xls“ wurde nicht gefunden …"
Manchmal klappt es sogar!?
Es muss also an irgendwelchen anderen Faktoren liegen.

Ja, evtl. daran in welchem Laufwerk du dich grad befindest,
ChDir „C:\Test1“ ist manchmal nicht ausreichend, benutze vor ChDir immer ChDrive, und wundere dich nicht daß es nicht ChDrive „C:“ oder ChDrive „C:“ heißt sondern nur ChDrive „C“, ist halt so, Excel hält nix von durchgehender Logik.

Gruß
Reinhard

1 Like

probiers mal so:

Sub nn()
Const conPfadÖffnen = „C:\Test1“
Const conDatei1 = „Testdatei1.xls“
ChDrive "C"
ChDir conPfadÖffnen
Workbooks.Open (conDatei1)
End Sub

Ja, evtl. daran in welchem Laufwerk du dich grad befindest,
ChDir „C:\Test1“ ist manchmal nicht ausreichend, benutze vor
ChDir immer ChDrive, und wundere dich nicht daß es nicht
ChDrive „C:“ oder ChDrive „C:“ heißt sondern nur ChDrive „C“,
ist halt so, Excel hält nix von durchgehender Logik.

Gruß
Roland