内容
Fori=2ToiCountstep1
UserData[Index]={}
UserData[Index]["SKU"]=Excel.CellGetText(objExcelWorkBook,1,i,1)
Index=Index+1
Next
#icon("@res:lift27b3-p41c-qeum-etn8-673qsnuefd9i.png")
Mouse.Action({"wnd":[{"app":"AliWorkbench","cls":"StandardFrame","title":"工作台"},{"cls":"StackPanel","ctrlid":1118,"idx":3},{"cls":"StandardWindow","ctrlid":1126,"idx":1},{"cls":"StandardWindow","ctrlid":1205,"idx":1},{"cls":"StackPanel"},{"cls":"StandardWindow"},{"cls":"PrivateWebCtrl"},{"cls":"Aef_WidgetWin_0"},{"cls":"Aef_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"cid":50004,"name":"商家编码："}]},"left","click",1000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Delay(1000)
#icon("@res:default.png")
//大意是先查找到一个输入框控件
//输入USERDATA数组的第一个元素.
Keyboard.InputText({},UserData(i),true,10,10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sKeyModifiers":[],"sSimulate":"simulate"})
这里执行不了,跟我学的VBA语言不一个路数.这里应该怎么写??
弹框提示为:[22:08:37]第58行： 尝试去调用一个table值 (全局 'USERDATA')
//查找下一个按钮执行操作
#icon("@res:hr6kb4ue-b241-t3hn-0vr1-09gvpgplfku3.png")
Mouse.Action({"wnd":[{"app":"AliWorkbench","cls":"StandardFrame","title":"工作台"},{"cls":"StackPanel","ctrlid":1118,"idx":3},{"cls":"StandardWindow","ctrlid":1126,"idx":1},{"cls":"StandardWindow","ctrlid":1201,"idx":1},{"cls":"StackPanel"},{"cls":"StandardWindow"},{"cls":"PrivateWebCtrl"},{"cls":"Aef_WidgetWin_0"},{"cls":"Aef_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"ctrl":[{"cid":50000,"name":"搜索"}]},"left","click",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":true,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate"})
Next
iRet=Dialog.MsgBox("Excel 中的所有数据都填写、提交完毕！","UiBot","0","1",0)
这个APP非常不错,虽然目前BUG多了一点,啥时候出正式版啊.....
