Speichern unter mit FileDialog
04.05.2009 09:48:37
Rainer
möchte eine Tabelle im xls-Format speichern, damit mir die Makros mit übernommen werden.
Klappt alles soweit.
Allerdings hätte ich im Makro gerne auch die Vorauswahl für "Excel 97-2003-Arbeitsmappe (*.xls)".
Habe nun schon einiges getestet.
Nur mein Code (als Funktion) "verschluckt" mir immer die "xls"-Angabe und bringt mir "xlsx".
sName = Range("Dateiname").Text
Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs)
With oFileDialog
.Title = "Analyse " & Cells(3, 13) & " speichern"
.ButtonName = "Analyse speichern"
.InitialFileName = sName & ".xls" ' oder Cells(1, 2)
.Execute
.Show
For Each vrtSelectedItem In .SelectedItems
DatenSpeichern = vrtSelectedItem
Next
End With
Gruß Rainer