Application.GetOpenFilename メソッド (Excel)

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

構文

expression.GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
FileFilter	オプション	Variant	ファイルの候補を指定する文字列 (ファイル フィルター文字列) を指定します。
FilterIndex	オプション	Variant	FileFilter で指定したファイル フィルター文字列の中で、1 から何番目の値を既定値とするかを指定します。 この引数を省略するか、ファイル フィルター文字列の数より大きい数値を指定すると、最初のファイル フィルター文字列が既定値となります。
Title	省略可能	Variant	ダイアログ ボックスのタイトルを指定します。 この引数を省略すると "ファイルを開く" になります。
ButtonText	オプション	Variant	Macintosh でのみ指定できます。
MultiSelect	オプション	Variant	True を指定すると、複数のファイルを選択できます。 False を指定すると、1 つのファイルしか選択できません。 既定値は False です。

戻り値

バリアント型

注釈

FileFilter引数で渡されるこの文字列は、ファイルフィルタ文字列のペアとそれに続くMS-DOS ワイルドカードファイルフィルタ指定で構成され、各部分と各ペアはコンマで区切られます。 個別のペアはそれぞれ[ファイルの種類]ドロップダウンリストボックスに表示されます。 たとえば、次の文字列は、テキストと addin という 2 つのファイル フィルターを指定します。

"Text Files (*.txt), *.txt,Add-In Files (*.xla), *.xla"

1 つのファイル フィルター文字列に複数の MS-DOS ワイルドカードの表現を使用するには、"Visual Basic Files (*.bas; *.txt), *.bas;*.txt"のように各ワイルドカードをセミコロン (;) で区切ります。

引数FileFilter を省略すると、"すべてのファイル"All Files (*.*), *.*"を指定した初期設定になります。

このメソッドは、ユーザーによって選択、または入力されたファイルの名前とパス名を返します。 引数 MultiSelect が True の場合は、選択されたファイルの名前の配列が返されます。 もしMultiSelectがTrueの場合、戻り値は選択されたファイル名の配列です（1つのファイル名しか選択されていない場合でも）。 入力が取り消された場合には False が返されます。

このメソッドを実行することによって、カレント ドライブやカレント フォルダーが変更される可能性があります。

例

次の使用例は、[ファイルを開く] ダイアログ ボックスを、ファイルの種類をテキスト ファイルに限定して表示します。 ファイル名を選択すると、そのファイル名がメッセージ ボックスに表示されます。

fileToOpen = Application _ 
 .GetOpenFilename("Text Files (*.txt), *.txt") 
If fileToOpen <> False Then 
 MsgBox "Open " & fileToOpen 
End If

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。