wincc 使用VBS为什么不能将模拟量数据写入EXCEL表中

SubOnLButtonDown(ByValItem,ByValFlags,ByValx,ByValy)Dimfso,myfileSetfso=CreateObject(... Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim fso,myfile Set fso=CreateObject("scripting.filesystemobject") Set myfile=fso.GetFile("E:\biao.xls") Dim objExcelApp Set objExcelApp=CreateObject("Excel.Application") objExcelApp.Visible=True objExcelApp.Workbooks.Open myfile Set objExcelApp.Worksheets(sheet1).cells(4,3).value="123".Read objExcelApp.A 展开

 我来答

1个回答

#热议# 应届生在签三方时要注意什么？

码术
2012-10-01 · 会码术，享生活，赢职场！

码术

采纳数：232 获赞数：461

向TA提问私信TA

关注

展开全部

看你的要求好象是要将"123"写入E:\biao.xls中的sheet1页的cells(4,3)单元格中。最后一条语句改一下就可以了：
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim fso,myfile
Set fso=CreateObject("scripting.filesystemobject")
Set myfile=fso.GetFile("E:\biao.xls")
Dim objExcelApp
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.Open myfile
objExcelApp.Worksheets("sheet1").cells(4,3).value="123"
说明：其中由于是给属性赋值，不用set；sheet1两边要加引号。