기술나눔

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

머리말

이 섹션에서는 VBA 메서드를 사용하여 Excel 통합 문서를 열고, Excel 통합 문서를 저장 및 닫고, 각각 Open, Save 및 Close 메서드를 사용하는 방법을 소개합니다.

---

1. Open 메서드를 사용하여 통합 문서를 엽니다.

Workbooks.Open(파일 이름, UpdateLinks, 읽기 전용, 형식, 비밀번호, 쓰기 권한 비밀번호, 무시-읽기 전용 권한, 원본, 구분 기호, 편집 가능, 알림, 변환기, AddToMru, 로컬, 손상-로드)
虽参数较多，但只有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. 파일을 저장하고 닫습니다.

엑셀 통합 문서를 열어서 내용을 조작한 후, 저장하고 닫고 싶을 때 Save and Close 메소드를 이용하면 됩니다.

예: 현재 경로에서 Employee.xlsx 파일을 연 후 Sheet1의 셀 A1에 현재 날짜를 쓴 후 Employee.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