VBA (Word) Laufzeitfehler 5174

[CubiC]

Aloha !

Ich habe ein Word Makro bei MS-Support gefunden das automatisch ein Dokument öffnen soll , den Vorlagenpfad auslesen und ggf. ersetzen soll.

Ich habe jetzt folgendes Problem :
Bei durchlauf Nr. x meldet sich VBA mit dem Laufzeitfehler 5174 , der besagt dass sich die angegebene Datei nicht am angegebenen Ort befindet. Das ist aber leider quatsch da diese Datei sich tatsächlich dort befindet wohin der Pfad verweist (zumindest laut der Variablenüberwachung von VBA)
Ich selbst habe nur kleine Veränderungen vorgenommen um es bei uns laufen zu lassen.


1)dateiname = Dir(verzeichnis & " *.doc ", vbDirectory)
2)Do while dateiname <> ""
3)'Dokument öffnen
4)Documents.Open FileName:= verzeichnis & dateiname

[.... code ....]

5)dateiname = Dir
[...]
6)Loop

Mit dieser Routine werden die Dateien aufgerufen
bei Zeile 4 meldet er den laufzeitfehler.
dateiname und verzeichnis sind als String deklariert.
Das System ist ein Nt4 Rechner mit aktuellem SP(6a) und
Word97 SR-2.

Weiß da vielleicht jemand Rat ?


Regards,

CubiC

 

[CubiC]

habs mit On Error gelöst ...

das bekämpft zwar nur die Symptome und nicht die ursache , funktioniert aber trotzdem.

weiß vielleicht trotzdem jemand worans gelegen haben könnte ?


Regards,

CubiC

 

[CubiC]

ok , hat sich endgültig erledigt ...

aloha !

Also , die Sache mit dem Laufzeitfehler lag in der Ursache daran , dass der variablen "verzeichnis" nie ein Wert zugewiesen wurde , sie also immer = "" war. Wenn allerdings die Funktion "Dir" als Pfadnamen ein "" geliefert bekommt generiert sie diesen Fehler , also hab ich den direkten Pfad angegeben und alles war gut


Regards,

CubiC