QTP中读取Excel表格到一个数组的函数
来源:互联网 发布:ocr文件识别软件 编辑:程序博客网 时间:2024/05/10 15:47
'读取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
- QTP中读取Excel表格到一个数组的函数
- QTP中读取Excel表格中的数据
- javaScript读取页面表格中每个单元到EXCEL中
- 将Excel中一个表格的数据关联到另一个表格
- Java读取excel表格添加到Jtable中
- 用java的poi类读取一个excel表格的内容后再写入到一个新excel表格中的完整代码
- webservice(第三天)(包含一个真实项目,读取EXCEL表格中的数据到数据库中,其中涉及真实的隐私数据不能公开数据集)
- Matlab中xlsread 函数读取excel表格数据或者字符串
- 输出一个文件夹下的所有文件名到一个txt或者excel表格中成为一列
- QTP操作Excel的函数
- matlab将多个excel读取并存到一个excel的不同sheet中
- ADO.NET(OleDb)读取Excel表格时的一个BUG
- ADO.NET(OleDb)读取Excel表格时的一个BUG
- QTP读取Excel数据的方法
- 【QTP】读取Excel表的用法
- 读取excel中的表格到datatable
- Java读取Excel表格到对象
- 读取excel表格的内容
- 开博之篇--我回来了!
- [Android SDK 翻译] User Interface Guidelines
- SQlite3移植到MTK平台成功!
- Java change contant of the ".java" files
- Android开发网站
- QTP中读取Excel表格到一个数组的函数
- my hometown
- 最近开始忙公司的一个ERP项目
- Ironpython是一个好东西
- 心情
- 封装Xml
- [转]ubuntu udevinfo 命令
- 正则表达式详解(以JavaScript为例)
- SQL中的IF ELSE(CASE语句的使用)