从excel读数据的问题

story198509

使用vbs启动qtp，open一个test从excel中读数据，返回的值总是和预期的不一样，要么读的是其它单元格的值，要么为空
但在其它的电脑上跑，可以读到预期的值，程序完全是一样的，请问是怎么回事？

story198509

个人感觉打开的这个test有很多语句没执行一样，因为里面有生成xml文件的语句，但实际上并未生成文件

t236846681

Function ReadExcel(sFilename,sSheetName) '读取excel文件 ，sFilename文件地址,sSheetName Sheet名称
   Dim oRange
   Dim arrRange
   On Error Resume Next
                Set oExcel = CreateObject("Excel.Application")
                oExcel.Workbooks.Open(sFilename)
                Set oRange = oExcel.Worksheets(sSheetName).UsedRange
                If Err.Number <>0 Then
                        ReadExcel = Array("Error")
                        Exit Function
                End If
        On Error Goto 0
        arrRange = oRange.Value
        oExcel.Workbooks.Item(1).Close
        Set oRange = Nothing
        oExcel.Quit
        Set oExcel = Nothing
        ReadExcel = arrRange
End Function

'调用方式
'oArray = ReadExcel("D:\work\测试日志\User.xlsx","Sheet1")
'For I = 1 to UBound(oArray )
'        For J = 1 to UBound(oArray,1)
'                Print  oArray(I,J)
'        Next
'Next