GetOpenFilenameのデフォルトフォルダを変更する

はじめに

test.xlsm

Sub test()
    Dim file_name As String
    file_name = Application.GetOpenFilename
    Debug.Print file_name
End Sub

を実行した時、ダイアログのデフォルトフォルダは
C:\Users\xxxx\Documents
である。これでもいいけど、デフォルトフォルダは開いているエクセルファイルがある場所の方が使いやすいな～

カレントフォルダを変更するだけ

デフォルトフォルダはカレントフォルダである。つまりカレントフォルダを変更すればOK。

test.xlsm

Sub test()
    Dim file_name As String
    ChDir ThisWorkbook.Path 'ここを追加
    file_name = Application.GetOpenFilename
    Debug.Print file_name
End Sub

※カレントフォルダを変更することで、他のプロセスに影響が出る場合もあるので注意が必要