excel数据依次填入浏览器网页查询问题

新手小z 2022-10-2 306

excel sheet1表格的D3至D188的数据,想依次导入浏览器界面的输入框框中,再依次查询(例如:先将导入表格D3数据到百度搜索框点搜索,停留2秒钟,再后退网页,清空搜索框内容,再导入表格D4数据到搜索框搜索……一直到D188),请问这用uibot要怎么实现呀,希望大神能回答详细些,我是新手。

最新回复 (2)
  • 新手小z 2022-10-3
    2
    大神们,求求指导一下,我只知道一次性复制D3粘贴到搜索框再搜索这种简单的自动化,不知道怎么继续自动复制D4、D5……重复搜索,求求指导一下,因为是内网电脑涉gjj密,不能拍照片不能说太详细,不知道大神们能否看的明白,不明白我可以再解释解释
  • +86 189******11 2022-10-11
    3
    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)-再搜索
返回
发新帖