VBA GetOpenFilenameメソッドの使い方

VBAで自動化ツールを開発するときに使い勝手の良いユーザーにファイルを選択してもらうGetOpenFilenameメソッドについて解説します。

GetOpenFilenameメソッドでファイルをユーザーに選択させる
単にファイルを開く方法の復習
GetOpenFilenameメソッドの文法
GetOpenFilenameメソッドの２つの引数｜FileFilterとTitle
- 第１引数FileFilter
- 第3引数Title
キャンセルが押された場合の対応
GetOpenFilenameメソッドでファイルをユーザーに選択させるまとめ

GetOpenFilenameメソッドでファイルをユーザーに選択させる

操作するファイルの対象をユーザーに選択させるファイル選択ダイアログボックスを表示するGetOpenFilenameメソッドを解説します。GetOpenFilenameと言ってもこのメソッドはダイアログボックスを開いてユーザーが選択したファイルのフルパスを取得するのみで開くところまで自動で行うわけではありません。次項から解説していきます。

単にファイルを開く方法の復習

まず、ファイルを開く方法について復習しておきます。エクセルブックを開くにはWorkbooksクラスのOpenメソッドを使います。サンプルコードは以下の通りです。

Sub ファイルを開く例()

    Workbooks.Open Filename:="..." ' エクセルブックの場合
    
End Sub

上のサンプルで"..."に当たる部分を取得するのがGetOpenFilenameメソッドの目的です。"..."の部分はフォルダのパスとファイル名を結合したいわゆるフルパスと呼ばれる文字列が入ります。

GetOpenFilenameメソッドの文法

GetOpenFilenameメソッドの文法は以下のようになっています。

ファイルのフルパスを代入する為の変数を用意しておき、GetOpenFilenameメソッドで取得したフルパスを代入するようにしておきます。GetOpenFilenameメソッドにおいて知っておくべきは第１引数と第３引数だけです。他の引数を覚える必要はありません。第１引数だけは大事なので良く覚えておきましょう。

なお、引数は【ひきすう】と読み、渡す値という意味です。GetOpenFilenameメソッドにおいては第１引数にFileFilterとして文字列を引数にとり、第３引数にTitleとして文字列を引数にとる、と言う言い方をします。

GetOpenFilenameメソッドの２つの引数｜FileFilterとTitle

前項で説明したようにGetOpenFilenameメソッドでは第１引数のFileFilterと第３引数のTitleが重要です。順に解説します。

第１引数FileFilter

第１引数のFileFileterは文字通りユーザーがファイルを選択する際にフィルタをかける機能です。ユーザーが選択できる拡張子を限定して、予期せぬファイルが選択される確率を減らす事ができます。書式は以下のようにします。

データの説明と拡張子にアスタリスクを付けたものをカンマ区切りで記述する — GetOpenFilenameメソッドの第１引数の書式

慣れない記述なので気合で覚えてしまいましょう。まず、文字列で指定するので””（ダブルクォーテーション）が囲みます。そしてその中身はファイルの種類の説明, *.xlsxの様にファイルの種類の説明と拡張子の先頭にアスタリスクを付けたものをカンマ区切りにします。サンプルコードを掲載すると以下のようになります。

Sub 第1引数しかない例()
    
    Dim フルパス As String
    フルパス = Application.GetOpenFilename("元データ,*.xlsx")
    
End Sub

このプログラムを実行すると、ファイルを開くダイアログボックスが表示されます。ダイアログボックスの下の部分を見ると下図のようになっています。

”元データ,*.xlsx”という文字列を第１引数として渡した — 第１引数にファイルの説明と拡張子を指定した例

開く、キャンセルの２つのボタンの上に元データ（*.xlsx）と表示されています。ここの部分が第１引数で指定した部分です。「元データ」の部分は「売上データ」なり「商品マスタ」なりユーザーにとってわかりやすい実際のデータの種類を書けばOKです。

また、第１引数はダブルクォーテーション内に【ファイルの説明,*.拡張子】の組み合わせをカンマ区切りで複数記述することによって、複数の拡張子を指定することも可能です。

Sub 複数種類の拡張子の例()
    
    Dim フルパス As String
    フルパス = Application.GetOpenFilename("元データ,*.xlsx,古い元データ,*.xls")
    
End Sub

このプログラムを実行するとファイルを開くダイアログボックスが表示されます。その下の部分に着目すると以下のようになっています。

複数のファイルの種類と拡張子の組み合わせが表示された — ファイルの説明,*.拡張子　の組み合わせを２つ記述した例

あくまで第１引数全体が一つの文字列なので"元データ,*.xlsx,古い元データ,*.xls"の様になります。間違いやすいので注意しましょう。覚え方は第１引数には【ファイルの説明,*.拡張子】の組み合わせを書く。【ファイルの説明,*.拡張子】の組み合わせを複数書くこともできる、と言う具合です。

さらに、拡張子の部分にアスタリスクを使うこともできます。

Sub 複数種類の拡張子の例2()
    
    Dim フルパス As String
    フルパス = Application.GetOpenFilename("元データ,*.xls*")
    
End Sub

このプログラムで表示されたファイルを開くダイアログボックスには.xlsファイル、.xlsxファイル、.xlsxファイルのいずれもが表示されます。

第3引数Title

第3引数Titleは表示されるダイアログボックスの上部に表示させるメッセージを指定します。省略可能で、省略すると、【ファイルを開く】という文字列が表示されます。

Sub 第3引数を指定するサンプル()

    Dim フルパス As String
    フルパス = Application.GetOpenFilename("元データ,*.xlsx", , "元データを選択してください", , True)
    
End Sub

このプログラムを実行すると上部のタイトル部分に【元データを選択してください】と表示されたダイアログボックスが表示されます。

第３引数で与えた文字列が表示されている — タイトル部分に指定した文字列が表示されたダイアログボックス

キャンセルが押された場合の対応

ファイルを開くダイアログボックスの右下にはキャンセルボタンも用意されています。このボタンを押すとGetOpenFilenameメソッドはFalseを返します。

フルパスが”False”と言うことはあり得ないため、これを開こうとするとそんなファイルありません、と言うエラーになります。そこで、キャンセルを押されたときの対策をすることが必要です。

Sub 適切にエラーを処理するサンプル()

    Dim フルパス As String
    フルパス = Application.GetOpenFilename("元データ,*.xlsx", , "元データを選択してください", , True)
    
    If フルパス = "False" Then
        MsgBox "処理を中断しました"
        End
    End If
    
End Sub