PDA

Vollständige Version anzeigen : Speicherpfad vorgeben


feliweb
24.08.2017, 15:46
Hallo,

ich würde dem User gerne den Speicherpfad vorgeben, der beim normalen Dialog auftaucht.

Das hier war meine Idee:


Private Sub Workbook_Open()
ChDrive "C:/Test/Hallo"
ChDir "C:/Test/Hallo"
End Sub


Die / sind eigentlich Back / aber irgendwie speichert das Forum die nicht...


Geht aber leider nicht... hätte noch jemand eine andere Idee?

silcono
25.08.2017, 09:28
Ich würde dir eine neue Schaltfläche empfehlen, mit folgendem Code:


Sub SpeichernUnter()

Dim Dateiname As String
Dim Pfad As String
Pfad = "C:"
Dateiname = ("Testmappe.xls")
Application.GetSaveAsFilename (Pfad & Dateiname)

End Sub


Grüße
silcono :D