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
板