Buscar un archivo de Excel VBA

Question

¿Cómo puedo colocar un " Archivo abierto " cuadro de diálogo de algún VBA que se ejecuta en Excel?

Estoy usando Excel 2003.

Answer 1

Desea la función Application.GetOpenFilename . Copiando desde el navegador de objetos VBA:

  

Función GetOpenFilename ([FileFilter], [FilterIndex], [Title], [ButtonText], [MultiSelect])
      Miembro de Excel.Application

Answer 2

Agregue una referencia a ComDLG32.OCX y luego algo así 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