excel vba打开各种excel文件类型

我正在使用一个宏来打开excel文件。它们可能是xls或xlsm或xlsx，具体取决于提交它们的人。我有许多宏可以打开特定的文件类型，但我仍然坚持使用代码来打开xls或xlsx或xlsm文件。如有任何建议，将不胜感激。谢谢你的帮助

这应该可以

Sub FileOpener()

Dim userFileName As Variant

userFileName = Application.GetOpenFilename(FileFilter:="Excel Workbooks, *.xl*", _
                                           Title:="Choose a Workbook to Open", _
                                           MultiSelect:="False")
If userFileName <> False Then
    Workbooks.Open fileName:=userFileName
End If

End Sub

Sub FileOpener（）
Dim userFileName作为变量
userFileName=Application.GetOpenFilename（文件过滤器：=“Excel工作簿，*.xl*”_
标题：=“选择要打开的工作簿”_
多选：=“假”）
如果userFileName为False，则
工作簿。打开文件名：=用户文件名
如果结束
端接头