把wincc内部变量写入Excel

我需要通过画面让操作员输入参数，然后把这个参数写入Excel，在Excel里进行计算，就跟wincc写入PLC是一个意思但是怎么实现写入Excel呢？？有做过的吗？求指教

最佳答案

Dimfso
DimobjExcelApp
Setfso=CreateObject("scripting.FileSySTemObject")
SetobjExcelApp=CreateObject("Excel.Application")
objExcelApp.Workbooks.Open"C:\Users\Administrator\Desktop\报表\XX.xls"
objExcelApp.Visible=False
objExcelApp.Worksheets(sheetname).Activate
objExcelApp.Worksheets(sheetname).cells(1,1).value=HMIruntime.tag("要写入的变量名").Read
objExcelApp.Workbooks.Close
objExcelApp.Quit
SetobjExcelApp=Nothing
1.要注意的是你的电脑必须安装EXCEL
2.注意你的EXCEL文件可能是xlsx为后缀的,如果是objExcelApp.Workbooks.Open"C:\Users\Administrator\Desktop\报表\XX.xls"
需要修改
3.sheetname指的是你打开EXCEL文件的哪个表,默认是"sheet1