使用Excel作为QTP的数据源

QTP参数化可以通过在Excel维护用例数据，再将Excel数据Import到DataTable中，通过For循环遍历所有的用例数据，完成对应测试验证；Excel虽然方便，但是劣势也很明显，在很较多终端同时进行自动化测试时，测试数据的维护将是一个比较麻烦的事情，所有有时间，还是配置一个数据库吧，再搭个小平台将数据库内容管理起来，用起来就会方便许多；

特别注意：假设你在XP上维护好的“XLS”测试数据，不能直接Copy到Win7上使用，还需要将每个“XLS”在Win7上重新另存为，不然Import到DataTable中数据都是空的；血泪史啊！曾被这个问题困扰了很久。

实例

*************************************************************************

DataStr= "C:/testdata/encode4.xls"

DataTable.AddSheet("TestData")

DataTable.ImportSheet  DataStr,"Sheet1","TestData"

For i=1 to DataTable.GetSheet("TestData").GetRowCount

    DataTable.SetCurrentRow i  '把i设置为当前执行行

    SystemUtil.Run "C:/Program Files/Internet Explorer/IEXPLORE.EXE","","C:/Documents and           Settings/Administrator","open"

Browser("index:=0").Page("index:=0").Sync

Browser("index:=0").Navigate "http://10.2.40.159:8080/sc/testnew.html"

Browser("index:=0").Page("index:=0").Sync

Browser("index:=0").Page("index:=0").WebEdit("name:=TextData1").Set TextData                                          

set os = CreateoBject("wscript.shell")

os.sendkeys "{tab}"

os.sendkeys "password"

Browser("index:=0").Page("index:=0").WebButton("name:=获取版本").Click

Next