Excel VBAでファイルオープンダイアログを表示させる

Excel VBAで下のようなファイルオープンダイアログを表示させるのはGetOpenFilename()コマンドで可能です。図形でボタンを作成しダイアログを表示させるマクロ実行までの手順です

Excelの［挿入｜図形］で適当にボタンぽい図形を作成しておきます

図形が出来たら、その図形を右クリックし［マクロ登録］を選択

［マクロ登録］を選択すると下のような画面が表示されるので「マクロ名」に適当な名前をつけて［新規作成］ボタンをクリックします

［新規作成］をクリックするとVBA画面が表示されます

コードを書くのは２行です

Sub FileOpenClick()
    Dim f As Variant
    f = Application.GetOpenFilename("テキストファイル,*.txt")
End Sub

上記のようにコードが書けたらVBA画面を閉じます

先程作成した［図形］までマウスを移動させると「指👆🏻」に変わっています ボタンをクリックするとファイルオープンダイアログが表示されました

「f = Application.GetOpenFilename(“テキストファイル,*.txt”)」この行の変数「f」に返り値が入るのでSheet1の1行目1列目セルに変数fに入った値を入れたコードは下記例です

Sub FileOpenClick()
    Dim f As Variant
    f = Application.GetOpenFilename("テキストファイル,*.txt")
    Worksheets("Sheet1").Cells(1, 1).Value = f
End Sub

Worksheetsからの1行が増えて3行のプログラムになりました。実行すると変数fに入っていた値がセル[A1]に入りました