Bài 20: Code lấy dự báo thời tiết nhiệt độ trong VBA Access

Code VBA lấy dự báo thời tiết nhiệt độ bằng VBA Access, code sử dụng đối tượng InternetExplorer của Window

Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Navigate "https://www.nchmf.gov.vn/kttv/"

Do While ie.ReadyState <> READYSTATE_COMPLETE
    HourglassOn = True
    Screen.MousePointer = 11
    DoEvents
Loop
Set html = ie.Document

Set elements = html.getElementsByClassName("uk-slider-items")
Set elements_li = elements(1).getElementsByTagName("li")

'MsgBox elements_li.length


'MsgBox elements(1).outerHTML


'MsgBox elements_li(1).outerHTML

For Each element In elements_li
    ' Lay ten thanh pho
    Set elements_ten = element.getElementsByClassName("name-wt-city")
    'MsgBox elements_ten.length
    'MsgBox elements_ten(0).innerText
   
    ' Lay nhiet do
    'MsgBox element.className
    Set elements_ND = element.getElementsByClassName("temp-wt-city")
     List5.AddItem elements_ten(0).innerText & " -> " & elements_ND(0).innerText
    
    If lblTinh.Caption = elements_ten(0).innerText Then
            lbl_NhietDo.Caption = elements_ND(0).innerText
    End If
    
    
Next element

Screen.MousePointer = 0
 

Code VBA lấy dự báo thời tiết phiên bản 02