自动化测试之---Excel表格导入的数据驱动

上一篇 / 下一篇 2012-03-20 10:26:09 / 个人分类：QTP

1.Getsheet---->获取指定的工作表

2.GetRowCount---->获取指定的工作表中的数据行数

3.SetCurrentRow---->设置当前数据表中工作的行

4.addSheet---->在QTP中新增一个数据表

5.importSheet---->将外部数据表中的指定工作表中的数据添加到QTP中指定的工作表中

'****************************************************************

'For example

'qtp中新增工作表test

datatable.addSheet("test")

'将d:\test.xls文件中mytest工作表中的数据添加到test工作表中

datatable.importSheer("d:\test.xls","mytest","test")

dim itcount,i

itcount=datatable.getsheet("test").getrowcount

i=0

do while i<itcount

i=i+1

datatable.getsheet("test")

datatable.setcurrentrow(i)

results=datatable.getsheet("test").GetParameter ("userName").Value

msgbox results

loop

TAG: