技術共有

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

序文

このセクションでは、VBA メソッドを使用して Excel ブックを開く方法、Excel ブックを保存して閉じる方法、および Open、Save、Close メソッドをそれぞれ使用する方法を紹介します。

---

1. Open メソッドを使用してブックを開きます

Workbooks.Open(ファイル名、リンクの更新、読み取り専用、形式、パスワード、パスワードの書き込み、読み取り専用を無視、元の場所、区切り文字、編集可能、通知、コンバーター、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 ブックを開いてその内容を操作し、保存して閉じる場合は、Save メソッドと 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