Application.FileDialog(msoFileDialogSaveAs)
Philipp
ich möchte nur bestimmte Dateiformate beim speichern zulassen. Die Filterfunktion funktioniert hier nicht (oder jedenfalls bei mir)
Sub test
Set oFileDialog = Application.FileDialog(msoFileDialogSaveAs)
With oFileDialog
.Title = "Auto Report Save as"
.ButtonName = "speichern"
.InitialFileName = "AutoReport_"
.Filters.Clear
.Filters.Add "word-files", "*.doc"
If .Show = -1 Then
.Execute
sName = .SelectedItems(1)
Else
Exit Sub
End If
End Sub
hat jemand von euch eine Idee. Wie ich nur ein bestimmtes Format zulassen kann?
Danke für eure Hilfe.
Phil
Anzeige