Procurar um arquivo do Excel VBA

Question

Como posso colocar uma caixa de diálogo "Abrir arquivo" de alguns VBA executando no Excel?

Estou usando o Excel 2003.

Answer 1

Você quer que a função Application.GetOpenFilename. Copiando do VBA Object Browser:

GetOpenFilename Function ([FileFilter], [FilterIndex], [Título], [ButtonText], [MultiSelect])
Membro do Excel.Application

Answer 2

Adicione uma referência para Comdlg32.ocx e, em seguida, algo como ...

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