WINCC向EXCEL写字符串

在WINCC上建立一个I/O域,输入字符串格式  怎么样用VBS脚本写入EXCLE,求教各位大大们了

最佳答案

Dim objExcelApp,oWorkBook
Set objExcelApp=CreateObject("Excel.Application.9")
objExcelApp.Visible=False
Set oWorkBook=objExcelApp.Workbooks.Open("d:\表名称.xls")
Dim iBlankLine 
iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find("").Row 
objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.Tags("变量名").Read
oWorkBook.Save
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp=Nothing

提问者对于答案的评价:
谢谢 受教了

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc255957.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月10日 下午8:48
下一篇 2019年6月10日 下午8:48

相关推荐