QTP读取Excel数据的方法
2008-05-14 22:21
211 查看
QTP读取Excel数据的方法
在构建自己的测试框架时,或者是从Excel读入外部数据进行检查时都要用到Excel的COM对象编程方法,下面脚本中的ReadFile函数就实现了这样的功能,首先创建Excel应用程序对象,然后打开Excel文件,把Excel数据读取到一个数组中。
arrRange = ReadFile("D:/QTP/MyWork/ReadExcelFileTest1/ObjectTree.xls","Tree")
'Msgbox UBound (arrRange,1)
'Msgbox UBound (arrRange,2)
' 读取其中一个单元格的数据
Msgbox arrRange(3,1)
' 输入:
' 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
相关文章推荐
- 利用QTP调用外部VBS方法读取指定Excel数据的方法
- QTP读取Excel数据的方法
- Python3读取Excel数据存入MySQL的方法
- 用C#编程从数据库中读取图片数据导进Excel文件的方法(如何从数据库中读取保存的文件,直接打开,中间不保存到本地)
- Java读取大数据量Excel的方法(POI)
- 自己封装的Java excel数据读取方法
- VC6.0实现读取Excel数据的方法
- JAVA中读取和导出数据到EXCEL的方法
- Python从excel读取数据,并使用scipy进行散点的平滑曲线化方法
- python读取excel指定列数据并写入到新的excel方法
- c# 读取excel数据的三种方法
- 用C#编程从数据库中读取图片数据导进Excel文件的方法(如何从数据库中读取保存的文件,直接打开,中间不保存到本地)
- ASP.NET中应用Excel:12)其它读取Excel数据的方法(完)
- matlab2013a中读取Microsoft Office Excel中数据的方法?
- c# 解决读取Excel混合文本类型,数据读取失败的解决方法
- ThinkPHP框架下读取excel数据的方法示例
- node.js读取Excel数据(下载图片)的方法示例
- OLEDB方式读取Excel丢失数据的原因和解决方法
- [转]数据库连接方式读取不到Excel数据值的解决方法
- POI读取Excel数据类型的判断方法