|
sheetName=DataTable.GetSheet(dtlocalsheet).Name '考虑到被调用时本地表名称会变化而事先获取本地表名称
DataTable.ImportSheet "..\..\Data"&"\AddGift.xls","AddGift",sheetName
RowCount=datatable.GetSheet(dtlocalsheet).GetRowCount
i=0
Do until i>=RowCount
i=i+1
datatable.GetSheet(dtlocalsheet).SetCurrentRow(i)
Browser("***").Page("***").Frame("leftFrame").Link("添加礼品").Click
Browser("***").Page("***").Frame("main").WebEdit("tbName").Set DataTable("礼品名称",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlType").Select DataTable("礼品类型", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlKind").Select "#"& DataTable("礼品种类", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbMarketPrice").Set DataTable("市场价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeValue").Set DataTable("兑换积分", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeMoneyValue").Set DataTable("兑换现金",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbBalanceValue").Set DataTable("结算价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebButton("下一步").Click
Browser("***").Page("***").Frame("main").WebButton("新增").Click
Browser("***").Dialog("Windows Internet Explorer").WinButton("确定").Click
Loop
|
|