neuen Pfad in Dialogs(xlDialogSaveAs) vorgeben

25/01/2008 - 23:36 von Wolfgang Kutsche | Report spam
Hallo NG,

in einer Anwendung in Excel möchte ich per VBA eine aufgerufene aktive
Excel-Datei (F:\Kalkulation\Stamm\Basis.xls) über den Dialog (xlDialogSaveAS)
auf ein anderes existierendes Laufwerk (C:\Kalkulation\Angebote) mit anderem
Namen speichern.
Dabei ist wichtig, dass der Anwender dies mit dem Dialog macht, damit er die
vorhandenen Dateien in dem Ordner sieht und eventuelle Namensgleichheit der
Dateien erkennen kann.

Dazu benutze ich folgenden Code-Ausschnitt:

PfadNeu = "F:\Kalkulation\Angebote"
Dateianfang = "2008_01_"
Abbr = Application.Dialogs(xlDialogSaveAs).Show(PfadNeu & "\" & Dateianfang)
If Abbr = False Then End

Leider wird in dem Dialog der alte Pfad der Datei dargestellt, obwohl ich
den neuen Pfad (PfadNeu) angegeben habe.

Auch der nachfolgende Code funktioniert diesbezüglich nicht. Hier habe ich
zusàtzlich den Pfad mit ChDrive und ChDir gewechselt.

PfadNeu = "F:\Kalkulation\Angebote"
ChDrive PfadNeu
ChDir PfadNeu
Dateianfang = "2008_01_"
Abbr = Application.Dialogs(xlDialogSaveAs).Show(PfadNeu & "\" & Dateianfang)
If Abbr = False Then End

Was muss ich tun, damit im Dialog der PfadNeu bereits vorgewàhlt ist?

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de
 

Lesen sie die antworten

#1 Lorenz Hölscher
26/01/2008 - 14:57 | Warnen spam
Hallo Wolfgang,

du mußt eine fertig eingebaute Funktion in Excel benutzen:

Sub xx()
Dim varWert

varWert = Application.GetSaveAsFilename("c:\temp\*.xls", "Excel-
Dateien, *.xls")
MsgBox varWert
End Sub

Details und Beispiele findest Du bei mir im Tipp "Dateinamen
ermitteln" unter
http://www.cls-software.de/cls_soft...elVBA.aspx

tschö, Lorenz

Ähnliche fragen