Dim iRet,hWeb,objRet,arrayRet,objExcelWorkBook,arrayData,i="1",variable_name
objExcelWorkBook = Excel.Open('''C:\Users\admin\Desktop\新建 XLSX 工作表.xlsx''',true,"Excel","","")
Do While i=10
objRet = Excel.ReadCell(objExcelWorkBook,"200","[i,2]",true)
hWeb = WebBrowser.Create("chrome",objRet,30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
iRet = WebBrowser.GoURL(hWeb,"",true,{},30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
arrayData = UiElement.DataScrap({"wnd":[{"cls":"Chrome_WidgetWin_1","title":"*","app":"chrome"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}],"html":[{"tag":"IFRAME","name":"1782369325404"},{"tag":"TABLE","aaname":"Language Nice Class Text Quality"},{"tag":"TR","css-selector":"body>div>div>div>div>div>div>div>div>div>table>tbody>tr","idx":4}]},{"ExtractTable":0,"Columns":[{"selecors":{"path":[{"tag":"td"}],"exact":True,"vprops":["text"]},"props":["text"]}]},{"objNextLinkElement":'',"iMaxNumberOfPage":5,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":False})
Excel.WriteRow(objExcelWorkBook,"Sheet1","C1",arrayData,false)
i=i+1
Loop
