Excel VBAについて

質問

Excelのシートにコマンドボタンを配置して、そのコマンドボタンをクリックすると「ファイルを開く」のダイアログボックスを表示したいと思っています。
そのとき、デフォルトでファイルの場所は「D:\Test」にしたいのですが、どうしたらよいのでしょうか。
ユーザは、ファイルの場所を探さずに、コマンドボタンをクリックしたら開きたいファイル名を指定するだけでいいようにしたいのですが。
下記では、ファイルを開くダイアログは表示されるのですが、ファイルの場所を毎回探さなくてはいけません。
どなたかご教授下さい。

Private Sub Cmd_ファイル選択_Click()
Dim FileName As Variant
FileName=Application.GetOpenFileName("Microsoft Excelブック,*.xls")
Workbooks.Open OpenFileName
End Sub

回答No.1

hige_082 · ベストアンサー

カレントドライブ及びカレントフォルダを設定します

Private Sub Cmd_ファイル選択_Click()
Dim FileName As Variant

ChDrive "D"
ChDir "D:\Test"

FileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
Workbooks.Open FileName
End Sub

参考まで