参数化之Excel来源

QTP参数化有多种方式，本文以一个简单的用户登录实例演示引用Excel参数化的方法：

脚本如下：

 

'Excel数据导入到DataTable中
'获得数据文件路径，并将数据文件导入到DataTable运行表中
DataStr= "E:\QTP\data\user.xlsx"
DataTable.AddSheet("user")
DataTable.ImportSheet  DataStr,"Sheet1","user"

'输入用户名和密码
For i=1 to DataTable.GetSheet("user").GetRowCount
DataTable.SetCurrentRow i  '把i设置为当前执行行
UserName=DataTable.Value("username","user")
PassWord=DataTable.Value("password","user")
Browser("Browser").Page("Page").WebEdit("j_username").Set Username
Browser("Browser").Page("Page").WebEdit("j_password").Set PassWord
Browser("Browser").Page("Page").WebButton("登录").Click
next