neuen Pfad in Dialogs(xlDialogSaveAs) vorgeben
Wolfgang Kutsche
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
Lorenz Hölscher
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_software/TippsExcelVBA.aspx
tschö, Lorenz
Wolfgang Kutsche
vielen Dank für Deinen Hinweis, damit habe ich die Lösung gefunden.
Es hat denn bei mir noch eine Weile gedauert, bis ich herausfand, dass
'GetSaveAsFilename' zunächst nur für die Auswahl des neuen Dateinamens
zuständig ist.
Erst mit 'ActiveWorkbook.SaveAs neueDatei' wird dann die Datei wirklich
gespeichert.
Dabei kann es vorkommen, dass die ausgewählte Datei bereits vorhanden ist,
dann erscheint eine Meldung ... Überschreiben ... ja, nein , abbrechen.
Die Fälle nein und abbrechen müssen dann noch mit einer Fehlerroutine
abgefangen werden.
--
Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de
Holger Nölting
und hilft dir vielleicht die Funktion 'ActiveWorkbook.SaveCopyAs weiter ohne
die Fehlerroutine abzufangen ?
Gruss Holger
"Wolfgang Kutsche" <Wolfgan...@discussions.microsoft.com> schrieb im
Newsbeitrag news:9CBBA8ED-2DAC-4EE6...@microsoft.com...
Wolfgang Kutsche
vielen Dank für Deinen Hinweis.
Die Funktion 'ActiveWorkbook.SaveCopyAs' hat in meinem Fall den Nachteil,
dass die gespeicherte Datei nicht das aktive Workbook wird.
Mit der Fehlerroutine bei 'ActiveWorkbook.SaveAs' kann ich leben.
--
Gruß Wolfgang
WinXP Home SP2, Office 2003 SP2
http://www.wk-bau-edv.de