VBA | ファイルダイアログを表示して、開いたファイルのパスを変数に代入する

VBA
2023.07.17

昔よく使っていたマクロ。
掘り出したのでメモしておく。

2015年頃に自分で作ったマクロ

Public Sub GET_BOOK_NAME()
Dim book_name As Variant
Dim book As Workbook

    book_name = Application.GetOpenFilename()
        If book_name = False Then
            Exit Sub
        End If
    Set book = Workbooks.Open(book_name)
End Sub

友（ChatGPT）にリファクタリングしていただいたマクロ

リファクタリングついでに、デバッグログの表示について追加してもらった。
ありがとう、友（ChatGPT）よ。。。

Public Sub OpenSelectedWorkbook()
Dim selectedFilePath As Variant
Dim selectedWorkbook As Workbook

    selectedFilePath = Application.GetOpenFilename()

    If selectedFilePath = False Then
        Debug.Print "ファイルが選択されませんでした。"
        MsgBox "ファイルが選択されませんでした。", vbInformation
        Exit Sub
    End If

    Debug.Print "開くファイル: " & selectedFilePath
    Set selectedWorkbook = Workbooks.Open(selectedFilePath)
    Debug.Print "開いたファイル: " & selectedWorkbook.Name
End Sub

ぽんこつメモ

（確か）各事業所毎の共有フォルダにあるファイルから必要なデータをマクロで取得して集計するために、ファイルパスを取得したかったような記憶。
ファイルパスがある程度固定されていればよかったが、恐ろしく変動していたため、自分の未熟さもあり苦肉の策だったような。。。