从Excel中浏览文件VBA

Question

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

我使用Excel 2003中

Answer 1

您希望Application.GetOpenFilename功能。从VBA对象浏览器复制：

功能GetOpenFilename（[的FileFilter]，[FilterIndex]，[标题]，[ButtonText]，[多选]）
会员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