VBS脚本实现EXCEL数据批量写入与检查

本文档主要介绍了如何使用Visual Basic Script (VBS)脚本来读写Microsoft Excel电子表格。VBS是Visual Basic的一种轻量级版本，常用于自动化任务，包括与Excel的交互。以下是文档中的关键知识点： 1. **错误处理**: 在VBS脚本中，`OnErrorResumeNext`语句被用于处理错误时继续执行，而不是中断程序。这是在编写过程中确保脚本在遇到常见错误时能保持稳定运行的重要部分。 2. **对象模型**: - `Set objExcelApp = CreateObject("Excel.Application")`: 创建一个Excel应用程序的对象实例，用来操作Excel工作簿。 - `objExcelApp.Visible = True`: 设置Excel应用可见，便于用户观察脚本的操作过程。 3. **文件操作**: - `fso.FileExists(template)` 和 `fso.FileExists(filepath)`：检查文件是否存在，用于决定是否打开或创建新的Excel文件。 - `CreateObject("Scripting.FileSystemObject")`：创建FileSystemObject（FSO）用于文件系统操作，如文件路径的拼接和文件的创建、读取、写入等。 4. **读写数据**: - 使用`objExcelApp.Worksheets(sheetname).cells(i, j).value`来访问并设置单元格的值，这里通过循环遍历4个变量(`HMIRuntime.Tags("TEST_R"&i).Read`)写入到指定的工作表`Sheet1`的不同单元格。 - 也可以通过索引直接写入单个变量值，例如`objExcelApp.Worksheets(sheetname).cells(2,2).value = HMIRuntime.Tags("TEST_R1").Read`。 5. **模板文件和新文件的使用**: - `template`变量存储了模板文件的路径，脚本会先检查这个模板文件是否存在。 - 如果`filepath`对应的文件已存在，将打开并写入数据；若不存在，则打开模板文件，并在写入数据后将结果保存到指定的报告路径下，以当前日期命名。 6. **时间格式转换**: `Now2SQLDate()`函数可能用于将当前日期转换为适合Excel使用的日期格式，确保文件名的唯一性。 该VBS脚本提供了一个基础框架，展示了如何利用VBS来读取自定义变量并将它们写入Excel文件，同时处理了文件操作和可能出现的错误。这对于自动化数据分析或批量处理Excel数据具有实际应用价值。