Bài 18: Nhúng website lấy dữ liệu với Form Access

Đoạn lệnh VBA chạy 1 website theo lệnh truyền vào

Private Sub Command8_Click()

Dim wbs As WebBrowser
Set wbs = WebBrowser1.Object
wbs.Navigate "https://iif.vn"

End Sub
 

Mời bạn xem video hướng dẫn cách để nhúng website lấy dữ liệu với Form Access.

* Code lấy 1 tag html vba access

getElementsByTagName
getElementsByClassName
getElementById

 Set TitleElements = oHTMLDoc.getElementsByTagName("title")
    If TitleElements.length > 0 Then
        HTMLDoc_GetTitle = TitleElements(0).innerHTML
    End If

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

 For Each element In elements_li
    
   Next element