excel - 从 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