Обмен технологиями

한어Русский языкEnglishFrançaisIndonesianSanskrit日本語DeutschPortuguêsΕλληνικάespañolItalianoSuomalainenLatina

Предисловие

В этом разделе рассказывается, как использовать метод VBA для открытия книги Excel, сохранения и закрытия книги Excel, а также использовать методы Open, Save и Close соответственно.

---

1. Используйте метод Open, чтобы открыть книгу.

Workbooks.Open(ИмяФайла,ОбновитьСсылки,ТолькоЧтение,Формат,Пароль,WriteResPassword,Игнорировать-ТолькоЧтениеРекомендуется,Источник,Разделитель,Редактируемый,Уведомить,Конвертер,ДобавитьВMru,Локальный,Поврежденный-Загрузка)
虽参数较多，但只有FileName为必填参数，表示需要打开的工作簿文件名，关于参数说明请参考下表：

Пример 1. Откройте книгу 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

Пример 2. Откройте книгу Excel по текущему пути.

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. Сохраните и закройте файл.

Когда вы открываете книгу Excel и управляете ее содержимым, а затем хотите сохранить и закрыть ее, вы можете использовать методы «Сохранить» и «Закрыть».

Пример. После открытия файла «Сотрудник.xlsx» по текущему пути после записи текущей даты в ячейку A1 на листе «Лист1» сохраните и закройте файл «Сотрудник.xlsx». Полный код выглядит следующим образом:

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