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