File filter, allow xls, xlsx and xlsm and nothing else

[jflurrie]

Here's the current code:

Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm)*.xls;*.xlsx;*.xlsm", Title:="Open Database File", MultiSelect:=False)

Gives me Method GetOpenFileName of object Application failed (error 1004).

I'm sure it is not far from working.

 

[MARK858]

Something like?

fileToOpen = Application.GetOpenFilename(FileFilter:="Excel Workbooks (*.xls*),*.xls*", Title:="Open Database File")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If

 

[dangvietdung]

Here's the current code:

Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Open Database File", MultiSelect:=False)

Gives me Method GetOpenFileName of object Application failed (error 1004).

I'm sure it is not far from working.

You can try this :
Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Open Database File", MultiSelect:=False)

 

[MARK858]

Not directed to one post in particular, but just to point out that if you are going to hard code the last letter of the file extension rather than using a wildcard then really you should include all the formats including xlsb (and possibly even the template extensions).

 

[hahajing0411]

here is what you want
Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls,*.xls;(*.xlsx),*.xlsx,(*.xlsm),*.xlsm", Title:="Open Database File", MultiSelect:=False)

 

[hahajing0411]

correct:
Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls),*.xls;(*.xlsx),*.xlsx,(*.xlsm),*.xlsm", Title:="Open Database File", MultiSelect:=False)