|
3#
楼主 |
发表于 2010-4-21 16:26:41
|
只看该作者
非常感谢TIB老兄的支持和帮助,请赐教
Option explicit
Dim filepath
Dim rowcount
Dim i,dvalue
filepath = pathfinder.Locate("A项目测试用例.xls")
datatable.Importsheet filepath,"sheet1","Action1"
rowcount = datatable.GetSheet("Action1").GetRowCount
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Expand "02销售业务"
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Expand "02销售业务;21销售开票"
SwfWindow("新业务系统").SwfTreeView("SwfTreeView").Select "02销售业务;21销售开票;2101销售开票单"
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Type micReturn
For i=1 to rowcount
dvalue=datatable(1,2)
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").SwfEdit("SwfEdit").set dvalue
SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
SwfWindow("新业务系统").SwfWindow("销售开票单").SwfEdit("SwfEdit").Type micReturn
'SwfWindow("新业务系统").SwfWindow("销售客户资料查找").Activate
wait 3
datatable.SetNextRow
Next |
|