Datei erstellen, falls nicht vorhanden
12.02.2015 11:45:50
Marvin
ich habe folgende Situation:
Ich habe eine Datei, bei der das relevante Sheet vorher als Variable invoice deklariert wurde.
In diesem Sheet befinden sich in Spalte A verschiedene IDs, die mehrmals vorkommen koennen.
Ziel meines Makros ist es in dem Pfad, der unten angegeben ist fuer jede ID in Spalte A eine Datei mit dem selben Namen zu erstellen.
Das klappt soweit wunderbar, allerdings bekomme ich wie zu erwarten Fehlermeldungen, dass die Datei schon im angegebenen Pfad existiert und demnach nicht erstellt werden kann oder mit einem "Copy" im Dateinamen.
Kann mir jemand weiterhelfen? Ich suche eine Moeglichkeit, vor dem erstellen der jeweiligen Datei, den angegeben Pfad darauf zu ueberpruefen, ob die zu erstellende Datei bereits besteht. Falls ja, soll diese Zeile uebersprungen werden, falls nein soll sie erstellt werden.
Hier der von mir gebastelte Code:
Sub FileCreate()
With invoice
last = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
For i = 2 To last
x = invoice.Cells(i, 1).Value
Workbooks.Add.SaveAs "C:\Users\maotting\Desktop\Macros\MacroJagada\Files\" & x & ".xlsx" _
Next i
End Sub
Bin fuer jede Hilfe dankbar!!
Viele Gruesse
Marvin
Anzeige