How to Copy Brand Name From Amazon Website.

[sagar kathiriya]

I'm a seller on Amazon. I get a list of top selling products weekly (webpage link). I want to get brand name of that product from amazon. Currently I Have to Do it Manually For Each and Every Product. Screenshot is attachment for reference purpose.

Sample Link : Ikea Adde Chair White Indoor/Outdoor Back Rest: Amazon.in: Home & Kitchen if you check this link then Brand Name is "Ikea". Just like that I want Brand Name For all my Link.

Can Anyone Help with That VBA & Macro Please.

 

[sagar kathiriya]

Yes, It's Works... Thanks Again.

 

[sagar kathiriya]

New version:

Sub IE_event()
Dim iea As InternetExplorer, doc, search, i%, v
Set iea = CreateObject("InternetExplorer.Application")
iea.Visible = True
For i = 2 To Range("f" & Rows.Count).End(xlUp).row
    iea.navigate Cells(i, 6)
    Do Until Not iea.Busy
        DoEvents
    Loop
    Application.Wait Now + TimeValue("0:00:03")
    Set doc = iea.Document
    Set search = doc.getElementById("bylineInfo")
    On Error Resume Next
    v = search.innerText
    If Err.Number = 0 Then
        Cells(i, 7) = search.innerText
        Cells(i, 8) = search.href
    Else
        Cells(i, 7) = "Error #" & Err.Number
    End If
Next
End Sub

Hi, this code is working perfectly except in some cases when the product is live but the brand name is not available can you help me to distinguish between brand name is not available and the product is not available because I'm getting the same error all time.
For Example.. "www.amazon.in/dp/B07DKBXHPB" in this link product info is available but the brand is not available. So, can you make a different errors in this kind of case to identify them specially?

 

[Worf]

New version:

Sub IE_event()
Dim iea As InternetExplorer, doc, search, i%, v, un, itm
Set iea = CreateObject("InternetExplorer.Application")
iea.Visible = True
For i = 2 To Range("f" & Rows.Count).End(xlUp).row
    iea.navigate Cells(i, 6)
    Do Until Not iea.Busy
        DoEvents
    Loop
    Application.Wait Now + TimeValue("0:00:03")
    Set doc = iea.Document
    Set search = doc.getElementById("bylineInfo")
    On Error Resume Next
    v = search.innerText
    If Err.Number = 0 Then
        Cells(i, 7) = search.innerText
        Cells(i, 8) = search.href
    Else
        Cells(i, 7) = "Error #" & Err.Number
    End If
    Set un = doc.getElementsByClassName("a-size-medium a-color-price")
    If un.Length > 0 Then
        For Each itm In un
            If itm.innerText Like "*unavailable*" Then
                Cells(i, 8) = "Unavailable"
                Cells(i, 7) = doc.getElementById("productTitle").innerText
            End If
        Next
    End If
Next
End Sub