Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
abrir libro macros

Abrir un libro con Macros

| 0 comments

Este macro sirve para abrir un archivo de Excel. Al ejecutarlo obtenemos esta ventana:

imagen3

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: FileFilterFilterIndexTitleButtonTextMultiSelect.

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

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5