Browse for a File from Excel VBA

问题

How can I put up a "File Open" dialog from some VBA running in Excel?

I'm using Excel 2003.

回答1:

You want the Application.GetOpenFilename function. Copying from VBA Object Browser:

Function GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
Member of Excel.Application

回答2:

Add a reference to ComDLG32.OCX and then something like...

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 

来源：https://stackoverflow.com/questions/221444/browse-for-a-file-from-excel-vba