More than 3 years have passed since last update.

getopenfilename

filefilter

Last updated at 2021-02-12Posted at 2021-02-12

getopenfilenameについて
##getopenfiename

複数の拡張子を使いたい場合は、FileFilterをうまく利用する。

'test.xlsm


Dim listfile As Variant

listfile = Application.GetOpenFilename(FileFilter:="CSVファイル,*.csv,xlsxファイル, _
*.xlsx", FilterIndex:=2, Title:="選択してください,")
    If VarType(listfile) = vbBoolean Then
        MsgBox "キャンセルされました"
        Exit Sub
    End If    
End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up