以前写的QTP的脚本(excel相关)
来源:互联网 发布:淘宝卖家可以删差评吗 编辑:程序博客网 时间:2024/06/06 05:12
原创:转载请注明出处:--Jason Lee
放在DLL-VB(动态库工程)中的常用的excel操作的代码:
以下函数对于读取单个的单元格的值比较方便,如果要去很多单元格的值,经测试,此函数效率不高。
Function ReadExcelForCell(sFileName, nIndex, nRow, nColumn)
Dim oExcelApp 'as excel.application
Dim oExcelBook 'as excelbook object
Dim oExcelSheet 'as excelsheet object
Dim sStr1 'to stroe the return value(string)
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelBook = oExcelApp.Workbooks.Open(sFileName)
Set oExcelSheet = oExcelBook.Worksheets.Item(nIndex)
sStr1 = oExcelSheet.Cells(nRow, nColumn)
ReadExcelForCell = sStr1
Set oExcelSheet = Nothing
oExcelBook.Close
oExcelApp.Quit '必须退出对象,要不会一直存在excel的进程。
Set oExcelBook = Nothing
Set oExcelApp = Nothing
End Function
下面的这个函数对于一次读取很多值很方便,不会频繁的调用函数锁在的堆栈,效率更高~
Function ReadExcelForArray(sFileName, nIndex)
Dim oExcelApp 'as excel.application
Dim oExcelBook 'as excelbook object
Dim oExcelSheet 'as excelsheet object
Dim sStr1 'to stroe the return value(string)
Set oExcelApp = CreateObject("Excel.Application")
Set oExcelBook = oExcelApp.Workbooks.Open(sFileName)
Set oExcelSheet = oExcelBook.Worksheets.Item(nIndex)
sStr1 = oExcelSheet.UsedRange.Cells
ReadExcelForArray = sStr1
Set oExcelSheet = Nothing
oExcelBook.Close
oExcelApp.Quit '必须退出对象,要不会一直存在excel的进程。
Set oExcelBook = Nothing
Set oExcelApp = Nothing
End Function
这个函数的核心就是让excel中的值传给数组。
QTP对于excel的应用主要是读取其中的值,写的操作一般用的不多。
- 以前写的QTP的脚本(excel相关)
- 以前写的QTP的脚本(QTP11对于类的支持更强)
- 自己以前写的QTP的脚本(autoitx技术-third party)
- QTP写脚本的三种方式
- 以前写的一些老的验证脚本
- 以前写的代码....
- 以前写的小游戏
- QTP - 脚本相关收集
- 以前的写的 链表堆
- QTP操作Excel的函数
- QTP的脚本Action模板
- QTP的脚本Action模板
- QTP脚本维护的难度
- 以前写的 C# 队列
- 以前写的javamail例子
- 以前写的,拿来保存~
- 以前写的时钟程序
- 以前写的一个游戏~
- onItemSelected在纯触摸屏的手机上是没有效果
- __stdcall 和 __cdecl 的区别
- tortoiseSVN在使用中因为网络断线或者手动在更新中取消而锁定目录的处理办法
- Android.mk 杂乱分析
- MySQL存储引擎的比较
- 以前写的QTP的脚本(excel相关)
- C++的多态与切片问题(Section Problem)
- 用SQL语句添加删除修改字段
- 亚马逊学习二:产品与服务
- Python string的一些用法
- WebLogic的缓存文件所在位置
- jpa 继承策略
- seo_meta
- mongodb 集合查询$in