从Excel VBA中浏览文件

Question

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

我正在使用Excel 2003.

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