【VBA】GetOpenFilenameの使い方を解説

2023年2月16日2023年2月23日

今回はGetOpenFilenameメソッドを使う方法を紹介します。

このメソッドは上の画像のようにファイルダイアログを表示して、ユーザーにファイルを選択させるものになります。

そして選択されたファイルのフルパスを返します。

GetOpenFilenameの使い方

Sub SelectFile()
    '''GetOpenFilenameメソッドでファイルを選択する
    
    Dim filePath As Variant
    filePath = Application.GetOpenFilename()
    
    If filePath <> False Then
        MsgBox "あなたが選んだファイルのパスは" & filePath & "です"
    Else
        MsgBox "ファイルが選ばれませんでした"
    End If
End Sub

サンプルコードを実行するとファイルダイアログが表示されてファイルの選択を求められます。

そして選択すると選んだファイルのフルパスが表示されます。

ファイルを選択しなかった場合は「ファイルが選ばれませんでした」のメッセージが表示されます。