读文件说啥都不成功。

脚本：

Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                       

Dim xlApp,xlBook,path1

Dim r1c1,r2c2

Set r1c1=ScreenItems("TTTTT")

path1=HMIRuntime.Tags("path").Read

Set xlApp=CreateObject("excel.application")

xlApp.Visible=False

xlApp.Workbooks.Open path

xlApp.Worksheets("Sheet1").Activate 

r1c1.outputvalue= xlApp.Worksheets("Sheet1").cells(3,1).value

'RIC1.WRITE

xlApp.Workbooks.Close

xlApp.Quit

Set xlApp=Nothing

End Sub