WinCC中全局脚本VBS归档到Excel

来源：网络收集时间：2019-06-11 下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:或QQ：处理（尽可能给您提供完整文档），感谢您的支持与谅解。

WinCC中全局脚本VBS归档到Excel中

用一个变量触发数据归档到Excel中，请高手看看我写的为何不能运行。 Sub procedure1

If Item.OutputValue = \

Dim oVar,oBlendingVar,objExcelApp,oWorkBook,ExcelTableFull,oFileName On Error Resume Next ExcelTableFull=0

Set objExcelApp=CreateObject(\ objExcelApp.Visible=False

Set oWorkBook=objExcelApp.Workbooks.Open(\模板\\Receipt_Table.xls\ Dim iBlankLine

iBlankLine=oWorkBook.ActiveSheet.Columns(1).Find(\ 'MsgBox(\ If iBlankLine<504 Then

objExcelApp.Cells(iBlankLine,1).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,2).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,3).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,4).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,5).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,6).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,7).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,8).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,9).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,10).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,11).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,12).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,13).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,14).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,15).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,16).Value=HMIRuntime.SmartTags(\ objExcelApp.Cells(iBlankLine,17).Value=HMIRuntime.SmartTags(\ Else

'MsgBox(\ objExcelApp.displayalerts=False

oFileName=CStr(\模板\\运行数据_\月\日\时\分\ oWorkBook.Saveas(oFileName) ExcelTableFull=1

objExcelApp.displayalerts=True End If

oWorkBook.Save

objExcelApp.Workbooks.Close objExcelApp.Quit

Set objExcelApp=Nothing Set oWorkBook=Nothing

If ExcelTableFull=1 Then

'MsgBox(\ Set objExcelApp=CreateObject(\ objExcelApp.Visible=False Set oWorkBook=objExcelApp.Workbooks.Open(\模\\Receipt_Table_Templet.xls\ objExcelApp.displayalerts=False

oWorkBook.Saveas(\模板\\Receipt_Table.xls\ objExcelApp.displayalerts=True oWorkBook.Save

objExcelApp.Workbooks.Close objExcelApp.Quit

Set objExcelApp=Nothing Set oWorkBook=Nothing End If End If End Sub

本文转自亿万论坛：http://bbs.e10000.cn/a/a.asp?B=302&ID=1218853&q=1&r=140751

板

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库WinCC中全局脚本VBS归档到Excel在线全文阅读。

WinCC中全局脚本VBS归档到Excel.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档

本文链接：https://www.77cn.com.cn/wenku/zonghe/655151.html（转载请注明文章来源）

上一篇：福建省2015年下半年一级建筑师材料与构造：模具考试试卷
下一篇：大机安全规章A卷08秋