如何利用uibot實現將excel表單里每一行數據錄入到網頁里相同格式表格的每一行里呢


Dim objRet1 = ""
Dim arrRet = ""
Dim arrayData = ""
Dim objRet = ""
Dim arrSet = ""
Dim objRet2 = ""
Dim objRet3 = ""
Dim objExcelWorkBook=""



objExcelWorkBook = Excel.OpenExcel('''C:\Users\Asus\Desktop\ie客戶平台數據對比\網上充值明細.xlsx''',False,"WPS","","")
objRet1 = Excel.ReadRange(objExcelWorkBook,"網上充值明細","A5:F6")//[['123','4231']['13132','13132']]

// objRet2 = Excel.ReadCell(objExcelWorkBook,"網上充值明細","A5:A8")
// objRet3 = Excel.ReadCell(objExcelWorkBook,"網上充值明細","F5:F8")
// arrayData = DataHandling.append_list(objRet2,objRet3)

// arrRet = push(objRet2,objRet3)

For Each value In objRet1
    Mouse.Action({"html":[{"id":"searchcardno","tag":"INPUT"}],"wnd":[{"app":"iexplore","cls":"IEFrame","title":"*"},{"cls":"Internet Explorer_Server"}]},"left","click",10000,{"bContinueOnError":False,"iDelayAfter":300,"iDelayBefore":200,"bSetForeground":True,"sCursorPosition":"Center","iCursorOffsetX":0,"iCursorOffsetY":0,"sKeyModifiers":[],"sSimulate":"simulate","bMoveSmoothly":False})
    
    Keyboard.InputText({"html":[{"id":"searchcardno","tag":"INPUT"}],"wnd":[{"app":"iexplore","cls":"IEFrame","title":"*"},{"cls":"Internet Explorer_Server"}]},value[0],True,20,10000,{"bContinueOnError": False, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": True, "sSimulate": "message", "bValidate": False, "bClickBeforeInput": False})
    
    Keyboard.Press("Tab", "down", [],{"iDelayAfter": 300, "iDelayBefore": 200, "sSimulate": "simulate"})
    
    Keyboard.InputText({"html":[{"id":"searchhldname","tag":"INPUT"}],"wnd":[{"app":"iexplore","cls":"IEFrame","title":"*"},{"cls":"Internet Explorer_Server"}]},value[5],True,20,10000,{"bContinueOnError": False, "iDelayAfter": 300, "iDelayBefore": 500, "bSetForeground": True, "sSimulate": "message", "bValidate": False, "bClickBeforeInput": False})
Next

Excel.CloseExcel(objExcelWorkBook,False)

 


免責聲明!

本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



 
粵ICP備18138465號   © 2018-2025 CODEPRJ.COM