前几天使用Robot 循环对清单进行输入，但无奈CSV文件自动将清单首位的零抹除掉，使得从DataPool中读取数据不正确（见《使用Robot输入清单》），其中一种方法就是直接在脚本中进行循环构造清单，这时我遇到另一个问题：构造的清单在清单库中不存在。程序对于不在库中的清单操作是不一样的，所以循环中的操作步骤就会报错。于是为了脚本的简洁，只得重新回到从文件中读取清单的思路。选择从Excel文件中读取是较好的一种方法，因为我们可以在Excel中分不同的列保存清单号、定额号、工程量等信息。
Robot与Winrunner不同，他对于Excel文件的读取需要编写很多语句，下面是脚本：
| '从excel表里读取数据的简单例子 '$include "sqautil.sbh" '头包含 Sub Main Dim Result As Integer dim excel as Object '定义对象 dim book as Object dim worksheet as Object dim name1 as String dim pass as String dim count as Integer on error resume next Set excel = GetObject("excel.application") '设置excel变量为execl对象 if(excel Is Nothing) then '判断是否设置成功 Set excel = CreateObject("excel.application") '创建excel对象 if(excel Is Nothing) then '判断是否创建成功 MsgBox "Couldn't find Excel!" Exit Sub End if End if Set book = excel.Workbooks.Open("d:\qingd.xls") '打开具体Excel文件,这里是我d盘下一个名为qingd的xls文件 Set worksheet = book.Worksheets("1") '设置工作的表,工作表的名字为1 For count=1 To 3 '在excel表里取三行数据 name1 = worksheet.Cells(count,1).Value '从表中取具体行列对应的值 'pass = worksheet.Cells(2,1).Value msgbox name1 next count excel.Quit '关闭excel Set excel = Nothing '把excel对象设置为空 End Sub |
【责编:michael】
相关文章
相关产品和培训
文章评论
专题推荐
最近更新
博客论点
频道精选
软件测试频道导航
您现在的位置： 
2008-6-24 
