Blatt exportieren (neue Datei mit Makro)
20.09.2004 13:31:32
Michael
Ich habe mal wieder ein Problem. Ich muss wissen, wie ich ein Blatt Sheet_X aus der aktuellen Datei per Makro in eine neue Datei speichern kann. Der Makro-Editor war mir diesbezüglich nur bedingt eine Hilfe, da ich diese neue Datei in einem Unterordner der aktuellen Datei gespeichert haben möchte (d.h. der Pfad ist je nach Ursprungsdatei variabel)
Konkret:
Ursprungsdatei: D:\..\Test\ursprung.xls
Neue Datei: D:\..\Test\Unterordner\NewFile.xls
mein bisheriger (nicht funktionierender) Code:
Public
Sub Export()
Dim pfad As String
Sheets("Sheet_X").Copy
pfad = "Unterordner" 'Der Pfad soll nachher durch den Benutzer variiert werden; daher die zusätzliche Zuweisung
ChDir "d:\..\" & pfad '<--- Hier liegt das Problem; finde keine korrekte Angabe für das Aktuelle Verzeichnis!
ActiveWorkbook.SaveAs Filename:= _
"\NewFile.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End
Sub
Info: Der Unterordner muss evtl. noch erstellt werden, falls noch nicht vorhanden!
Es wäre toll, wenn ich Hilfe bekäme!
Ciao
Michael