Ordner anlegen bzw. überprüfen in VBA
22.01.2004 19:18:02
Michael
ich habe das Problem, das ich aus einer Datei das jeweils aktuelle Arbeitsblatt in einem zuvor erstellten Ordner abspeichern will. Es läuft bis jetzt nur beim ersten Speichervorgang. Sobald der Ordner jedoch schon besteht funktioniert es nicht mehr. Falls einer den code erweitern könnte, dass excel erst überprüfen soll ob der Ordner besteht und wenn dies der Fall ist, einfach das nächste Arbeitsblatt darin abspeichert, wäre das eine riesige Hilfe und ein VBA-Greenhorn wäre glücklich. Besten Dank schon mal im Voraus für alle evtl. Grübeleien.
Gruß Michael
Sub Blattspeichern()
Dim s As String
ActiveSheet.Copy
s = ActiveSheet.Name & ".xls"
MkDir "C:\xx"
ChDir "C:\xx"
ActiveWorkbook.SaveAs Filename:=s
End Sub