从Excel VBA浏览文件

如何从Excel中运行的VBA中打开“文件打开”对话框

---

我正在使用Excel2003

添加对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 

---

您需要

应用程序.GetOpenFilename

函数。从VBA对象浏览器复制：

函数GetOpenFilename（[FileFilter]、[FilterIndex]、[Title]、[ButtonText]、[MultiSelect]）
Excel应用程序的成员