excel vba openingさまざまな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