從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