Dim hWeb,objExcelWorkBook,arrayRet,iRet
hWeb = WebBrowser.Create("chrome","www.baidu.com",30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
objExcelWorkBook = Excel.OpenExcel('''D:\1011.xlsx''',true,"Excel","","")
arrayRet = Excel.ReadColumn(objExcelWorkBook,"Sheet1","A1",true)
iRet = Excel.GetRowsCount(objExcelWorkBook,"Sheet1")
TracePrint(arrayRet)
For i = 1 To iret-1 step 1
Keyboard.InputText(@ui"输入控件<input>1",arrayRet[i],true,20,10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": true, "sSimulate": "message", "bValidate": false, "bClickBeforeInput": false})
Mouse.Action(@ui"输入控件<input>_百度一下","left","click",10000,{"bContinueOnError": false, "iDelayAfter": 300, "iDelayBefore": 200, "bSetForeground": true, "sCursorPosition": "Center", "iCursorOffsetX": 0, "iCursorOffsetY": 0, "sKeyModifiers": [],"sSimulate": "simulate", "bMoveSmoothly": false})
Delay(2000)
Next
Excel.CloseExcel(objExcelWorkBook,true)
源码你复制到UIBOT中看下 基本流程:打开网页-打开表格-读取数据列-获取行数-建立循环(按行数减1)-再搜索