使用Robot循环读取Excel中的数据

51Testing软件测试网,n|c;l r|
W
51Testing软件测试网.zK#E%|aBz!N

n&B!N+kGW|%m'G0前几天使用Robot 循环对清单进行输入，但无奈CSV文件自动将清单首位的零抹除掉，使得从DataPool中读取数据不正确（见《使用Robot输入清单》），其中一种方法就是直接在脚本中 进行循环构造清单，这时我遇到另一个问题：构造的清单在清单库中不存在。程序对于不在库中的清单操作是不一样的，所以循环中的操作步骤就会报错。于是为了 脚本的简洁，只得重新回到从文件中读取清单的思路。选择从Excel文件中读取是较好的一种方法，因为我们可以在Excel中分不同的列保存清单号、定额 号、工程量等信息。

R;U6DM'ZLvp'y6V6i0Robot与Winrunner不同，他对于Excel文件的读取需要编写很多语句，下面是脚本：51Testing软件测试网|V4}2u7l5Oz

'从excel表里读取数据的简单例子
H.Q%]E9l5i/l b0'$include "sqautil.sbh" '头包含51Testing软件测试网j2x_p
rn
Sub Main
`"I U;[0iky%b$y0Dim Result As Integer
7yJ-U3cG6J,y;u(G#j0dim excel as Object '定义对象
E^(@ o(~4O$K0dim book as Object
AN}6x;i E6U
z1OZ0dim worksheet as Object51Testing软件测试网Ehps@gW
dim name1 as String
9]0XG,M7\2W m0dim pass as String
N3^I3g$_ F!qXf3[%b0dim count as Integer

E@SJ,N0on error resume next51Testing软件测试网l n$Y*]m*`Hj0l9x
Set excel = GetObject("excel.application") '设置excel变量为execl对象

g?1@!^qg3zfI0if(excel Is Nothing) then '判断是否设置成功
+w1sKE0wPo`D Q0Set excel = CreateObject("excel.application") '创建excel对象
K/_m4^5TY ]0if(excel Is Nothing) then '判断是否创建成功51Testing软件测试网&|q j:u}$l
MsgBox "Couldn't find Excel!"
Kc~ZS O0Exit Sub
VLs4~'O@&Q#FW]0End if
AM1nXK-u_^#n0End if51Testing软件测试网d1?3a,j%z*et

Set book = excel.Workbooks.Open("d:\qingd.xls") '打开具体Excel文件,这里是我d盘下一个名为qingd的xls文件
D*O,i*vCf0Set worksheet = book.Worksheets("1") '设置工作的表,工作表的名字为151Testing软件测试网?wx R`$K

For count=1 To 3 '在excel表里取三行数据51Testing软件测试网c2c n%o;`E]

51Testing软件测试网Z(GD_)d1fsh Z3n
[8iz;}
name1 = worksheet.Cells(count,1).Value '从表中取具体行列对应的值
HG4F8J
a(m$J/@6X0'pass = worksheet.Cells(2,1).Value51Testing软件测试网-L6ZQ6?QaB

`P Xxw E'm[4[_$j0msgbox name1
c(]7p4I%Iz0d0next count

H bD&lJGYB0excel.Quit '关闭excel
Y {0uJ%Ol"X0Set excel = Nothing '把excel对象设置为空

51Testing软件测试网[u4n(f!Lo&U&}D%V-l
End Sub51Testing软件测试网 l-m4E{'SjS