FileDialog Filters.clear
I have the following "classical" code to use a filedialog control in Excel
2003: Function FileSelector(tipo As Integer) Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) Dim vrtSelectedItem As Variant With fd .Filters.Clear .Filters.Add "MyCustomFiles", "*.trn" If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems FileSelector = vrtSelectedItem Next vrtSelectedItem Else End If End With Set fd = Nothing End Function It performs correctly without the .Filters statements. With them, instead, I get the following error: Property or method not supported by the object I use Excel 2003/SP3 Any help? Thanks |
FileDialog Filters.clear
Why don't you justt use GetSaveAsFileName???
Sub FileSelector() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ fileFilter:="MyCustomfiles (*.trn), *.trn") If fileSaveName < False Then MsgBox "Save as " & fileSaveName FileSelector = fileSaveName End If End Sub "eggpap" wrote: I have the following "classical" code to use a filedialog control in Excel 2003: Function FileSelector(tipo As Integer) Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) Dim vrtSelectedItem As Variant With fd .Filters.Clear .Filters.Add "MyCustomFiles", "*.trn" If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems FileSelector = vrtSelectedItem Next vrtSelectedItem Else End If End With Set fd = Nothing End Function It performs correctly without the .Filters statements. With them, instead, I get the following error: Property or method not supported by the object I use Excel 2003/SP3 Any help? Thanks |
All times are GMT +1. The time now is 04:41 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com