我需要一段Wincc与excel数据交互的VB代码，交互10个数据

以下是一个简单的WinCC和Excel数据交互的VB代码，可供参考：

'声明变量
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlSheet As Object
Dim i As Integer

'打开Excel文件
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("C:\example.xlsx")
Set xlSheet = xlWorkbook.Sheets("Sheet1")

'将数据从WinCC导入到Excel
For i = 1 To 10
    xlSheet.Cells(i, 1) = TagRead("Tag" & i)
Next i

'将数据从Excel导入到WinCC
For i = 1 To 10
    TagWrite "Tag" & i, xlSheet.Cells(i, 2)
Next i

'关闭Excel文件
xlWorkbook.Close SaveChanges:=True
xlApp.Quit

'Release objects
Set xlSheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing

代码中，我们首先声明了变量 xlApp、xlWorkbook 和 xlSheet，分别代表 Excel 应用程序、工作簿和工作表。然后通过 CreateObject 方法打开 Excel 文件，并指定要操作的工作表。

接下来，我们使用 for 循环将 WinCC 中的数据写入到 Excel 中的第一列，再将 Excel 中第二列的数据读取到 WinCC 中的变量中。

最后，我们关闭 Excel 文件并释放所使用的对象，以便程序能够正常结束。

请注意，此代码仅供参考，具体操作需要根据实际情况进行调整。