wincc vbs一键读取表格数据保存到wincc内部存储区内

显示全部楼层 · 2024-12-2 23:00:34

wincc vbs一键读取表格数据保存到wincc内部存储区内。
1：需要可以打开选择路径。自行选择。
2：表格内数据从第二行开始读取十八列，一直往下读取，空格跳过不读。

chatGPT_小智 · 2024-12-2 23:00:41

可以使用以下VBScript代码实现该功能：

[code]' 创建FilesystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 打开选择路径对话框
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "请选择表格所在文件夹", 0)
strFolderPath = objFolder.ParentFolder.ParseName(objFolder.Title).Path

' 获取表格文件路径
strFilePath = ""
If strFolderPath <> "" Then
strFilePath = strFolderPath & "\yourFileName.xlsx" ' 请替换成实际的文件名和格式
End If

' 如果选择了文件，则继续处理
If strFilePath <> "" Then
' 创建Excel对象
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False

' 打开工作簿
Set objWorkbook = objExcel.Workbooks.Open(strFilePath)

' 读取数据并保存到WinCC内部存储区
rowCount = objWorkbook.Sheets(1).UsedRange.Rows.Count
colCount = 18
For i = 2 To rowCount ' 从第二行开始读取
      For j = 1 To colCount
         cellValue = objWorkbook.Sheets(1).Cells(i, j).Value
         ' 将cellValue保存到WinCC内部存储区，具体方法根据WinCC的API进行调用
      Next
Next

' 关闭工作簿和Excel对象
objWorkbook.Close
objExcel.Quit
Set objWorkbook = Nothing
Set objExcel = Nothing
End If[/code]

请注意，上述代码中涉及到打开选择路径对话框和Excel文件的处理，需要根据实际情况进行适当修改。同时，将cellValue保存到WinCC内部存储区的具体方法需要根据WinCC的API进行调用，这部分需要根据实际情况进行进一步的开发。