Vba fehler zugriff pfad datei
Hallo, ich habe folgende Funktion in VBA erstellt:
Sub make_dir()
Dim i As Long, iAusBruchCount As Long
i = 1
Do
Pname = Cells.Value & "," & Cells.Value
MkDir Pname
i = i + 1
Loop Until IsEmptyi, 2
End Sub
Diese Funktioniert auch wunderbar. Wenn ich die Tabelle allerdings schließe und wieder öffne bekomme ich die Fehlermeldung "Fehler beim Zugriff auf Pfad/Datei". Dieslässt sich nur beheben indem ich die Datei neu "Speichern unter". Warum? Wieso kommt dieser Fehler wenn ich die Datei öffne und die Funktion ausführen möchte?
5 Antworten zur Frage
Videos zum Thema
YouTube Videos
VBA: Fehler beim Zugriff auf Pfad/Datei
Die Schleife läuft zu weit. Zuerst wird mkdir mit Cells.Value. ausgeführt, anschließend wird Cells.Value mit IsEmpty überprüft.
Vergiss das Obere.
Die Schleife führt immer mkdir mit Cells.Value. aus. Das Problem könnte sein, dass dies schon ausgeführt wurde und beim erneuten Öffnen das Verzeichnis schon existiert.
Nein ebend nicht. Ich habe das ja schon mehrfach getestet, auch wenn ich die Ordner lösche kommt der Fehler. Als ob ich dann plötzlich nicht mehr die Rechte hätte, die Ordner zu erstellen. Aber wie egsagt, sobald ich dann "Speichern unter" anwähle geht es wieder. Durch "Speichern" tut sich nichts.
Was steht in den Zellen drin? Ein kompletter Pfad oder nur ein Verzeichnisname? Was hat das Komma in Pname für eine Funktion?
In den Zellen stehen Städte und Straßennahmen, das Komme soll diese nur trennen. Ich habe auch kein Verzeichnis angegeben, da es reicht, wenn die Ordner dort erstellt werden, wo die Excel-Datei liegt.
Bei mir kommt der Fehler nur, wenn das Verzeichnis schon existiert.
"Laufzeitfehler '75':
Fehler beim Zugriff auf Pfad/Datei"
Welche Fehlernummer steht bei dir? Was ergibt die Hilfe zu der Fehlermeldung? Was ergibt das Debuggen, wenn der Fehler auftritt?