Microsoft Excel

Herbers Excel/VBA-Archiv

speichern unter mit festem Namen aber wählbarem Verzeichnis

Betrifft: speichern unter mit festem Namen aber wählbarem Verzeichnis von: Mike
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.

Betrifft: AW: speichern unter mit festem Namen aber wählbarem Verzeichnis
von: Nepumuk
Geschrieben am: 09.10.2020 15:30:39

Hallo Mike,

teste mal:

Option Explicit

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