请用WinccVBS写读取EXCEL脚本

在WinCC VBA (Visual Basic for Applications) 中，你可以编写脚本来读取和操作Excel文件。以下是一个简单的示例，演示如何使用VBA从Excel读取数据：

Sub ReadExcelFile()
    Dim objExcel As Object ' 创建Excel应用对象
    Set objExcel = CreateObject("Excel.Application") ' 创建Excel应用程序实例

    Dim wb As Workbook ' 工作簿对象
    Dim ws As Worksheet ' 工作表对象
    Dim rng As Range ' 范围对象

    ' 打开Excel工作簿
    Set wb = objExcel.Workbooks.Open("C:\Path\To\Your\Workbook.xlsx")
    
    ' 指定需要读取的工作表
    Set ws = wb.Sheets("Sheet1")

    ' 读取特定单元格的数据
    Set rng = ws.Range("A1") ' 假设你想读取A1单元格
    MsgBox "Data from A1: " & rng.Value ' 输出单元格内容到消息框

    ' 关闭工作簿并释放资源
    wb.Close SaveChanges:=False
    objExcel.Quit
    
    ' 设置变量为无
    Set rng = Nothing
    Set ws = Nothing
    Set wb = Nothing
    Set objExcel = Nothing
End Sub

这个脚本首先创建了一个Excel应用程序实例，然后打开指定的Excel工作簿，选择第一个工作表，读取A1单元格的内容，并将其显示在一个消息框中。最后关闭工作簿并清理所有引用。