Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True
ObjExcelApp.Workbooks.Open"c:\Documents and Settings\zhongguoliang\My Documents\ExcellExample.xls"
objExcelApp.Cells(4,3).Value = ScreenItems("IOField1").OutputValue
objExcelApp.ActiveWorkbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
End Sub
objExcelApp.Cells(4,3).Value = ScreenItems("IOField1").OutputValue是啥意思?
能在表格中看到IOField1中的数据吗?

这句话的意思是将输入输出域1的值送到Execl文件工作表的第4行第3列中去

怎么只见Excel闪了一下而没将值写到表格中.

那是因为你的对象名不对，该程序作为西门子的例程是没有任何错误的

好了,解决了.

zhongguolian 你是怎么解决的,我也是只看到EXCEL 闪了一下,在进程中有运行,半天都停不下来,关闭进程后才可以打开EXCEL,不过数据根本没有写进去,望各位高手速回复啊