Excel Avanzado

Descargar como docx, pdf o txt
Descargar como docx, pdf o txt
Está en la página 1de 5

Excel Avanzado: Manejo de Libros de Excel con Macros

El manejo de Libros es primordial para el uso del Excel; por ello, en esta
presentacin se muestran algunos de sus usos.
El paso fundamental para la creacin de algn archivo en Excel, es la
creacin de un Libro.
A traves de este primer macros, se crea un libro de trabajo en blanco:

Asimismo, se presenta la forma de cierre mas sencilla del mismo, a traves


del comando:ActiveWorkbook.Close (False). Al poner False, estamos indicando que el archivo no
debe ser guardado. Sin embargo si se desean guardar los cambios se debe indicar (True) para que
aparesca la opcion de guardado de excel.

Por otro lado, tenemos la opcion de abrir un nuevo libro y guardarlo al


indicar la ruta de almacenamiento y nombre del archivo:
Sub AbrirYGuardarLibro1()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=C:\Users\Carolina Davila\Documents\ExcelAvanzado, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub

Con esto se creo un nuevo Libro que se llamo Excel Avanzado, el cual
tambin fue guardado en formato de Libro de Excel habilitado para Macros.

A continuacin se presenta un macros para abrir Libros ya existentes con


solo indicar la ruta en la que se encuentra el archivo:
Sub Abrirlibroexcel()
Application.DisplayAlerts = False
Application.DisplayAlerts = True
Workbooks.Open Filename:=H:\Stata Basico\Excel Avanzado Macros\Ejemplo Financiamiento
Para abrir archivos indicando ruta
End Sub

Otra de las formas para el manejo de Libros de trabajo es mediante el


siguiente macros. Este macros primero envia un cuadro de texto indicando
Escoja el archivo a abrir, el cual nos abrir la ventana que contiene todos

los archivos de la pc, en este caso, para abrir el Libro


EjemploFinanciamiento.
Sub abrirarchivo()
Msg = MsgBox(Escoja el archivo a Abrir., vbOKOnly, ())
EjemploFinanciamiento = Application.GetOpenFilename
On Error GoTo 99
Workbooks.OpenText Filename:=EjemploFinanciamiento
If EjemploFinanciamiento = Then Exit Sub
EjemploFinanciamiento = ActiveWindow.Caption
99:
End Sub

MessageBox: Escoja el archivo a Abrir.

Ventana para Abrir un archivo.

Archivo: EjemploFinanciamiento.

Por ltimo, si deseamos conocer el Nombre completo del archivo, es


decir conocer la ruta especfica donde se encuentra almacenado, podemos
usar el siguiente macros:
Sub MostrarRuta()
EjemploFinanciamiento = ActiveSheet.Parent.FullName
MsgBox ActiveWorkbook.FullName
End Sub

Elaborado por: Carolina Isa Dvila Cceres

También podría gustarte