使用Excel作为QTP的数据源

特别注意：假设你在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