Abrir y cerrar el libro de Excel con VBA
En este artículo, aprenderemos sobre el método de cierre y apertura en Excel VBA que se utiliza para abrir el libro de trabajo cerrado y también cerrar el libro de trabajo abierto.
Creamos un botón de comando en la hoja de Excel y asignamos una macro.
Para saber cómo crear un control Activex, haga clic en link: / tips-activex-controls-in-microsoft-excel-2010 [link]
¿Cómo abrir un libro de Excel a través de VBA?
Siga los siguientes pasos y codificación: – * Inserte 2 botones de comando.
-
Primer botón de comando que usamos para hacer clic con el botón derecho del mouse en el botón de comando.
-
La página VBE se abrirá y copiará la siguiente codificación y la pegará en la página VBE.
-
Para abrir el libro de trabajo, asigne la macro mencionada a continuación.
Sub sOpenWorkbook ()
‘definir variable para el nombre de archivo Dim csFileName As String’ obtener el nombre de archivo de la celda A1 en Sheet1 csFileName = ThisWorkbook.Sheets («Ejemplo de apertura y cierre»). Rango («A1»)
‘abre el libro de trabajo Workbooks.Open csFileName MsgBox csFileName & «open»
End Sub * Segundo botón de comando que usamos para hacer clic con el botón derecho del mouse en el botón de comando.
-
La página VBE se abrirá y copiará la siguiente codificación y la pegará en la página VBE.
-
Para abrir el libro de trabajo, asigne la macro mencionada a continuación.
Sub sCloseWorkbook ()
‘definir variable para el nombre de archivo Dim csFileName As String’ obtener el nombre de archivo de la celda A1 en Sheet1 csFileName = ThisWorkbook.Sheets («Ejemplo de apertura y cierre»). Rango («A1»)
‘cierre el libro de trabajoLibros de trabajo (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). CloseMsgBox Split (csFileName, «\») (UBound (Split (csFileName, «\»))) & «cerrado»
End Sub Ambas macros se asignarán a los botones de comando, tenemos que usar la siguiente codificación de macros.
Opción Sub explícito sExample () Const csFileName As String = _ «C: \ Test \ Master.xlsx» Workbooks.Open csFileNameWorkbooks (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). Cerrar End Sub Sub sOpenWorkbook ()
‘definir variable para el nombre de archivo Dim csFileName As String’ obtener el nombre de archivo de la celda A1 en Sheet1 csFileName = ThisWorkbook.Sheets («Ejemplo Abrir y Cerrar»). Range («A1») ‘abrir el libro Workbooks.Open csFileNameMsgBox csFileName & «abierto «
End Sub Sub sCloseWorkbook ()
‘definir variable para el nombre de archivo Dim csFileName As String’ obtener el nombre de archivo de la celda A1 en Sheet1 csFileName = ThisWorkbook.Sheets («Ejemplo de apertura y cierre»). Rango («A1»)
‘cierre el libro de trabajoLibros de trabajo (Split (csFileName, «\») (UBound (Split (csFileName, «\»)))). CloseMsgBox Split (csFileName, «\») (UBound (Split (csFileName, «\»))) & «cerrado»
End Sub Nota: – Debe mencionar la ruta de acuerdo con su archivo.
