### VBS脚本读写EXCEL方法介绍
#### 一、概述
VBS（Visual Basic Script Edition）是一种轻量级的脚本语言，基于Visual Basic语法。它可以在Windows平台上运行，用于实现各种自动化任务，例如读取或写入Excel文件等操作。本文将详细介绍如何使用VBS脚本来实现对Excel文件的读写操作。
#### 二、环境搭建与准备
在进行VBS脚本编写之前，确保计算机上安装了Microsoft Office，因为VBS脚本会通过COM接口调用Excel应用程序来完成相关操作。
#### 三、写入Excel文件
写入Excel文件主要包括以下几个步骤：
1. **初始化对象**：
- 使用`CreateObject`创建Excel应用对象。
- 设置Excel应用程序的可见性。
- 打开模板文件或新文件。
2. **写入数据**：
- 激活指定的工作表。
- 使用循环或直接赋值的方式写入数据到单元格。
3. **保存文件**：
- 保存当前活动的工作簿。
- 关闭Excel工作簿并退出Excel应用。
4. **释放资源**：
- 清空引用的对象以释放内存资源。
示例代码如下：
```vbscript
On Error Resume Next
Dim objExcelApp
Dim fso
Dim sheetname
Dim filepath
Dim template
' 定义模板文件的路径和名称
template = HMIRuntime.ActiveProject.Path & "\USRFILE\template_test.xlsx"
' 定义文件的完整路径
filepath = HMIRuntime.ActiveProject.Path & "\Report\" & Now2SQLDate() & ".xlsx"
' 工作表名称
sheetname = "Sheet1"
' 创建文件系统对象模型
Set fso = CreateObject("Scripting.FileSystemObject")
' 判断模板文件是否存在
If (fso.FileExists(template)) Then
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
' 判断文件是否存在
If (fso.FileExists(filepath)) Then
objExcelApp.Workbooks.Open filepath
Else
objExcelApp.Workbooks.Open template
End If
' 激活工作表
objExcelApp.Worksheets(sheetname).Activate
' 循环写入数据
Dim i
For i = 1 To 4
objExcelApp.Worksheets(sheetname).Cells(i + 1, 2).Value = HMIRuntime.Tags("TEST_R" & i).Read
Next
' 保存文件
If (fso.FileExists(filepath)) Then
objExcelApp.ActiveWorkbook.Save
Else
objExcelApp.ActiveWorkbook.SaveAs filepath
End If
' 关闭并退出Excel
objExcelApp.Workbooks.Close
objExcelApp.Quit
' 释放资源
Set objExcelApp = Nothing
Set fso = Nothing
Else
MsgBox "表格模板文件未找到，请创建模板文件！"
End If
' 错误处理
If Err.Number <> 0 Then
MsgBox "脚本执行错误，请联系工程师检查处理 !" & vbCrlf & "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
End If
```
#### 四、读取Excel文件
读取Excel文件的操作流程与写入类似，主要区别在于不需要进行数据写入操作，而是读取数据到脚本中的变量。
1. **初始化对象**：
- 创建Excel应用对象。
- 打开目标文件。
2. **读取数据**：
- 激活指定的工作表。
- 读取指定单元格的数据。
3. **关闭文件**：
- 关闭Excel工作簿。
- 退出Excel应用。
4. **释放资源**：
- 清空引用的对象以释放内存资源。
示例代码如下：
```vbscript
On Error Resume Next
Dim objExcelApp
Dim fso
Dim sheetname
Dim filepath
' 文件的完整路径
filepath = HMIRuntime.ActiveProject.Path & "\Report\" & Now2SQLDate() & ".xlsx"
' 工作表名称
sheetname = "Sheet1"
' 创建文件系统对象模型
Set fso = CreateObject("Scripting.FileSystemObject")
' 判断文件是否存在
If (fso.FileExists(filepath)) Then
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False
objExcelApp.Workbooks.Open filepath
objExcelApp.Worksheets(sheetname).Activate
' 读取数据示例
Dim data
data = objExcelApp.Worksheets(sheetname).Cells(2, 2).Value
' 关闭并退出Excel
objExcelApp.Workbooks.Close
objExcelApp.Quit
' 释放资源
Set objExcelApp = Nothing
Set fso = Nothing
Else
MsgBox "文件未找到，请确认文件路径是否正确！"
End If
' 错误处理
If Err.Number <> 0 Then
MsgBox "脚本执行错误，请联系工程师检查处理 !" & vbCrlf & "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
End If
```
#### 五、总结
通过上述示例，我们了解了如何使用VBS脚本进行Excel文件的基本读写操作。需要注意的是，在实际应用中还需要考虑错误处理、异常捕获等问题，以确保脚本的健壮性和稳定性。此外，还可以进一步扩展功能，如增加更多的读写逻辑、支持不同类型的文件格式等，从而满足更多场景的需求。
