我需要通过画面让操作员输入参数，然后把这个参数写入Excel，在Excel里进行计算，就跟wincc写入PLC是一个意思但是怎么实现写入Excel呢？？有做过的吗？求指教
最佳答案
Dim fso
Dim objExcelApp
Set fso = CreateObject("scripting.FileSystemObject")
Set objExcelApp = 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
Set objExcelApp= Nothing
1.要注意的是你的电脑必须安装EXCEL
2.注意你的EXCEL 文件可能是xlsx 为后缀的,如果是 objExcelApp.Workbooks.Open "C:\Users\Administrator\Desktop\报表\XX.xls"
需要修改
3.sheetname 指的是你打开EXCEL文件的哪个表,默认是"sheet1
提问者对于答案的评价：
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc173305.html
微信扫一扫 
支付宝扫一扫 