Reputation: 13761
How can I put up a "File Open" dialog from some VBA running in Excel?
I'm using Excel 2003.
Upvotes: 3
Views: 18781
Reputation: 95911
You want the Application.GetOpenFilename
function. Copying from VBA Object Browser:
Function GetOpenFilename([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
Member of Excel.Application
Upvotes: 9
Reputation: 42227
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
Upvotes: 2