uibot 데이터 캡처 + 데이터 테이블 + excel 작은 사례

uibot 데이터 캡처 + 데이터 테이블 + excel 작은 사례

Dim arrayData = ""
Dim objDatatable = ""
Dim objExcelWorkBook = ""
Dim arrayRet = ""
Dim iRet = ""
Dim objRet = ""
Dim sRet = ""
Dim arrayText = ""
//  ， 
arrayData = UiElement.DataScrap({
     "html":{
     "attrMap":{
     "id":"content_left","tag":"DIV"},"index":0,"tagName":"DIV"},"wnd":[{
     "app":"uibotBrowser","cls":"Chrome_WidgetWin_*","title":"*"},{
     "cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{
     "Columns":[{
     "props":["text","url"],"selecors":[{
     "index":0,"prefix":"","tag":"div","value":"div"},{
     "index":0,"prefix":">","tag":"h3","value":"h3"},{
     "className":"","index":0,"prefix":">","tag":"a","value":"a"}]}],"ExtractTable":0},{
     "objNextLinkElement":{
     "html":{
     "attrMap":{
     "aaname":"  >","parentid":"page","tag":"A"},"index":0,"tagName":"A"},"wnd":[{
     "app":"uibotBrowser","cls":"Chrome_WidgetWin_*","title":"*"},{
     "cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},"iMaxNumberOfPage":1,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":False})
//  ， url
objDatatable = Datatable.BuildDataTable(arrayData,[" ","url"])
//  
objDatatable = Datatable.QueryDataTable(objDatatable," .str.contains(\" \")")
//  
objDatatable = Datatable.DropDuplicatesDataTable(objDatatable,[ ],"first")
//  
objDatatable = Datatable.GetDataTableByArray(objDatatable,False)
Try
    //  excel
    objExcelWorkBook = Excel.OpenExcel("f:\\Users\\Administrator\\Desktop\\123.xlsx",True,"Excel","","")
    //  
    //  1 ， 'A' 
    For i = 1 To Excel.GetRowsCount(objExcelWorkBook,"Sheet1") Step 1 
        For j = Asc("A") To Excel.GetColumsCount(objExcelWorkBook,"Sheet1")+Asc("A")-1 Step 1 
            TracePrint(Excel.ReadCell(objExcelWorkBook,"Sheet1",Chr(j)&i))
        Next
    Next
    Excel.CloseExcel(objExcelWorkBook,True)
Catch
    Log.Error(" excel ")
Else

End Try