excel vba打开各种excel文件类型

Question

我正在打开一个将打开excel文件的宏。它们可能是xls或xlsm或xlsx，具体取决于谁提交它们我有一些打开特定文件类型的宏，但是卡在要使用的代码中，会打开xls或xlsx或xlsm文件。任何建议将不胜感激。感谢您的帮助

Answer 1

这应该做到这一点。

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