回复:wincc里的内部变量怎么想办法一直记忆起-技术论坛-工业支持中心-西门子中国

回复:wincc里的内部变量怎么想办法一直记忆起

jingshen526

帖子

2006
精华

3
被关注

21

论坛等级：奇侠

注册时间：2006-05-13

黄金如何晋级?

发布于 2010-03-23 16:33:03

8楼

Dim objExcelApp
Set objExcelApp=CreateObject("Excel.application")
objExcelApp.Visible=False
‘配方Excel的路径
objExcelApp.Workbooks.Open "D:\watershiyan\wincproj\wicc\peifang.xls"
‘将配方时间表和压力值传送到相应的Excel单元格中
objExcelApp.Worksheets("sheet1").Cells(1,1).value=ScreenItems("IOField1").OutputValue
objExcelApp.Worksheets("sheet1").Cells(1,2).value=ScreenItems("IOField2").OutputValue
。。。。。。。。。。。。。。。。。。。。
objExcelApp.Worksheets("sheet1").Cells(15,6).value=ScreenItems("IOField79").OutputValue
objExcelApp.Worksheets("sheet1").Cells(16,6).value=ScreenItems("IOField80").OutputValue
‘保存并关闭配方表格，释放调用Excel的内存空间
objExcelApp.ActiveWorkbook.Save
objExcelApp.Workbooks.close
objExcelApp.Quit
Set objExcelApp=Nothing

学习学习再学习