从 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