Herbers Excel/VBA-Archiv
speichern unter mit festem Namen aber wählbarem Verzeichnis
- speichern unter mit festem Namen aber wählbarem Verzeichnis von Mike vom 09.10.2020 14:46:23
- AW: speichern unter mit festem Namen aber wählbarem Verzeichnis - von Nepumuk am 09.10.2020 15:30:39
Geschrieben am: 09.10.2020 14:46:23
Hallo Wissende,
ich habe hier im Forum schon einiges an nützlichem Code gefunden.
Vielen Dank schon mal für die tollen Beiträge.
Ich habe hier folgenden Code gefunden den ich gerne etwas an meine Bedürfnisse anpassen
https://www.herber.de/forum/archiv/1540to1544/1543570_CSVExport_per_VBA_bestimmter_Bereich.html#1543570
Die Anpassung soll "nur" darin bestehen, dass ich den Pfad
Pfad = "C:\DeinPfad\DateiName_" & Format(Date, "YYYYMMDD") & _
"_" & Format(Time, "hhmmss") & ".csv"
wie bei einem 'speichern unter' wählen kann.
Habe ein Weg über
Name = Application.GetSaveAsFilename(.....
versucht, bekomme da aber nicht den festen Namen
"Lastschrift_" & Format(Date, "YYYYMMDD") & _ "_" & Format(Time, "hhmmss") & ".csv"
hin.
von: Nepumuk
Geschrieben am: 09.10.2020 15:30:39
Hallo Mike,
teste mal:
Public Sub Test()
Dim objFileDialog As FileDialog
Dim strPath As String
Set objFileDialog = Application.FileDialog(FileDialogType:=msoFileDialogFolderPicker)
With objFileDialog
.AllowMultiSelect = False
.InitialFileName = "C:\" ' Anpassen !!!
If .Show Then
strPath = .SelectedItems(1) & "\" & Format$(Date, "yyyymmdd") & "_" & Format$(Time, "HhNnSs") & ".csv"
Call ActiveSheet.SaveAs(Filename:=strPath, FileFormat:=xlCSV)
End If
End With
Set objFileDialog = Nothing
End Sub
Gruß
Nepumuk