我写的如下代码：
On?Error?Resume?Next?'此句必须有，防止无EXCEL进程时GetObject出错退出
?Dim?xlsname,xlapp,xlbook,xlsheet,isOpen,i,TagName,TagValue
?xlsname="E:\123.xls"??????????????????????'Excel文档路径
?Set?xlapp=GetObject(,"Excel.Application")?'获取当前运行的Excel应用程序对象
?If?Typename(xlapp)="Application"?Then?????'Excel已打开，遍历工作薄查找对应文
?
?档是否已打开
????For?Each?xlbook?In?xlapp.Workbooks
????????If?xlbook.FullName=xlsname?Then
???????????isOpen=True
???????????Exit?for
????????End?if
????Next
????If?Not?isOpen?Then???'如果对应文档没打开则打开
???????Set?xlbook=xlapp.Workbooks.Open(xlsname)
????End?if?
?Else??'当前没有打开Excel程序则创建Excel应用程序并打开对应的文档
????Set?xlapp=CreateObject("Excel.Application")
????Set?xlbook=xlapp.Workbooks.Open(xlsname)
?End?if
xlapp.visible =true '显示可见
set xlsheet =x1book.worksheets("sheet1")
for i=3 to xlsheet.range("A65536").end(3).row
x1sheet.cell(i,1).value=ScreenItems("wincc上输入输出域的名称”）.outputvalue
next

能否帮我看一下这样能否实现呢？为什么我测试的时候有时候excel表可以打开但在文本域写入数据的时候excel表闪一下后数据又被恢复了，而且有的时候excel表又会无限制的打开？能否帮我改一下？谢谢！