Truco Excel. Application GetOpenFilename el explorador de archivos sencillo en macro
Application.GetOpenFilename y como parámetros el texto y el tipo de archivo. Un truco de Excel para meter en una macro el explorador de archivos más sencillo. Por ejemplo, para obtener los archivos de Word de un directorio podremos hacer: Sub obtiene_documento() Dim documento As Variant documento = Application.GetOpenFilename("Archivos Word (*.doc*), *.doc*") If documento <> False Then Cells(1, 1).Value = documento End If End Sub Si ejecutamos esta macro, se abrirá un explorador de Windows y podremos seleccionar archivos del tipo .doc. Nuestra selección la escribimos en la celda (1,1). Para múltiples selecciones… Otro día haremos un “importador masivo” de datos en Excel. El más sencillo explorador de Windows en una macro de Excel. Saludos.