[转贴]使用Robot循环读取Excel中的数据

前几天使用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

上面这个脚本是从一个论坛里看到的，我经过修改并调试正常。标题注明为[转贴]，因为主要语句没有做修改。