博途V17的WINCC Advanced使用VBS来写Excel

感谢该博主的无私分享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

效果如下：