Đ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