こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBAについて

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

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

投稿日時 - 2010-04-06 22:44:28

QNo.5807832

困ってます

質問者が選んだベストアンサー

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

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

ChDrive "D"
ChDir "D:\Test"

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

参考まで

投稿日時 - 2010-04-07 00:04:35

このQ&Aは役に立ちましたか?

5人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問