VBA code to extract data from CRM or Web

[FGaxha]

Hi, Happy Tuesday,

Any VBA Code to extract data from CRM platform or Web ?

Thank you.

 

[GBeavis]

simple example of VBA code to extract data from a website using Internet Explorer automation

Sub ExtractDataFromWebsite()
    Dim IE As Object
    Dim HTMLDoc As Object
    Dim DataElement As Object
    Dim Data As String
    
    ' Create Internet Explorer instance
    Set IE = CreateObject("InternetExplorer.Application")
    
    ' Navigate to the website
    IE.navigate "https://example.com"
    
    ' Wait for the website to load
    Do While IE.readyState <> 4 Or IE.Busy
        DoEvents
    Loop
    
    ' Get the HTML document
    Set HTMLDoc = IE.document
    
    ' Extract data from a specific element
    Set DataElement = HTMLDoc.getElementById("elementID") ' Replace "elementID" with the actual ID of the element containing the data
    If Not DataElement Is Nothing Then
        Data = DataElement.innerText ' Extract the inner text of the element
        MsgBox "Extracted data: " & Data
    Else
        MsgBox "Data element not found"
    End If
    
    ' Clean up
    IE.Quit
    Set IE = Nothing
    Set HTMLDoc = Nothing
    Set DataElement = Nothing
End Sub