Pfad wird nicht angelegt

Forumthread: Pfad wird nicht angelegt

24.08.2017 22:41:51

Stefan

Hallo liebe Gemeinde,
ich mal wieder ein weiteres Problem.
Wenn ich die Ordner manuell anlegen schreibt er mir die CSV sauber rein,
sobald ich den Ordner lösche und von EXCEL anlegen lassen will sagt er mir PFAD NICHT VORHANDEN. Was mach ich falsch ?

Sub SpeichernBestand()
Dim datei As String, Text As String
Dim Zeile As Long
Dim pfad As String
Dim name As String
Dim letztezeile As Integer
On Error GoTo Fehler
Dim Fileformat As Object
Dim oname As String
Dim vdatei As String
Dim a As String
Dim jahr As Integer
Dim monat As String
jahr = Format(Now, "YYYY")
monat = Format(Now(), "Mmmm")
oname = "IST_Bestand" & "\"
AktuellesDatum = Date
pfad = ThisWorkbook.Path & "\"
name = "IST-Bestand am "
vdatei = pfad & oname & "\" & jahr & "\" & monat & "\"
datei = vdatei & name & Date & " um " & Format(Now, "HH.MM") & " Uhr" & ".csv"
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set fs = CreateObject("Scripting.FileSystemObject")
If Dir(pfad & oname, vbDirectory) = "" Then MkDir pfad & oname
If fs.folderexists(vdatei) Then
GoTo schreiben
Else
a = MsgBox("Ordner " & vdatei & " nicht gefunden!" & vbLf & "Ordner anlegen?",  _
vbQuestion + vbYesNo, "Frage")
If a = vbYes Then MkDir (vdatei)
GoTo schreiben
schreiben:
Application.DisplayAlerts = False
Open (datei) For Output As #1 'Zieldatei öffnen
For Zeile = 1 To letztezeile
'reinschreiben
Print #1, Cells(Zeile, 1) & ";" & Cells(Zeile, 2) & ";" & Cells(Zeile, 3) & ";" & Cells(Zeile, _
_
4) & ";" & Cells(Zeile, 5) & ";" & Cells(Zeile, 6) & ";" & Cells(Zeile, 7) & ";" & Cells(Zeile, _
8) & ";" & Cells(Zeile, 9) & ";" & Cells(Zeile, 10) & ";" & Cells(Zeile, 11) & ";" & Cells( _
Zeile, 12) & ";" & Cells(Zeile, 18) & ";"
Next Zeile
Close #1    'Zieldatei schließen
Application.DisplayAlerts = True
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler"
'End If
End If
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Pfad wird nicht angelegt

24.08.2017 22:42:59

Stefan
AW: Pfad wird nicht angelegt

25.08.2017 08:32:28

UweD
AW: Pfad wird nicht angelegt

25.08.2017 08:48:36

Tino

AW: Pfad wird nicht angelegt

25.08.2017 08:32:28

UweD

Hallo
Du musst die Ordner stufenweise anlegen.
außerdem
aus:
vdatei = pfad & oname & "\" & jahr & "\" & monat & "\"
mache:
vdatei = pfad & oname & jahr & "\" & monat & "\"
oname hat schon ein \ am Ende
Hier mal der komplette code

Sub SpeichernBestand()

Dim datei As String, Text As String
Dim Zeile As Long
Dim pfad As String
Dim Name As String
Dim letztezeile As Integer
On Error GoTo Fehler
Dim Fileformat As Object
Dim AktuellesDatum As Date
Dim oname As String
Dim vdatei As String
Dim a As String
Dim jahr As Integer
Dim monat As String
Dim FS

jahr = Format(Now, "YYYY")
monat = Format(Now(), "Mmmm")
oname = "IST_Bestand" & "\"
AktuellesDatum = Date
pfad = ThisWorkbook.Path & "\"
Name = "IST-Bestand am "
vdatei = pfad & oname & jahr & "\" & monat
datei = vdatei & Name & Date & " um " & Format(Now, "HH.MM") & " Uhr" & ".csv"
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set FS = CreateObject("Scripting.FileSystemObject")

    If Dir(pfad & oname, vbDirectory) = "" Then MkDir pfad & oname
    
    If Dir(pfad & oname & jahr, vbDirectory) = "" Then MkDir pfad & oname & jahr
    

    If FS.folderexists(vdatei) Then
            
            GoTo schreiben

            Else
            
            a = MsgBox("Ordner " & vdatei & " nicht gefunden!" & vbLf & "Ordner anlegen?", _
vbQuestion + vbYesNo, "Frage")
            
            If a = vbYes Then MkDir (vdatei)
            GoTo schreiben
        
schreiben:

Application.DisplayAlerts = False

Open (datei) For Output As #1 'Zieldatei öffnen 

 

For Zeile = 1 To letztezeile
'reinschreiben 
  Print #1, Cells(Zeile, 1) & ";" & Cells(Zeile, 2) & ";" & Cells(Zeile, 3) & ";" & Cells(Zeile, _
 _
 4) & ";" & Cells(Zeile, 5) & ";" & Cells(Zeile, 6) & ";" & Cells(Zeile, 7) & ";" & Cells(Zeile, _
 8) & ";" & Cells(Zeile, 9) & ";" & Cells(Zeile, 10) & ";" & Cells(Zeile, 11) & ";" & Cells( _
Zeile, 12) & ";" & Cells(Zeile, 18) & ";"



Next Zeile

Close #1    'Zieldatei schließen 

Application.DisplayAlerts = True

Exit Sub

Fehler:
Close #1
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"

'End If 
End If

End Sub

LG UweD
LG UweD

AW: Pfad wird nicht angelegt

25.08.2017 08:48:36

Tino

Hallo,
versuch es so.
Löschen den alten Code und lege diesen in ein normales Modul.
kommt als Code in Modul1

Option Explicit 
 
#If Win64 Then 
Public Declare PtrSafe Function apiCreateFullPath Lib "imagehlp.dll" Alias _
  "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long 
#Else 
Public Declare Function apiCreateFullPath Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" _
  (ByVal lpPath As String) As Long 
#End If 
 
Sub SpeichernBestand() 
 
Dim datei$, Text$, sString$, pfad$, name$, jahr$, monat$ 
Dim lngRet&, Zeile&, letztezeile& 
Dim FS As Object 
Dim a As VbMsgBoxResult 
On Error GoTo Fehler 
 
jahr = Format(Now, "YYYY") 
monat = Format(Now(), "Mmmm") 
 
 
pfad = ThisWorkbook.Path 
pfad = pfad & IIf(Right$(pfad, 1) <> "\", "\", "") 
pfad = pfad & "IST_Bestand" & "\" & jahr & "\" & monat & "\" 
 
name = "IST-Bestand am " 
 
datei = pfad & name & Date & " um " & Format(Now, "HH.MM") & " Uhr" & ".csv" 
 
letztezeile = Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Row 
Set FS = CreateObject("Scripting.FileSystemObject") 
  
If Not FS.folderexists(pfad) Then 
    a = MsgBox("Ordner" & vbCr & "'" & pfad & "'" & vbCr & "nicht gefunden!" _
                & vbCr & vbCr & "Ordner anlegen?", vbQuestion + vbYesNo, "Frage") 
    If a = vbYes Then 
        lngRet = apiCreateFullPath(pfad) 
    End If 
    If lngRet <> 1 Then 
        MsgBox "Ordner konnte nicht angelegt werdnen!", vbCritical 
        Exit Sub 
    End If 
End If 
 
Open (datei) For Output As #1 'Zieldatei öffnen 
 
With Application 
    For Zeile = 1 To letztezeile 
        'reinschreiben 
        sString = Join(.Transpose(.Transpose(Tabelle1.Cells(Zeile, 1).Resize(, 18))), ";") 
        Print #1, sString 
    Next Zeile 
End With 
 
Close #1    'Zieldatei schließen 
 
 
Exit Sub 
 
Fehler: 
Close #1 
Debug.Print datei 
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "Fehler" 
End Sub

Gruß Tino

Infobox / Tutorial

CSV-Datei in Excel speichern und Ordner erstellen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine CSV-Datei in Excel zu speichern und dabei automatisch die erforderlichen Ordner zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die Ordnerstruktur korrekt angelegt wird, bevor die CSV-Datei gespeichert wird.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke auf Einfügen > Modul.
Kopiere den folgenden Code in das Modul:

Sub SpeichernBestand()
    Dim datei As String, pfad As String, name As String
    Dim jahr As Integer, monat As String, letztezeile As Long
    Dim FS As Object, a As VbMsgBoxResult

    jahr = Format(Now, "YYYY")
    monat = Format(Now(), "Mmmm")
    pfad = ThisWorkbook.Path & "\IST_Bestand\" & jahr & "\" & monat & "\"
    name = "IST-Bestand am " & Date & " um " & Format(Now, "HH.MM") & " Uhr.csv"

    Set FS = CreateObject("Scripting.FileSystemObject")

    If Not FS.FolderExists(pfad) Then
        a = MsgBox("Ordner " & pfad & " nicht gefunden! Ordner anlegen?", vbQuestion + vbYesNo)
        If a = vbYes Then
            FS.CreateFolder pfad
        End If
    End If

    datei = pfad & name
    letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    Open datei For Output As #1
    For Zeile = 1 To letztezeile
        Print #1, Cells(Zeile, 1) & ";" & Cells(Zeile, 2) & ";" & Cells(Zeile, 3)
    Next Zeile
    Close #1
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

Fehlermeldung: "Pfad nicht vorhanden"
- Stelle sicher, dass der Hauptordner (IST_Bestand) vorhanden ist. Der Code erstellt nur die Unterordner, wenn der Hauptordner existiert.
CSV-Datei wird nicht gespeichert
- Überprüfe, ob du die erforderlichen Berechtigungen für den Ordner hast, in dem die Datei gespeichert werden soll.
Ordner wird nicht erstellt
- Achte darauf, dass der Code die Ordner schrittweise anlegt. Wenn ein übergeordneter Ordner fehlt, wird der untergeordnete nicht erstellt.

Alternative Methoden

Eine andere Möglichkeit, Ordner und Dateien zu erstellen, wäre die Verwendung von Power Query oder Excel-Add-Ins, die speziell für das Datei-Management entwickelt wurden. Diese Tools bieten oft eine benutzerfreundliche Oberfläche, um Daten zu exportieren und Ordnerstrukturen zu verwalten.

Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du die oben beschriebene Funktion nutzen kannst:

Angenommen, du hast eine Excel-Tabelle mit Verkaufsdaten. Mit dem obigen Code kannst du die Daten in einer CSV-Datei speichern, die automatisch in einem neuen Ordner für das aktuelle Jahr und den aktuellen Monat abgelegt wird.

Trage deine Verkaufsdaten in die Excel-Tabelle ein.
Führe das Makro aus, um die CSV-Datei zu erstellen.

Tipps für Profis

Debugging: Verwende Debug.Print für Variablen, um den Ablauf des Codes zu überwachen und eventuelle Fehlerquellen zu identifizieren.
Error Handling: Implementiere Error-Handling-Mechanismen, um spezifische Fehler besser zu erkennen und darauf zu reagieren.
Modularer Code: Halte deinen Code modular, indem du häufige Aufgaben in separate Subroutinen auslagerst. So bleibt der Hauptcode übersichtlich.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um andere Dateiformate zu speichern?
Du kannst den Dateinamen und die Endung in der name-Variable ändern, um verschiedene Formate zu speichern.

2. Was passiert, wenn ich den Code in einer anderen Excel-Version ausführe?
Der Code sollte in den meisten aktuellen Excel-Versionen funktionieren, die VBA unterstützen. Achte darauf, dass die Scripting-Bibliothek aktiviert ist.

3. Wie kann ich sicherstellen, dass die Ordnerstruktur immer korrekt erstellt wird?
Verwende die FS.FolderExists-Methode, um sicherzustellen, dass jeder Ordner existiert, bevor du versuchst, Dateien zu speichern.

4. Gibt es eine Möglichkeit, die CSV-Datei automatisch zu schließen?
Ja, der Code schließt die CSV-Datei am Ende der Subroutine mit Close #1. Du kannst dies anpassen, falls notwendig.

Beliebteste Forumthreads (12 Monate)