Este macro sirve para abrir un archivo de Excel. Al ejecutarlo obtenemos esta ventana:
(Para mayor visualización de la imagen, hacer click en la misma)
El código es el siguiente:
Sub AbrirArchivo()
Dim FName As Variant
FName = Application.GetOpenFilename("Excel (*.xl*), *.xl*", Title:="Seleccionar Archivo")
If FName <> False Then
Workbooks.Open Filename:=FName
End If
End Sub
Lo primero que hacemos es definir la variable como un variant, que es un tipo de dato utilizado para todas las variables que no tengan un tipo definido explícitamente ( Object, integer,etc).
Luego utilizamos el comando Application.GetOpenFilename para elegir el archivo que abriremos, éste recibe cuatro parámetros: FileFilter, FilterIndex, Title, ButtonText, MultiSelect.
FileFilter: Sirve para filtrar los tipos de archivos que se podrán abrir, en este caso *.xl* significa cualquier archivo que termine en .xl y algo.
Filter Index: Especifica los números de índice de los criterios de filtro de archivo predeterminados, desde 1 hasta el número de filtros especificado en FileFilter. Si este argumento se omite o es mayor que el número de filtros presentes, se usa el primer filtro de archivo.
Title: Es el título que aparecerá en el cuadro que aparece para abrir el archivo.
Buttontext: Solo se usa en Macintosh
Multiselect: Es un valor true or false que determina si se puede seleccionar más de un archivo, por default es false.
Luego, el If funcionará si es que se ha seleccionado un archivo, y se abrirá el archivo seleccionado.
Escrito por: Christian Sanders Aspíllaga
Archivo: AbrirArchivo