Datei Auswählen Dialog (Application.FileDialog)
03.12.2007 17:45:00
Thomas
ich möchte aus ein paar Tabellendaten eine kleine XML-Datei schreiben. Derzeit wähle ich mit dem msoFileDialogFolderPicker ein Verzeichnis aus. Der Dateiname heißt derzeit immer gleich. Jetzt würd ich den Dateinamen auch gern variabal auswählen können, d.h. in einer Art "Speichern Unter"-Dialog auswählen.
Der msoFileDialogFilePicker wählt aber m.W. nur existierende Dateien aus und msoFileDialogOpen bzw msoFileDialogSaveAs funktionieren auch irgendwie nicht, da XL eine XML-Datei über die entsprechende Methoden schreiben will. ?
Hier mein derzeitiges Makro:
' Dummys festlegen
strPfad = "c:"
strFileNameKurz = "Umsatz-" & strJahr & "-" & strQuartal & "-" & strAbt ' Namensvorschlag wird aus Tabellendaten zusammengebastelt
strFileNameLang = strPfad & "\" & strFileNameKurz & ".xml"
' Ordner wählen
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = strPfad
.InitialView = msoFileDialogViewDetails
.Title = "Wo soll die xml-Datei gespeichert werden? Bitte einen Ordner wählen."
If .Show = -1 Then
strPfad = .SelectedItems(1)
Else
Exit Sub
End If
End With
If strPfad = "" Then Exit Sub
strFileNameLang = strPfad & "\" & strFileNameKurz & ".xml"
' Ausgabe der xml-Datei
Open strFileNameLang For Output As #1
...
Weiß jemand weiter? Hab schon 1.000 Sachen ausprobiert und blick nicht mehr durch :-(((
Danke und Gruß
Thomas