「VBA」GetOpenFilenameでファイルダイアログを開くサンプル

2021年8月23日

構文
expression.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
パラメーター
1.FileFilter
ファイルの候補を指定する文字列 (ファイル フィルター文字列) を指定します。
2.FilterIndex
FileFilter で指定したファイル フィルター文字列の中で、1 から何番目の値を既定値とするかを指定します。
3.Title
ダイアログ ボックスのタイトルを指定します。
4.MultiSelect
True を指定すると、複数のファイルを選択できます。 False を指定すると、1 つのファイルしか選択できません。 既定値は False です。

使用例

Sub funcA()
  Dim FileList() As Variant
  FileList = Application.GetOpenFilename(FileFilter:="Excelファイル,*.xls*", MultiSelect:=True)
  If IsArray(FileList) Then
     //処理コード
  End If

End Sub

 

VBScript

Posted by arkgame