【发布时间】：2010-09-18 07:09:32
【问题描述】：
如何从 Excel 中运行的某些 VBA 中设置“文件打开”对话框？
我使用的是 Excel 2003。
【问题讨论】：
标签： excel excel-2003 fileopendialog vba
【发布时间】：2010-09-18 07:09:32
【问题描述】：
添加对 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
【讨论】：
您需要Application.GetOpenFilename 函数。从 VBA 对象浏览器复制：
函数 GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
Excel.Application 成员
【讨论】：