Hallo zusammen,
ich möchte per Klick auf einen Button die Arbeitsmappe in einem bestimmten Ornderpfad speichern. Ich habe es bisher geschafft, per Klick auf Button "Speichern unter" zu öffnen. Ich muss allerdings noch den Ordnerpfad unterkriegen, sodass sich "Speichern unter" direkt im richtigen Ordner öffnet. Wie kriege ich den Ordnerpfad mitrein? Welches Format muss der Ordnerpfad haben? Mein Code sieht bisher wie folgt aus:
Sub Speichern_Unter()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = "" 'ActiveWorkbook.Path & "\" '?
Datname = Range("B1") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
|