QTP学习笔记--Excel数据源

直接读取Excel表格的function摘自此处http://www.51testing.com/html/40/307440-827863.html 特此感谢！

Excel作为QTP自动化测试的数据源，有两种方式可应用到脚本中

一、导入到DataTable中

ImportData("Login")
Function ImportData(SheetName)
DataTable.ImportSheet Environment.Value("TestDir")&"\TestData.xls",SheetName,"Global"
End Function

说明：ImportSheet的第二个参数可用Sheet编号，从1开始

QTP11不支持word2007及以上的Excel文件（.xlsx）

二、使用Excel COM直接读取Excel

'========================================
'名     称：QTP_ReadExcel
'作     用：从Excel读数据
'参     数：sFileName：EXCEL文件名     sSheetName：Sheet表名
'返回值：把EXCEL变为2维数组返回(第一行为数据表列名)
'========================================
Function QTP_ReadExcel(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数据的数组
QTP_ReadExcel = arrRange
End Function