不要追求绝对的公平,红尘之中没有公平而言,人活一世,难得糊涂。
it is no use doing what you like, you have got to like what you do.
[转贴]使用Robot循环读取Excel中的数据
上一篇 /
下一篇 2006-12-20 19:34:48
/ 个人分类:Robot技术
使用Robot循环读取Excel中的数据
e`p C|d9?v
]051Testing软件测试网;eT`b:s C'vi)J
51Testing软件测试网ZM/s9g
P'F6M T9F m$l前几天使用Robot 循环对清单进行输入,但无奈CSV文件自动将清单首位的零抹除掉,使得从DataPool中读取数据不正确(见《使用Robot输入清单》),其中一种方法就是直接在脚本中
进行循环构造清单,这时我遇到另一个问题:构造的清单在清单库中不存在。程序对于不在库中的清单操作是不一样的,所以循环中的操作步骤就会报错。于是为了
脚本的简洁,只得重新回到从文件中读取清单的思路。选择从Excel文件中读取是较好的一种方法,因为我们可以在Excel中分不同的列保存清单号、定额
号、工程量等信息。51Testing软件测试网![-SHF \#d o6?g
51Testing软件测试网 npLKq,`Robot与Winrunner不同,他对于Excel文件的读取需要编写很多语句,下面是脚本:51Testing软件测试网NjK+j6d
51Testing软件测试网8Da{]'jXm'从excel表里读取数据的简单例子
P]?DpT+@0'$include "sqautil.sbh" '头包含
8Uw N2jl*i!K,O5cEf2ssk0Sub Main
I&`n;N\$xkdp5W7q
A0Dim Result As Integer51Testing软件测试网 ?$kfP8l J#^ `
dim excel as Object '定义对象51Testing软件测试网C9Qbl Oyo.d
dim book as Object
!m
{&Qte!s0dim worksheet as Object51Testing软件测试网%aE:_,vP7]
dim name1 as String
6W;I!Q
_*p|0dim pass as String51Testing软件测试网u:ywp+r:zR
dim count as Integer
(g6Wf@{M W/{u6@051Testing软件测试网(g.W(J$F/eFn
#u9m#nB Z&e:w051Testing软件测试网
T;oz;RyP!z1Won error resume next51Testing软件测试网"h:?L0j
Z @?
Set excel = GetObject("excel.application") '设置excel变量为execl对象
Uv1v Y)\9H5G.s0if(excel Is Nothing) then '判断是否设置成功
-W7aScH.v"?m0Set excel = CreateObject("excel.application") '创建excel对象51Testing软件测试网|yk6A0Z#V
if(excel Is Nothing) then '判断是否创建成功51Testing软件测试网%cxr{+v H[
MsgBox "Couldn't find Excel!"51Testing软件测试网2tT-\:yv/kK'B
Exit Sub
M:y$y1CfD0End if
"O0H,GIS0End if
C,k$[7tX:Wk"v9n4BC7U051Testing软件测试网2?b8o+Z
S2A}
y
ODSet book = excel.Workbooks.Open("d:\qingd.xls") '打开具体Excel文件,这里是我d盘下一个名为qingd的xls文件51Testing软件测试网Zf;^wA(e N
Set worksheet = book.Worksheets("1") '设置工作的表,工作表的名字为1
)O6oA%[HJe`051Testing软件测试网@N,a(b._;BFor count=1 To 3 '在excel表里取三行数据51Testing软件测试网I8uD/Ra"B
b3tt#R `;Rd!Y051Testing软件测试网m*W
^;^F
J9MB
name1 = worksheet.Cells(count,1).Value '从表中取具体行列对应的值51Testing软件测试网4R4hufn*D8XS+vM
'pass = worksheet.Cells(2,1).Value
F0X6UIQk:aQ|01Z6j/?b-OzIBF0msgbox name151Testing软件测试网
V}_}:T |-b
next count51Testing软件测试网:l0io:w6n:b:Op
7Mk[!Cl7kQ5mDu0excel.Quit '关闭excel51Testing软件测试网(n!UA$hic}R
Set excel = Nothing '把excel对象设置为空
ndp}/j$k
G0rx'\)L+O,b$v051Testing软件测试网~ u}a0us$sw
End Sub51Testing软件测试网Z
V:dvnv
收藏
举报
TAG:
Datapool
软件测试技术
Robot技术