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 <>  Then
                      MsgBox "未能初始化Excel" & vbCrLf & "请确保Excel已安装", vbCritical
                      Exit Function
               End If
        On Error GoTo 

        On Error Resume Next
       ' 打开Excel文件
        oExcel.Workbooks.Open(sFileName)
         If err.Number <>  Then
                MsgBox "未能加载Excel文件" & vbCrLf & "请确保Excel文件路径正确或格式正确", vbCritical
                Exit Function
         End If
        On Error GoTo 

        ' 获取表格的使用范围
        Set  oSheet = oExcel.Worksheets(sSheetName).UsedRange
       ' 获取从A列到Z列，从第1行到第1000行的范围i中的所有值
        Set  oRange = oSheet.Range("A1:Z1000")
       '把Excel数据转换到数组
        arrRange = oRange.Value
       ' 关闭工作簿
        oExcel.WorkBooks.Item().Close

        ' 退出Excel
        oExcel.Quit
        Set  oExcel = Nothing
        ' 返回包含Excel数据的数组
        QTP_ReadExcel = arrRange
 End Function