「ファイルを開く」ダイアログボックスからファイル名を取得（Excel VBA） Excel

【本日のミッション】

Excel VBA を使って「ファイルを開く」ダイアログボックスを表示させ、任意のファイル名を取得し、ファイルを開け。
「キャンセル」を選択してもエラーが出ないようにするべし！

1 ミッションの概要
2 プロシージャ
3 GetOpenFilenameメソッド
4 【参考】

ミッションの概要

今回のミッションは、「ファイルを開く」ダイアログを表示させ、任意のファイルを選べるようにする、というものです。

ダイアログのタイトルや、ファイルの種類を自分好みにカスタマイズしましょう。
また、ダイアログで「キャンセル」した場合の処理も考えましょう。

プロシージャ

Sub ダイアログからファイルを開く()

    Dim fn As String
    
    'ダイアログ表示
    fn = Application.GetOpenFilename("Microsoft Excelブック,*.xls*,テキストファイル,*.txt;*.csv", , "お好みのファイルを選んでください♪")
    
    'ファイルが選択された場合は開く
    If fn <> "False" Then
        Workbooks.Open fn
    End If
    
End Sub

記入したプロシージャ（Sub～End Subまで）のどこかにカーソルを置いてF5キーをクリックしてください。

ダイアログが開き、ファイルを選択するとファイルが開き、キャンセルすると何もおこりませんね♪

■■■スポンサーリンク■■■

GetOpenFilenameメソッド

GetOpenFilenameメソッドは、「ファイルを開く」ダイアログボックスを表示させ、選択したファイルのフルパスを返します。

ただし、引数MultiSelectを「False」とした場合は、選択したファイルのパスが配列で返ります。この場合は、コードが異なりますので、次回お話しさせていただきます。

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

引数名	説明	省略
FileFilter	ファイルの種類・拡張子を指定する文字列(ファイルフィルター文字列)を指定します。省略すると “すべてのファイル (.),.”になります。	〇
FilterIndex	引数FileFilterで指定したファイルフィルター文字列の中で、1から何番目のFileFilterを既定値とするかを指定します。省略または、引数FileFilter文字列の数より大きい数値を指定すると、最初のFileFilter文字列が既定値となります。	〇
Title	ダイアログボックスのタイトルを指定します。省略すると “ファイルを開く” になります。	〇
ButtonText	Macintosh でのみ指定できます	〇
MultiSelect	True：複数のファイルを選択できます。 False：1 つのファイルしか選択できません。（規定値）	〇

今回のコードはこんな感じに記述しています。
引数を1つ目から順番に並べ、第2引数は省略しているので空欄にしています。

省略する引数を空欄にするのもOKなのですが、どの引数が何番目だっけ？？？とわからない場合は、必要な引数だけ「引数名:=引数の値」と指定することができます。

Title

ダイアログの上のバーに表示される文字です。
省略すると “ファイルを開く”になるのですが、せっかくなのでメッセージ風にしてみました。

FileFilter

ファイルの種類・拡張子を指定する文字列です。
省略すると “すべてのファイル (*.*),*.*”になりますが、選択するファイルの種類が決まっているなら、ダイアログに表示されるファイルが限定されるので、ファイルを選択しやすくなります。

ファイルの種類1つにつき、下記2つの情報をセットにして指定します。
指定するときは、2つの情報の間にカンマ「,」を入れます。
参照：ワイルドカードとは。使い方いろいろ。（Excel）

ファイルの種類を指定する文字列
ファイルの拡張子

Application.GetOpenFilename("ファイルの種類を指定する文字列,ファイルの拡張子")

Application.GetOpenFilename("Microsoft Excelブック,*.xls*")

1つのファイルの種類に、複数の拡張子を表示する場合は、拡張子の間にセミコロン「；」を入れます。

Application.GetOpenFilename("テキストファイル,*.txt;*.csv")

複数のファイルの種類を表示する場合は、「ファイルの種類,拡張子」のセットをカンマ「,」で区切ります。カンマだらけになってしまいます。

Application.GetOpenFilename("ファイルの種類,拡張子,ファイルの種類,拡張子,ファイルの種類,拡張子")

Application.GetOpenFilename("Microsoft Excelブック,*.xls*,テキストファイル,*.txt,テキストファイル,*.csv")

もしも、こんなおふざけな指定をしてしまっても・・・

Application.GetOpenFilename("えくせる,*.xls*,てきすと,*.txt;*.csv")

指定した通りの内容で表示されます。

でも、かっこよく指定したい！という場合は、Excelの「ファイルを開く」ダイアログボックスのファイルの種類の文字をマネしておきましょう。誰からも突っ込まれないでしょう。

■■■スポンサーリンク■■■

FilterIndex

引数FileFilterで指定したファイルフィルタ文字列の中で、1から何番目のFileFilterを既定値とするかを指定します。

今回のように省略または、引数FileFilter文字列の数より大きい数値を指定すると、最初のFileFilter文字列が既定値となります。

Application.GetOpenFilename("Microsoft Excelブック,*.xls*,テキストファイル,*.txt;*.csv", , "お好みのファイルを選んでください♪")

2番目のファイルの種類を規定値としたい場合は下記のようにします。

MultiSelect

True：複数のファイルを選択できます。
False：1 つのファイルしか選択できません。（規定値）

となりますが、MultiSelectを使用するとコード全体を変更しないといけないので、次回にご説明させていただきます。

【参考】

■■■スポンサーリンク■■■