extract data from web

The form is a POST form, not a GET one.
Your request should be like this:
Code:
With oXMLH        
    .Open "POST", "https://www.visionwheel.com/dealers/dealer-search.cfm"
    .send "Zipcode: " & zip
HTH,
--
AP
 
Hi, try this
Code:
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Public Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub WebDAta()
    Dim IE As InternetExplorer
    Set IE = New InternetExplorer
    Dim Doc As HTMLDocument
    Cells.Clear
    mySearch = InputBox("Scrivi il nome da cercare")
    Const myURL As String = "https://www.visionwheel.com/dealers/dealer-search.cfm"
    With IE
        .Navigate myURL
        .Visible = True
        Do While .Busy = True Or .ReadyState <> READYSTATE_COMPLETE
            Application.Wait Now + TimeValue("00:00:04")
        Loop
    End With
    Set Doc = IE.Document
    Doc.getElementsByTagName("input")(0).Value = mySearch
    Doc.getElementsByClassName("button search-button").Item.Click
    Sleep 4000
    For Each a In Doc.getElementsByClassName("contact-info")
        i = i + 1
        Cells(i, 1) = a.innerText
    Next
    IE.Quit
    Set IE = Nothing
    Set Doc = Nothing
End Sub
 
Hi, try this
Code:
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
Public Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub WebDAta()
    Dim IE As InternetExplorer
    Set IE = New InternetExplorer
    Dim Doc As HTMLDocument
    Cells.Clear
    mySearch = InputBox("Scrivi il nome da cercare")
    Const myURL As String = "https://www.visionwheel.com/dealers/dealer-search.cfm"
    With IE
        .Navigate myURL
        .Visible = True
        Do While .Busy = True Or .ReadyState <> READYSTATE_COMPLETE
            Application.Wait Now + TimeValue("00:00:04")
        Loop
    End With
    Set Doc = IE.Document
    Doc.getElementsByTagName("input")(0).Value = mySearch
    Doc.getElementsByClassName("button search-button").Item.Click
    Sleep 4000
    For Each a In Doc.getElementsByClassName("contact-info")
        i = i + 1
        Cells(i, 1) = a.innerText
    Next
    IE.Quit
    Set IE = Nothing
    Set Doc = Nothing
End Sub
 
Back
Top