WINCC中vbs脚本写入EXCEL编写

　一、导入到Xls文件并打印
　　
　　Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) 
　　Dim a,fso
　　a=HMIRuntime.Tags("FileName").Read
　　Set fso = CreateObject("scripting.filesystemobject") 
　　If fso.FileExists("C:\Model.xls") Then
　　 Dim objExcelApp
　　 Set objExcelApp = CreateObject("Excel.Application")
　　 objExcelApp.Visible = False
　　 objExcelApp.Workbooks.Open "C:\Model.xls"
　　 objExcelApp.Cells(2, 3).Value = HMIRuntime.Tags("NewTag1_1").read
　　 objExcelApp.Cells(4, 5).Value = HMIRuntime.Tags("NewTag1_2").read
　　 objExcelApp.Cells(6, 7).Value = HMIRuntime.Tags("NewTag1_3").read
　　 objExcelApp.Cells(8, 9).Value = HMIRuntime.Tags("NewTag1_4").read
　　 objExcelApp.Cells(10, 11).Value = HMIRuntime.Tags("NewTag1_5").read
　　 objExcelApp.ActiveWorkbook.SaveAs("C:\Report\"&CStr(a)&".xls")
　　 objExcelApp.ActiveWorkbook.PrintOut
　　 objExcelApp.Workbooks.Close
　　 objExcelApp.Quit
　　 Set objExcelApp = Nothing
　　 MsgBox "文件已经成功导出/Export Successful"
　　Else
　　 MsgBox "Excel模板文件不存在"
　　End if
　　End Sub
　　
　　二、从Xls文件导入或者查询
　　
　　Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)