UFT开发代码实例：将Excel中的数据保存为数组

摘要: 2011年开发的一个小例子，那个时候还没有selenium，QTP还叫UFT。那时我也用UFT做过保险系统，国航系统，PICC，国寿系统的自动化测试项目，期间积累了不少很好的尝试案例。现在估计还有很多公司在使用UFT做自动化测试，本例可能会给您做个参考。

1、核心代码

'读取Excel表格到一个数组的函数
' 输入：
'             sFileName： Excel文件
'             sSheetName：表单名称
' 返回：
'             包含Excel数据的数组
Function ReadFile(sFileName,sSheetName)
Dim oExcel
Dim oSheet
Dim oRange
Dim arrRange
On Error Resume Next
' 创建Excel应用程序对象
Set oExcel = 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 oSheet = oExcel.Worksheets(sSheetName).UsedRange
' 获取从A列到Z列，从第1行到第1000行的范围i中的所有值
Set oRange = oSheet.Range("A1:Z1000")
'把Excel数据转换到数组
arrRange = oRange.Value
' 关闭工作簿
oExcel.WorkBooks.Item(1).Close
' 退出Excel
oExcel.Quit
Set oExcel = Nothing
' 返回包含Excel数据的数组
ReadFile = arrRange
End Function

arrRange = ReadFile("C:\Documents and Settings\Administrator\桌面\test1.xls","Sheet1")
'Msgbox UBound (arrRange,1)
'Msgbox UBound (arrRange,2)
' 读取其中一个单元格的数据

For i=1 to 10
For k = 1 to 2

Msgbox arrRange(i,k)

Next
Next

2、完整工程

解压后导入UFT中即可。

https://yunpan.cn/cBVx3mFvLgSi8 （提取码：a8d8）