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)