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中
引用方式和上面的相同