qtp参数化-通过excel导入到datatable中

1.说明：sheet1 是EXCEL的标签页
actiion1是QTP DATATABLE的标签页
DataTable.ImportSheet "C:\login.xls", "sheet1", "actiion1"
在下面用datatable.Value("Username", dtLocalsheet) 赋值就可以

2.具体应用如下：

Dim DataStr //声明文件的路径

DataStr= "d:/W706.xls"

DataTable.AddSheet("Action1")//在datatable中增加一个action

DataTable.ImportSheet DataStr,"Sheet1","Action1"//把W706.xls文件中名字为sheet1的导入到datatable中action1中

//赋值方式1

selectName = DataTable.Value("证件类型","Action1")//证件类型是W706.xls中sheet1中的列名，在qtp中如下引用

Browser("3G电子化销售服务系统").Page("3G电子化销售服务系统").Frame("frameMain").WebList("select").Select selectName

//赋值方式2

Browser("3G电子化销售服务系统").Page("3G电子化销售服务系统").Frame("frameMain").WebList("select").Select DataTable("证件类型", dtLocalSheet)//赋值方式2

//赋值方式3

If DataTable("证件类型",dtLocalSheet) <> "" Then
Browser("3G电子化销售服务系统").Page("3G电子化销售服务系统").Frame("frameMain").WebList("select").Select DataTable("证件类型", dtLocalSheet)
end if

3.Global也可以引用

Dim DataStr //声明文件的路径

DataStr= "d:/W706.xls"

DataTable.AddSheet("Global")//在datatable中增加一个action

DataTable.ImportSheet DataStr,"Global","Global"//把W706.xls文件中名字为Global的导入到datatable中Global中

引用方式和上面的相同