Excel 2016VBAでGetOpenFilenameメソッドを使用する方法

GetOpenFilenameメソッドは、以下のオプションの引数を取ります。

GetOpenFilenameの例

fileFilter引数は、ダイアログボックスの[ファイルの種類]ドロップダウンリストに表示される内容を決定します。この引数は、ファイルフィルター文字列のペアとそれに続くワイルドカードファイルフィルターの指定で構成され、各部分とペアはコンマで区切られます。省略した場合、この引数のデフォルトは次のとおりです。

すべてのファイル （*。*）、 *。*

この文字列は、コンマで区切られた2つの部分で構成されていることに注意してください。

すべてのファイル （*。*）

と

*。*

この文字列の最初の部分は、[ファイルの種類]ドロップダウンリストに表示されるテキストです。2番目の部分は、ダイアログボックスに表示するファイルを決定します。たとえば、*。*はすべてのファイルを意味します。

次の例のコードは、ユーザーにファイル名を尋ねるダイアログボックスを開きます。この手順では、5つのファイルフィルターを定義します。VBA行継続シーケンスがFilter変数の設定に使用されていることに注意してください。そうすることで、このかなり複雑な議論を単純化するのに役立ちます。

Sub GetImportFileName（）
  文字列としての薄暗いFinfo
  Dim FilterIndex As Long
  文字列としての薄暗いタイトル
  バリアントとしてのDimFileName
'ファイルフィルターのリストを設定する
  FInfo =“テキストファイル（* .txt）、*。txt、”＆_
      「ロータスファイル（* .prn）、*。prn」＆_
      「カンマ区切りファイル（* .csv）、*。csv」、および_
      「ASCIIファイル（* .asc）、*。asc」＆_
      "すべてのファイル （*。*）、*。*"
'デフォルトで*。*を表示
  FilterIndex = 5
'ダイアログボックスのキャプションを設定します
  タイトル=「インポートするファイルを選択してください」
'ファイル名を取得します
  FileName = Application.GetOpenFilename（FInfo、_
    FilterIndex、Title）
'ダイアログボックスからの戻り情報を処理する
  FileName = Falseの場合Then
    MsgBox「ファイルが選択されていません。」
  そうしないと
    MsgBox「選択した」とファイル名
  終了する場合
エンドサブ

Workbooks.Open FileName