Cách Lấy Bảng Trên Web Đưa Vào Excel, Lấy Dữ Liệu Từ Web Vào Excel

Đang xem: Cách lấy bảng trên web đưa vào excel

Sub PullDataFromWeb()Dim IE As ObjectDim doc As HTMLDocumentDim lastRow As IntegerSet IE = CreateObject(“InternetExplorer.Application”)IE.Visible = True “hien cua so IEIE.navigate “https://eport.saigonnewport.com.vn/Pages/Common/Containers_new”Do While IE.Busy Or IE.readyState 4 “doi IE chay xongApplication.Wait DateAdd(“s”, 1, Now)LoopSet doc = IE.documentWith ActiveSheetlastRow = .Range(“B” & .Rows.Count).End(xlUp).Row “dong cuoi cung trong cot B containerEnd WithOn Error Resume NextFor intRow = 2 To lastRow “tu dong toi dongDim rng As RangeSet rng = Range(“I2:I” & lastRow)For Each cell In rngIf cell.Value = “Y” ThenEnd IfNext cellIE.document.getElementById(“txtItemNo_I”).Value = ThisWorkbook.Sheets(“Sheet1”).Range(“B” & intRow).Value “so contdoc.getElementById(“cbSite_VI”).Value = “CTL” “cang Cat Lai CTLdoc.getElementById(“chkInYard_I”).Checked = Falsedoc.getElementById(“ContentPlaceHolder2_btnSearch”).Click “click SearchDo While IE.Busy Or IE.readyState 4Application.Wait DateAdd(“s”, 1, Now)LoopstrFindContainer = doc.getElementById(“ContentPlaceHolder2_lblNotice”).innerTextThisWorkbook.Sheets(“Sheet1”).Range(“H” & intRow).Value = strFindContainerstrEventtime1 = doc.getElementById(“grdContainer_DXDataRow0”).Cells(0).innerTextstrEventtype1 = doc.getElementById(“grdContainer_DXDataRow0”).Cells(1).innerTextstrLocation1 = doc.getElementById(“grdContainer_DXDataRow0”).Cells(2).innerTextstrEventtime2 = doc.getElementById(“grdContainer_DXDataRow1”).Cells(0).innerTextstrEventtype2 = doc.getElementById(“grdContainer_DXDataRow1”).Cells(1).innerTextThisWorkbook.Sheets(“Sheet1”).Range(“C” & intRow).Value = strEventtime1ThisWorkbook.Sheets(“Sheet1”).Range(“D” & intRow).Value = strEventtype1ThisWorkbook.Sheets(“Sheet1”).Range(“E” & intRow).Value = strLocation1ThisWorkbook.Sheets(“Sheet1”).Range(“F” & intRow).Value = strEventtime2ThisWorkbook.Sheets(“Sheet1”).Range(“G” & intRow).Value = strEventtype2Do While IE.Busy Or IE.readyState 4Application.Wait DateAdd(“s”, 1, Now)LoopNextIE.QuitSet IE = Nothing “Cleaning upSet objElement = NothingSet objCollection = NothingApplication.StatusBar = “”Application.DisplayAlerts = TrueEnd Sub

Xem thêm: Đồ Án Thiết Kế Nội Thất Chung Cư, Hình Ảnh Workshop Cbs