excel-vba - una - macro para renombrar archivos

Buscar un archivo de Excel VBA

Question

¿Cómo puedo poner un cuadro de diálogo "Abrir archivo" de algún VBA que se ejecuta en Excel?

Estoy usando Excel 2003.

Answer 1

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

Answer 2

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

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