现使用wincc脚本建立一个excel表，自己输入一个表名，存入变量字符串型变量name，建立一个叫name的excel表，使用VB脚本来完成
Dim objExcelApp
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.open "d:\winccdatabase\AndonConfigRP.xls"
********************类似于这种，但是这个不句*************************************
objExcelApp.ActiveWorkbook.Saveas"path:\"&HMIRuntime.Tags("name").Read&".xls"
谁能帮我看看应该怎么完成
最佳答案
Dim XlsName,FullName
XlsName=HMIRuntime.Tags("name").Read
FullName= "E:\"&CStr(XlsName)&".XLS"
HMIRuntime.Trace FullName
Dim objExcelApp,objWorkBook
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
Set objWorkBook=objExcelApp.WorkBooks.Add
objWorkBook.SaveAs FullName
objWorkBook.Close
objExcelApp.Quit
Set objWorkBook = Nothing
Set objExcelApp = Nothing
提问者对于答案的评价：
谢谢
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276178.html
微信扫一扫 
支付宝扫一扫 