感谢该博主的无私分享https://www.cnblogs.com/qiyuexin/p/9955792.html
在博途V17中组态WINCC时,通过VBS来实现Excel读写,实现Excel文件的创建,写入和保存
Sub VBFunction_2()
'提示:
' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表
' 2. 使用 HMI Runtime 对象写入代码。
' 示例:HmiRuntime.Screens("Screen_1")。
' 3. 使用 <CTRL+J> 快捷键创建对象引用。
'从此位置起写入代码:
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
' 1) 使Excel可见
oExcel.Visible = True
' 2) 更改Excel标题栏
oExcel.Caption = "qyx's vbs"
' 3) 新建一个的工作薄
oExcel.Workbooks.Add
' 4) 设置第1个工作页为活动工作表
oExcel.Worksheets(1).activate
' 5) 给单元格赋值
oExcel.Cells(1,1).Value = "This is column A, row 1"
oExcel.Cells(2,1).Value = "This is column A, row 1"
oExcel.Cells(3,1).Value = "This is column A, row 1"
' 6) 工作表保存,关闭退出
oExcel.ActiveWorkbook.SaveAs "d:\test1.xlsx"
oExcel.ActiveWorkbook.Close
' 7)使用应用程序对象的quit方法关闭Excel
oExcel.Quit
' 8)释放该对象变量
Set oExcel = Nothing
End Sub
效果如下: