发布于 2009-08-27 22:58:52
0楼
今天解决问题了
objExcelApp.worksheets ("sheet1").Cells(i, 5).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong1").read
改为
objExcelApp.worksheets ("sheet1").Cells(i.value, 5).VAlue = HMIRuntime.Tags("1HaoSuoYongBian_P.beiyong1").read
这样一改也不提示excel已打开了,而且也能把数据写到excel中
学习进步