Libro de Excel VBA abierto
Las operaciones más comunes en el día a día es abrir un Excel Workbooks cuando trabaja con Excel. No puede trabajar en Excel sin abrir los libros de Excel o el archivo de Excel. Entonces, en este artículo, cubriremos cómo podemos abrir un Excel Workbooks con la ayuda de VBA.
Métodos para abrir libros de trabajo de Exel en VBA
Hay dos métodos para abrir Excel Workbooks en VBA y cubriremos ambos métodos en este artículo.
Puede descargar esta plantilla de Excel de Open Workbook VBA aquí - Plantilla de Excel de Open Workbook VBAMétodo n. ° 1: Excel VBA Workbooks.Open Method
El primer método en el VBA es usar la función incorporada Workbooks.open . Hay 15 argumentos opcionales en la función "Workbooks.open" y cubrir los 15 argumentos llevará mucho tiempo. Por lo tanto, trataremos de comprender algunos conceptos básicos de Workbooks.open y veremos cómo podemos usar esta función en VBA para abrir los Workbooks.
Entonces, el primer paso en este método es que debe conocer el nombre del archivo de los libros de Excel. A continuación se muestra la declaración para abrir los libros de trabajo ". Workbookss.open" File_Name "
O
Workbookss.Open Filename: = ”File_Name”
"File_Name" es el nombre de los libros de trabajo que desea abrir. Pero debe tener cuidado aquí porque debe proporcionar la ruta completa donde se guarda el archivo y el nombre del archivo con la extensión de los archivos (.XLS, .XLSX, .xlsm, etc.). Podemos tomar el ejemplo de la macro siguiente para comprender esta función.
Ejemplo
Suponga que desea abrir un archivo de Excel con el nombre "Archivo de prueba" que se guarda en la unidad D de la computadora. Cree una macro en un libro de Excel habilitado para macros. Siga los pasos a continuación para usar el método Excel VBA Workbooks.open.
Paso 1: haz clic en Archivo.
Paso 2: haz clic en Opciones .
Paso 3: haz clic en Personalizar cinta de opciones .
Paso 4: asegúrese de que el campo Desarrollador esté marcado como se muestra a continuación y haga clic en Aceptar.
Paso 5: Una vez que tenga la pestaña de desarrollador, haga clic en Visual Basic como se muestra en la siguiente captura de pantalla.
Después de hacer clic en Visual Basics, debe comenzar a codificar su macro.
Paso 6: Ingrese el siguiente código en el Módulo VBA.
Código:
Sub Open_workbook () End Sub
Este código proporciona el nombre de su libro de trabajo.
Paso 7: Ingrese el código que puede abrir el libro de trabajo guardado en la unidad D de la computadora.
Código:
Sub Open_workbook () Workbooks.Open Filename: = "D: \ Test File.xlsx" End Sub
Paso 8: Ejecute el código presionando la tecla F5 o haciendo clic en el botón Reproducir. Después de ejecutar la macro, encontrará que el archivo de Excel se abre automáticamente. Como puede ver en el código anterior, la macro abrirá el archivo de Excel con el nombre "Test File.xlsx" que se guarda en la unidad D de la computadora. La ruta mencionada anteriormente es bastante simple porque no hay carpetas y subcarpetas para obtener los libros.
Esto se vuelve desafiante porque muchas personas no recuerdan la ruta y si la ruta del archivo donde se guarda cambia un poco, la macro no funcionará. La macro no funcionará incluso si el Nombre del archivo cambia con una sola letra. Entonces, si la ruta / nombre del archivo cambia, debe cambiar el código VBA de la macro. Esto hace que el trabajo sea tedioso y tampoco está libre de errores. Entonces, para asegurarnos de que su macro se ejecute perfectamente sin darle un error, usaremos el segundo método que es fácil de manejar y no le dará un error incluso cuando no recuerde el nombre de ruta o incluso cuando cambie el nombre del archivo .
Método # 2 - Obtener nombre de archivo abierto
Como sabe los desafíos que enfrentamos en el primer método del cambio en la ruta y el nombre del archivo, este método evita ambos desafíos. Este método le da la opción de navegar en su computadora a la ubicación donde está guardado su archivo y abre esos libros de trabajo particulares que desea abrir.
Este método en realidad funciona en dos partes.
La primera parte de este método es Application.GetOpenFileName. Esta parte le permite navegar a través de su computadora y seleccionar la ruta donde se guarda su archivo. La primera parte no abre el archivo que desea abrir.
La segunda parte es abrir el archivo para el que aún debe depender del primer método (VBA Workbooks.open Method). Hay 5 argumentos en Application.GetOpenFileName pero solo verán los conceptos básicos como lo hicimos en el primer método. Ahora intentemos comprender este método con la ayuda de un ejemplo.
Ejemplo
Supongamos que desea abrir el "Archivo de prueba" guardado en la unidad D de la computadora, entonces solo necesita seguir los pasos a continuación.
Paso 1: siga el paso 1 mencionado en el primer ejemplo para abrir el Editor de Visual Basic o Abrir el Editor de Visual Basic desde la pestaña Desarrollador.
Paso 2: Ingrese el siguiente código que proporciona el nombre de su macro.
Código:
Sub Open_workbook_example2 () End Sub
Paso 3: ingrese el siguiente código. Esta declaración declara el nombre de archivo como variable porque aquí no estamos especificando ninguna ruta o nombre de archivo porque puede cambiar de vez en cuando.
Código:
Sub Open_workbook_example2 () Dim Myfile_Name As Variant End Sub
Paso 4: Ingrese el siguiente código. Esta declaración abre el cuadro de diálogo a continuación y puede examinar las carpetas para ir a la ruta donde se guarda el archivo. Además, mostrará el archivo de Excel mientras navega porque hemos puesto un filtro para los archivos de Excel.
Código:
Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") End Sub
Paso 5: Ingrese el siguiente código. Esta instrucción es la instrucción If Then que se usa cuando el archivo .Name no es igual a falso y luego abre el archivo Excel seleccionado.
Código:
Sub Open_workbook_example2 () Dim MyFile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") If Myfile_Name False Then Workbooks.Open Filename: = Myfile_Name End Sub
Paso 6: Ingrese el siguiente código. Esta declaración cierra la condición If then en la Macro.
Código:
Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") If Myfile_Name False Then Workbooks.Open Filename: = Myfile_Name End If End Sub
Paso 7: Ahora ejecuta el código presionando la tecla F5 o haciendo clic en el botón Reproducir. Verá que se abre el cuadro de diálogo para explorar el archivo. Navegue hasta el escritorio donde está guardado su archivo. Ahora podrá ver el archivo en la Unidad D. Seleccione el archivo y haga clic en abrir.
Ahora, como acabamos de ver en nuestro ejemplo, no necesitamos preocuparnos por el nombre del archivo y el nombre de la ruta donde se guarda el archivo. Podemos navegar fácilmente a la carpeta donde está guardado nuestro archivo y seleccionar el archivo que queremos abrir. Por lo tanto, podemos concluir fácilmente que este método es mucho más eficiente en comparación con el primer método.
Cosas para recordar
- Asegúrese de que la ruta y el nombre del archivo sean correctos mientras usa el primer método. La macro no funcionará cuando haya un cambio por letra o espacio en la ruta o el nombre del archivo.
- Asegúrese de que los filtros mencionados en el código del segundo método sean correctos. Hay muchos formatos de Excel que pueden no ser visibles debido a un filtro.
- Asegúrese de que la declaración y el código utilizado en el VBA sean correctos para evitar errores.
Artículos recomendados
Esta es una guía para VBA Workbook Open. Aquí discutimos dos métodos diferentes para abrir el libro de trabajo usando el código Excel VBA junto con ejemplos prácticos y una plantilla de Excel descargable. También puede consultar los siguientes artículos para obtener más información:
- Guía completa del libro de trabajo de VBA
- Fórmula HYPERLINK en Excel
- Abrir archivos con VBA FileDialog
- Ejemplos de hoja de cálculo de Excel