Hallo liebe VBA-Profis,
ich möchte per Makro eine Datei speichern und dabei vorher den Speicherort auswählen können. Dies hat bislang auch gut funktioniert, jetzt haben wir in der Firma von Excel97/2003 auf 2013 umgestellt und es funktioniert nicht mehr richtig.
Folgenden Code habe ich (Auszug aus dem gesamten Code)
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "H:\Makros\"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With
ActiveWorkbook.SaveAs Filename:="Nr. " & nr & "_" & Artikel & "_" & Date & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Das Speichern klappt eigentlich, allerdings geht er nicht auf die unterste ausgewählte Stufe im Ordnerbaum. Hier ein kleines Beispiel was ich meine:
Das Fenster geht auf und ich wähle den Ordner: "Garne\Muster\Artikel20" aus. D.h. die Datei soll im Ordner "Artikel20" gespeichert werden. VBA speichert sie aber leider einen Ordner drüber im "Muster" :-(
Kann mir bitte jemand einen Tipp geben wo mein Fehler liegt. Vielen Dank.
Beste Grüße
Matthias |