Cómo abrir, guardar y cerrar un libro de Excel en VBA

2024-07-12

Prefacio

Esta sección presentará cómo usar el método VBA para abrir un libro de Excel, guardar y cerrar el libro de Excel y usar los métodos Abrir, Guardar y Cerrar respectivamente.

1. Utilice el método Abrir para abrir el libro.

Workbooks.Open(NombreArchivo,EnlacesActualizar,SoloLectura,Formato,Contraseña,ContraseñaReescritura,Ignorar-RecomendadoSoloLectura,Origen,Delimitador,Editable,Notificar,Conversor,AgregarAMru,Local,CargarDañado)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

parámetro	ilustrar
Nombre del archivo	Se requiere el nombre de archivo del libro de trabajo que debe abrirse y la ruta absoluta del archivo.
ActualizarEnlaces	Especifica cómo se actualizan las referencias externas (enlaces) en el libro.Los valores posibles son 0 o 3, lo que significa respectivamente no actualizar las referencias externas al abrir el libro y actualizar las referencias externas al abrir el libro.
Solo lectura	Cuando es Verdadero, significa abrir el libro en modo de solo lectura.
Formato	Al abrir un archivo de texto, utilice este parámetro para especificar el delimitador. Los valores posibles son 1 (tabulador), 2 (coma), 3 (espacio), 4 (punto y coma), 5 (ninguno), 6 (carácter personalizado, especificado por el parámetro Delimitador)
Contraseña	Si el libro que se va a abrir tiene una contraseña de apertura establecida, utilice este parámetro para proporcionar la contraseña.Si se establece una contraseña pero este parámetro no se completa, aparecerá un cuadro de diálogo solicitando al usuario que ingrese la contraseña.
EscribirResContraseña	Si el libro que se va a abrir tiene una contraseña para proteger la estructura, utilice este parámetro para proporcionar la contraseña correspondiente.
IgnorarSoloLecturaRecomendado	Cuando es Verdadero, significa no mostrar información recomendada de solo lectura.
Origen	Al abrir un archivo de texto, utilice este parámetro para indicar de qué sistema operativo se originó el archivo, para manejar correctamente las páginas de códigos y los retornos de carro/avances de línea. Los valores posibles son las constantes xlMacintosh, xlWindows, xlMSDOS.
Delimitador	Al abrir un archivo de texto, si el parámetro Formato está establecido en 6, utilice este parámetro para especificar el carácter como separador. Si se configuran varios caracteres, solo se tomará el primero de forma predeterminada.
Editable	Si el archivo a abrir es un complemento de Excel 4.0, cuando el valor de este parámetro es True, el complemento es una ventana visible; si es False o se ignora este parámetro, el complemento se abre en modo oculto; modo y no se puede hacer visible; este parámetro no se puede utilizar en las versiones 5.0 y superiores.
Notificar	Cuando el archivo que se va a abrir no se puede abrir en modo lectura-escritura, si el valor de este parámetro es Verdadero, el archivo se puede agregar a la lista de notificación de archivos. Excel abrirá el archivo en modo de solo lectura y sondeará la lista de notificaciones de archivos, notificando al usuario cuando el archivo esté disponible.Si el valor de este parámetro es Falso o se omite, no se solicita ninguna notificación y no se pueden abrir los archivos no disponibles.
Convertidor	El número de índice del convertidor de archivos que se intentó utilizar por primera vez al abrir el archivo. Si el convertidor de archivos especificado no reconoce el archivo, intente utilizar otro convertidor.
Agregar a mru	Si el valor de este parámetro es Verdadero, el trabajo no se agregará a la lista de archivos usados recientemente. El valor predeterminado es falso
Local	Si el valor de este parámetro es Verdadero, el archivo se guardará en el idioma de Excel (incluida la configuración del panel de control). El valor predeterminado es Falso, el archivo se guardará en el idioma de VBA.
Carga corrupta	Los valores disponibles son las constantes xlNormalLoad, xlRepairFile y xlExtractData, que significan, respectivamente, abrir el libro normalmente, intentar reparar el libro e intentar restaurar los datos en el libro. El valor predeterminado es xlNormalLoad

Ejemplo 1: abrir un libro de Excel

Sub OpenExcelFile()
    
    Dim strFileName As String
    ' 定义文件名称
    strFileName = "D:VBAEmployee.xlsx"
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10

Ejemplo 2: abrir el libro de Excel en la ruta actual

Sub OpenExcelFile()

    Dim strFileName As String
    Dim strFilePath
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14

2. Guarde y cierre el archivo.

Cuando abre un libro de Excel y opera su contenido, y luego desea guardarlo y cerrarlo, puede usar los métodos Guardar y Cerrar.

Ejemplo: después de abrir el archivo Employee.xlsx en la ruta actual, después de escribir la fecha actual en la celda A1 de la Hoja1, guarde y cierre el archivo Employee.xlsx. El código completo es el siguiente:

Sub WriteCurrentDate()
    
    ' 申明变量
    Dim strFileName As String
    Dim strFilePath
    Dim ws As Worksheet
    Dim wb As Workbook
    
    ' 定义文件名称
    strFileName = "Employee.xlsx"
    ' 获取当前路径
    strFilePath = ThisWorkbook.Path
    
    ' 打开工作簿
    Workbooks.Open Filename:=strFilePath & "" & strFileName
    
    ' 定义sheet1工作表对象以及当前打开的工作簿对象
    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Set wb = ActiveWorkbook
    
    ' A1单元格写入当前日期
    ws.Range("A1").Value = Date
    
    ' 保存并关闭文件
    wb.Save
    wb.Close
    
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Compartir tecnología