wincc中读写excel,并能打印表格

以下是在 WinCC 中读写 Excel 并能打印表格的例程：

1. 建立一个 Excel 应用程序对象：

Dim excelApp
Set excelApp = CreateObject("Excel.Application")

2. 打开 Excel 文件：

Dim excelWorkbook
Set excelWorkbook = excelApp.Workbooks.Open("C:\Temp\myWorkbook.xlsx")

3. 读取单元格的值：

Dim cellValue
cellValue = excelWorkbook.Worksheets(1).Cells(1, 1).Value

4. 写入单元格的值：

excelWorkbook.Worksheets(1).Cells(1, 1).Value = "myValue"

5. 打印表格：

excelWorkbook.Worksheets(1).PrintOut

6. 关闭 Excel 文件：

excelWorkbook.Close

7. 释放 Excel 应用程序对象：

excelApp.Quit
Set excelApp = Nothing

注意：在使用此例程之前，您需要将 Excel 文件路径更改为您实际使用的路径，并且确保已正确安装 Excel 应用程序。此外，打印表格的效果可能会因为打印机配置的不同而有所差异。