Speichern unter VBA mit Pfad
09.07.2003 16:00:26
tom
ich habe im Archiv gestöbert und das untenstehende VBA gefunden, mit dem man nummeriert und mit Datum als Dateiname gespeichert wird.
Was ich nicht hinbekomme, ist, hier einen Pfad anzugeben. So wie es jetzt ist, speichern die Dateien im Hauptverzeichnis. Möglich wäre ein fester Pfad, oder auch der Standardpfad, noch besser wäre evtl. eine Auswahlabfrage.
Weiß jemand, wie ich den Code da reinschreiben muß?
Vielen Dank und schöne Grüße,
tom
Sub speichern()
' speichern Makro
' Makro am 09.07.2003 von sie er aufgezeichnet
Dim pfad As String
pfad = ThisWorkbook.Path
Dim i As Long
With Application.FileSearch
.LookIn = pfad
If .Execute > 0 Then i = .FoundFiles.Count
i = i + 1
ActiveWorkbook.SaveAs Filename:=pfad & "\" & Format(i, "00000") & "-" & Format(Date, "YYYY-MM-DD") & ".xls"
End With
End Sub