如何利用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)