¿cómo abrir un libro de trabajo en vba?
Para abrir un libro de trabajo usando VBA, debe usar el método «Workbook.Open» y especificar la ruta del archivo (asegúrese de especificar la ruta completa del libro de trabajo con el nombre y el tipo de archivo de extensión). Este método tiene un total de quince argumentos opcionales que puede utilizar para procesar diferentes tipos de archivos.
En este tutorial, lo exploraremos en detalle y veremos un método alternativo que puede utilizar.
Pasos para abrir un libro usando VBA
- Para iniciar el código, utilice el objeto «Libros de trabajo».
- Escriba un punto (.) después de eso y seleccione el método Abrir de la lista.
- Especifique la ruta del archivo en el primer argumento y asegúrese de incluirla entre comillas dobles.
- Al final, ejecute el código para abrir el libro de trabajo.
Sub vba_open_workbook() Workbooks.Open "C:UsersDellDesktopmyFile.xlsx" End Sub
Enlaces útiles: Ejecutar una macro – Grabador de macros – Editor de Visual Basic – Manual de macros personales
Libro de trabajo. Sintaxis abierta
Ahora es el momento de observar la sintaxis del método que acaba de utilizar en el ejemplo anterior. Como mencioné, hay quince argumentos que puedes usar:
expression.Open (FileName, UpdateLinks, _ ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, _ Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
No utilizará todos estos argumentos. Pero algunos de ellos son bastante importantes y pueden resultarle útiles en el mundo real.
Abrir un libro protegido con contraseña
Si desea abrir un libro protegido con contraseña, en este caso puede especificar la contraseña con el argumento contraseña.
Aquí tengo un libro en el escritorio que tiene la contraseña «test123» y ahora quiero abrirlo y desprotegerlo al mismo tiempo. Aquí está el código que necesito usar.
Workbooks.Open "C:UsersDellDesktopmyFile.xlsx", , , Password:="test123"
Abrir un libro de solo lectura
Cuando abre un libro de solo lectura, no puede realizar cambios en el mismo libro, pero debe guardar una copia del mismo.
Workbooks.Open "C:UsersDellDesktopFolder1.xlsx", , True
Abrir todos los libros en una carpeta
Sub vba_open_multiple_workbooks_folder() Dim wb As Workbook Dim strFolder As String Dim strFile As String strFolder = "C:UsersDellDesktopFolder" strFile = Dir(strFolder & "*.xls*") Do While strFile <> "" Set wb = Workbooks.Open(strFolder & strFile) strFile = Dir Loop End Sub
Para usarlo según sus requisitos, asegúrese de cambiar la ruta de la carpeta.
Cuadro de diálogo Abrir archivo de libro de trabajo
Sub vba_open_dialog() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) End Sub