Tipps & Tricks
30.03.2007, 22:15 Uhr
Excel-Makro: Unter vorgegebenem Pfad speichern
Problem: Gibt es ein Makro für Excel mit dem ich den Dialog «Speichern unter» mit einem vorgegebenen Pfad öffnen kann?
Beispiel-Pfad
Makro
Der Dateiname ist in diesem Makro auskommentiert (grüne Schriftfarbe). Sie können diese Funktion aktivieren, falls es sich immer um den selben Dateinamen (oder einen Teil davon) handeln sollte.
Wenn Sie dieses Makro in der jetztigen Ausführung starten, öffnet sich der Dialog mit dem hier als Beispiel gesetzten Pfad «C:\__EigeneDateien\testpfadNterordner\». Den passen Sie natürlich noch an Ihren gewünschten Pfad an. Beim Ausführen des Makros brauchen Sie dann nur noch den Dateinamen zu ergänzen und die Datei zu speichern.
Makro ausgeführt
-----------------------------------------
Das Makro zum Kopieren
-----------------------------------------
Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "C:\__EigeneDateien\testpfadNterordner\"
'datei = ActiveSheet.Range("N11")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad '& datei
.Show
End With
If dialog <> False Then dialog.Execute
End Sub
Das Makro zum Kopieren
-----------------------------------------
Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "C:\__EigeneDateien\testpfadNterordner\"
'datei = ActiveSheet.Range("N11")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad '& datei
.Show
End With
If dialog <> False Then dialog.Execute
End Sub
Nun können Sie das Makro via Extras/Anpassen in eine Symbolleiste oder ein Menü einbinden.
Kommentare
Es sind keine Kommentare vorhanden.
