excel - ExcelVBAからファイルを参照する

Question

Excelで実行されているVBAから「ファイルを開く」ダイアログを表示するにはどうすればよいですか？

私はExcel2003を使用しています。

Answer 1

関数が必要ですApplication.GetOpenFilename。VBAオブジェクトブラウザからのコピー：

関数GetOpenFilename（[FileFilter]、[FilterIndex]、[Title]、[ButtonText]、[MultiSelect]）
Excel.Applicationのメンバー

Answer 2

ComDLG32.OCXへの参照を追加してから、次のようにします...

Sub PromptForFile()
Dim d As New MSComDlg.CommonDialog

d.Filter = "xls"
d.Filename = "*.xls"
d.ShowOpen

Excel.Workbooks.Open d.Filename

Set d = Nothing
End Sub