Pull data from web

[SimbadS]

Hi,

Have been wondering if it would be possible to get information from a webpage with vba.
this is the internetpage(just example): #webpage. com/number=xxx#
I want to pull data from that page based on the number xxx which is stored in cellvalue B1.

When number changes the information on the webadresse also changes.
So i need it to open the web, make input of the url and numbervalue from b1 and get back info to cellvalue B2.

Is this possible?

Thanks in advance to push in right direction

 

[mrshl9898]

This will take you to a page.

Sub Automate_IE_Load_Page()
'This will load a webpage in IE
    Dim i As Long
    Dim URL As String
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
 
    'Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Set IE.Visible = True to make IE visible, or False for IE to run in the background
    IE.Visible = True
 
    'Define URL
    URL = "webpage. com/number=" & Range("B1").Value
 
    'Navigate to URL
    IE.Navigate URL
 
    ' Statusbar let's user know website is loading
    Application.StatusBar = URL & " is loading. Please wait..."
 
    ' Wait while IE loading...
    'IE ReadyState = 4 signifies the webpage has loaded (the first loop is set to avoid inadvertently skipping over the second loop)
    Do While IE.ReadyState = 4: DoEvents: Loop   'Do While
    Do Until IE.ReadyState = 4: DoEvents: Loop   'Do Until
 
    'Webpage Loaded
    Application.StatusBar = URL & " Loaded"
    
    'Unload IE
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing
    
End Sub

Taken from here, Automate Internet Explorer (IE) Using VBA - Automate Excel

There's some basic code in there. Depends what you are trying to pull from what page as to how to do it.

Here's a nice tutorial Automate Internet Explorer (IE) Using VBA - Automate Excel