wincc与excel通讯问题

我在wincc的vb脚本中编写的一段与excel交互数据的程序，在wincc中没法实现，但是我在vb中就可以实现，这是怎么回事啊？请指教
程序如下
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open "c:\zq.xls"
Set objExcel.Cells(4,3).Value=ScreenItems("io1").outputvalue
'hmiruntime.Tags("16")
objExcel.Activeworkbook.save
objExcel.workbooks.close
objExcel.quit
Set objExcel=Nothing
End Sub