Application.GetOpenFilename メソッド (Excel)Application.GetOpenFilename method (Excel)

ユーザーからファイル名を取得するために、[ファイルを開く] ダイアログ ボックスを表示します。ダイアログ ボックスで指定したファイルは、実際には開かれません。Displays the standard Open dialog box and gets a file name from the user without actually opening any files.

構文Syntax

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

expression**Application** オブジェクトを 表す変数。expression A variable that represents an Application object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
FileFilterFileFilter OptionalOptional VariantVariant ファイルの候補を指定する文字列 (ファイル フィルター文字列) を指定します。A string specifying file filtering criteria.
FilterIndexFilterIndex OptionalOptional VariantVariant FileFilter で指定したファイル フィルター文字列の中で、1 から何番目の値を既定値とするかを指定します。Specifies the index numbers of the default file filtering criteria, from 1 to the number of filters specified in FileFilter. この引数を省略するか、ファイル フィルター文字列の数より大きい数値を指定すると、最初のファイル フィルター文字列が既定値となります。If this argument is omitted or greater than the number of filters present, the first file filter is used.
TitleTitle 省略可能Optional VariantVariant ダイアログ ボックスのタイトルを指定します。Specifies the title of the dialog box. この引数を省略すると "ファイルを開く" になります。If this argument is omitted, the title is "Open."
ButtonTextButtonText OptionalOptional VariantVariant Macintosh でのみ指定できます。Macintosh only.
MultiSelectMultiSelect オプションOptional VariantVariant True を指定すると、複数のファイルを選択できます。True to allow multiple file names to be selected. False を指定すると、1 つのファイルしか選択できません。False to allow only one file name to be selected. 既定値は False です。The default value is False.

戻り値Return value

バリアント型Variant

注釈Remarks

_FileFilter_引数で渡されるこの文字列は、ファイルフィルタ文字列のペアとそれに続くMS-DOS ワイルドカードファイルフィルタ指定で構成され、各部分と各ペアはコンマで区切られます。This string passed in the FileFilter argument consists of pairs of file filter strings followed by the MS-DOS wildcard file filter specification, with each part and each pair separated by commas. 個別のペアはそれぞれ [ファイルの種類] ドロップダウンリストボックスに表示されます。Each separate pair is listed in the Files of type drop-down list box. たとえば、次の文字列は 2 種類のファイル フィルターを指定します—テキストとアドイン:For example, the following string specifies two file filters—text and addin:

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

1 つのファイル フィルター文字列に複数の MS-DOS ワイルドカードの表現を使用するには、"Visual Basic Files (*.bas; *.txt),*.bas;*.txt"のように各ワイルドカードをセミコロン (;) で区切ります。To use multiple MS-DOS wildcard expressions for a single file filter type, separate the wildcard expressions with semicolons; for example: "Visual Basic Files (*.bas; *.txt),*.bas;*.txt".

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

このメソッドは、ユーザーによって選択、または入力されたファイルの名前とパス名を返します。This method returns the selected file name or the name entered by the user. 引数 MultiSelect が True の場合は、選択されたファイルの名前の配列が返されます。The returned name may include a path specification. もし_MultiSelect_がTrueの場合、戻り値は選択されたファイル名の配列です(1つのファイル名しか選択されていない場合でも)。If MultiSelect is True, the return value is an array of the selected file names (even if only one file name is selected). 入力が取り消された場合には False が返されます。Returns False if the user cancels the dialog box.

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

Example

次の使用例は、[ファイルを開く] ダイアログ ボックスを、ファイルの種類をテキスト ファイルに限定して表示します。This example displays the Open dialog box, with the file filter set to text files. ファイル名を選択すると、そのファイル名がメッセージ ボックスに表示されます。If the user chooses a file name, the code displays that file name in a message box.

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

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.