VBAのGetOpenFilenameメソッド

こちらでは、エクセルVBAのGetOpenFilenameメソッドの解説になります。

メソッドとは、オブジェクトを操作する命令文のことでオブジェクトの動作になります。メソッドを利用するにはオブジェクト名とメソッド名の間に「.(ピリオド)」で結んで記述します。

オブジェクト名.メソッド名

GetOpenFilenameメソッド

GetOpenFilenameメソッドは、ユーザーからファイル名を取得するために、[ファイルを開く] ダイアログボックスを表示します。ダイアログボックスで指定したファイルは、実際には開かれません。

expression.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
expression 必ず指定します。Application オブジェクトを返すオブジェクト式を指定します。
FileFilter 省略可能です。バリアント型 (Variant) の値を使用します。ファイルの候補を指定する文字列 (ファイルフィルタ文字列) を指定します。
ファイルフィルタ文字列とワイルドカードのペアを、必要な数だけ指定します。ファイルフィルタ文字列とワイルドカードはカンマ (,) で区切り、各ペアもカンマで区切って指定します。各ペアは、[ファイルの種類] ボックスのリストに表示されます。例えば、テキストとアドインの 2 つのファイルフィルタの指定は次のようになります。"テキストファイル (*.txt),*.txt,アドインファイル (*.xla),*.xla"
1 つのファイルフィルタ文字列に複数のワイルドカードを対応させるには、次のように各ワイルドカードをセミコロン (;) で区切ります。"Visual Basic ファイル (*.bas;*.txt),*.bas;*.txt"
この引数を省略すると、"すべてのファイル (*.*),*.*" を指定したことになります。
FilterIndex 省略可能です。バリアント型 (Variant) の値を使用します。引数 FileFilter で指定したファイルフィルタ文字列の中で、1 から何番目の値を既定値とするかを指定します。この引数を省略するか、引数 FileFilter に含まれるファイルフィルタ文字列の数より大きい数値を指定すると、最初のファイルフィルタ文字列が既定値となります。
Title 省略可能です。バリアント型 (Variant) の値を使用します。ダイアログボックスのタイトルを指定します。この引数を省略すると "ファイルを開く" になります。
ButtonText 省略可能です。バリアント型 (Variant) の値を使用します。Macintosh でのみ指定できます。
MultiSelect 省略可能です。バリアント型 (Variant) の値を使用します。True を指定すると、複数のファイルを選択できます。False を指定すると、1 つのファイルしか選択できません。既定値は False です。
GetOpenFilename メソッドは、ユーザーによって選択、または入力されたファイルの名前とパス名を返します。引数 MultiSelect が True の場合は、選択されたファイルの名前の配列が返されます。選択されたファイルが 1 つでも、配列として返されます。入力が取り消された場合には False が返されます。
このメソッドを実行することによって、カレントドライブやカレントフォルダが変更される可能性があります。
次の使用例は、[ファイルを開く] ダイアログボックスを、ファイルの種類をテキストファイルに限定して表示します。ファイル名を選択すると、そのファイル名がメッセージボックスに表示されます。


fileToOpen = Application _
    .GetOpenFilename("テキスト ファイル (*.txt), *.txt")
If fileToOpen <> False Then
    MsgBox "選択されたファイル :  " & fileToOpen
End If

※ドラッグ(スワイプ)すると全体を確認できます。