To read data from a web page using VBA, you can utilize the Internet Explorer object. Here’s an example of VBA code that reads data from a web page:
Sub ReadDataFromWebPage() Dim ieApp As Object ' InternetExplorer.Application Dim ieDoc As Object ' HTMLDocument Dim url As String Dim element As Object ' HTML element Dim data As String ' Specify the URL of the web page url = "https://www.example.com" ' Create a new instance of Internet Explorer Set ieApp = CreateObject("InternetExplorer.Application") ' Navigate to the web page ieApp.Navigate url ' Wait until the page is fully loaded Do While ieApp.Busy Or ieApp.ReadyState <> 4 DoEvents Loop ' Get the document object of the web page Set ieDoc = ieApp.Document ' Read data from the web page Set element = ieDoc.getElementById("elementID") ' Replace elementID with the actual ID of the HTML element If Not element Is Nothing Then data = element.innerText MsgBox data End If ' Close the Internet Explorer application ieApp.Quit ' Clean up the objects Set element = Nothing Set ieDoc = Nothing Set ieApp = Nothing End Sub
In this code, you need to modify the url variable to the actual URL of the web page you want to read data from. Replace "https://www.example.com" with the desired web page URL.
Additionally, identify the specific HTML element from which you want to read data. You can use the getElementById method or other relevant methods from the HTMLDocument object to access the desired element. Replace "elementID" with the actual ID of the HTML element.
When you run this code, it will open Internet Explorer, navigate to the specified web page, wait until the page is fully loaded, read the data from the specified HTML element, display it in a message box, close the Internet Explorer application, and clean up the objects.
Note: This code uses Internet Explorer for web scraping, which may not be the most efficient or recommended approach. Consider using alternative methods such as XMLHTTP or a headless browser like Selenium if you need more flexibility or encounter issues with Internet Explorer.