Fetch data from Company URL

[Pushker123]

I have a Company website URL in the excel sheet 01, when i copy and paste 1 company URL name(example http://www.06sogutma.com) into excel sheet 02 and RUN MACRO/Click Enter, the following field must automatically fetch contact number, Fax number from the website and populate into excel sheet 02.

Grateful if anyone can help me with the logic as i am new to VBA.

thanks
Pushker

 

[YasserKhalil]

Try this code

Sub Demo()
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "https://06sogutma.com/", False
        .setRequestHeader "DNT", "1"
        On Error Resume Next
        .send
        Debug.Print "Phone: " & Trim(Split(Split(.responseText, """>Tel")(1), "<")(0))
        Debug.Print "Fax: " & Trim(Replace(Split(Split(.responseText, "Fax:")(1), "</p")(0), "</b>", ""))
        Debug.Print "E-Mail: " & Split(Split(.responseText, "a href=""mailto:")(1), """>")(0)
    End With
End Sub

 

[Pushker123]

Hi Yasser

Thanks for you reply

But i am not able print the Phone, fax & email in excel sheet.

Can you please help me out?

Thanks
Pushker