Truco Excel. Application GetOpenFilename el explorador de archivos sencillo en macro

26 Feb

Application.GetOpenFilename y como parámetros el texto y el tipo de archivo. Un truco 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 String
documento = Application.GetOpenFilename("Archivos Word (*.doc*), *.doc*")
Cells(1, 1) = documento
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.

Una respuesta a «Truco Excel. Application GetOpenFilename el explorador de archivos sencillo en macro»

  1. Hola programadores… Alguien me puede ayudar tengo dos macros en word pero no se como elegir primero a una de ellas y luego a la segunda desde el microsft excel.

    saludos
    Manuel

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *