QTP读取Excel表格中的数据代码

在构建自己的测试框架时，或者是从Excel读入外部数据进行检查时都要用到Excel的COM对象编程方法，下面脚本中的ReadFile函数就实现了这样的功能，首先创建Excel应用程序对象，然后打开Excel文件，把Excel数据读取到一个数组中。

'调用函数

arrRange = ReadFile("D:\data.xls","Sheet1")
'Msgbox UBound (arrRange,1)
'Msgbox UBound (arrRange,2)
'读取其中一个单元格的数据
Msgbox arrRange(1,1)

'输入：
'             sFileName：Excel文件
'             sSheetName：表单名称
'返回：
'            包含Excel数据的数组

Function ReadFile(sFileName,sSheetName)
Dim oExcel
Dim oSheet
Dim oRange
Dim arrRange

On Error Resume Next
'创建Excel应用程序对象
Set ōExcel = CreateObject("Excel.Application")
If err.Number <> 0 Then
MsgBox "未能初始化Excel" & vbCrLf & _
"请确保Excel已安装", vbCritical
Exit Function
End If
On Error Goto 0

On Error Resume Next
'打开Excel文件
oExcel.Workbooks.Open(sFileName)
If err.Number <> 0 Then
MsgBox "未能加载Excel文件" & vbCrLf & _
"请确保Excel文件路径正确或格式正确", vbCritical
Exit Function
End If
On Error Goto 0
'获取表格的使用范围
Set ōSheet = oExcel.Worksheets(sSheetName).UsedRange
'获取从A列到Z列，从第1行到第1000行的范围i中的所有值
Set ōRange = oSheet.Range("A1:Z1000")
'把Excel数据转换到数组
arrRange = oRange.Value
'关闭工作簿
oExcel.WorkBooks.Item(1).Close
'退出Excel
oExcel.Quit
Set ōExcel = Nothing
'返回包含Excel数据的数组
ReadFile = arrRange
End Function