有WINCC EXCLE报表例子吗，我想试验一下，能给我传一个吗，我的油箱是huanghong198122@sina.com
最佳答案
这里有一个例子可供参考
Dim g_excelfilename
Dim excel
g_excelfilename = HMIRuntime.Tags("ProjectPath").Read & "\Excel1.xls"
''MsgBox g_excelfilename
Set excel = CreateObject("Excel.Application")
excel.Visible = True
excel.Workbooks.Open g_excelfilename
excel.Cells(4, 3).Value = ScreenItems("V6_ExcelWrite_1").OutputValue
excel.Cells(5, 3).Value = ScreenItems("V6_ExcelWrite_2").OutputValue
excel.Cells(6, 3).Value = ScreenItems("V6_ExcelWrite_3").OutputValue
excel.ActiveWorkbook.Save
excel.Workbooks.Close
excel.Quit
Set excel = Nothing
该代码可将画面上的输入值写入excle文档中excle形成报表
提问者对于答案的评价：
和
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc277244.html
微信扫一扫 
支付宝扫一扫 