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.

 

[Worf]

Hello

autom(AutoRecovered)nov20.xlsm
	F	G	H
2	https://www.amazon.in/dp/B07FVHZZTD/	Brand: Ikea	https://www.amazon.in/s/ref=bl_dp_s_web_0?ie=UTF8&search-alias=aps&field-keywords=Ikea
3	https://www.amazon.in/dp/B07Y5DY5FX	Visit the Flipco Store	https://www.amazon.in/stores/Flipco/page/795FFADE-F2E4-416F-9A79-1E92C8F95EB2?ref_=ast_bln
4	https://www.amazon.in/dp/B079GT2W44	Visit the Santosha Decor Store	https://www.amazon.in/stores/SANTOSHA+DECOR/page/C007BCA3-750F-4AEB-9A1D-D31AB31625C8?ref_=ast_bln
5	https://www.amazon.in/dp/B07SWRMVCS	Visit the Nilkamal Store	https://www.amazon.in/stores/Nilkamal/page/BE0E30A1-2779-4434-8244-AB002A0225C3?ref_=ast_bln
6	https://www.amazon.in/dp/B07GCL5V3Z	Brand: MBTC	https://www.amazon.in/MBTC/b/ref=bl_dp_s_web_16081496031?ie=UTF8&node=16081496031&field-lbr_brands_browse-bin=MBTC
test

Sub IE_event()
Dim iea As InternetExplorer, doc, search, i%
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")
    Cells(i, 7) = search.innerText
    Cells(i, 8) = search.href
Next
End Sub

 

[sagar kathiriya]

Hello

autom(AutoRecovered)nov20.xlsm
	F	G	H
2	https://www.amazon.in/dp/B07FVHZZTD/	Brand: Ikea	https://www.amazon.in/s/ref=bl_dp_s_web_0?ie=UTF8&search-alias=aps&field-keywords=Ikea
3	https://www.amazon.in/dp/B07Y5DY5FX	Visit the Flipco Store	https://www.amazon.in/stores/Flipco/page/795FFADE-F2E4-416F-9A79-1E92C8F95EB2?ref_=ast_bln
4	https://www.amazon.in/dp/B079GT2W44	Visit the Santosha Decor Store	https://www.amazon.in/stores/SANTOSHA+DECOR/page/C007BCA3-750F-4AEB-9A1D-D31AB31625C8?ref_=ast_bln
5	https://www.amazon.in/dp/B07SWRMVCS	Visit the Nilkamal Store	https://www.amazon.in/stores/Nilkamal/page/BE0E30A1-2779-4434-8244-AB002A0225C3?ref_=ast_bln
6	https://www.amazon.in/dp/B07GCL5V3Z	Brand: MBTC	https://www.amazon.in/MBTC/b/ref=bl_dp_s_web_16081496031?ie=UTF8&node=16081496031&field-lbr_brands_browse-bin=MBTC
test

Sub IE_event()
Dim iea As InternetExplorer, doc, search, i%
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")
    Cells(i, 7) = search.innerText
    Cells(i, 8) = search.href
Next
End Sub

Thank you so much.. ?

 

[Worf]

You are welcome and thanks for the feedback.

 

[sagar kathiriya]

I'm getting error of User-defined-type not defined. please see screenshot.

 

[sagar kathiriya]

Hello

autom(AutoRecovered)nov20.xlsm
	F	G	H
2	https://www.amazon.in/dp/B07FVHZZTD/	Brand: Ikea	https://www.amazon.in/s/ref=bl_dp_s_web_0?ie=UTF8&search-alias=aps&field-keywords=Ikea
3	https://www.amazon.in/dp/B07Y5DY5FX	Visit the Flipco Store	https://www.amazon.in/stores/Flipco/page/795FFADE-F2E4-416F-9A79-1E92C8F95EB2?ref_=ast_bln
4	https://www.amazon.in/dp/B079GT2W44	Visit the Santosha Decor Store	https://www.amazon.in/stores/SANTOSHA+DECOR/page/C007BCA3-750F-4AEB-9A1D-D31AB31625C8?ref_=ast_bln
5	https://www.amazon.in/dp/B07SWRMVCS	Visit the Nilkamal Store	https://www.amazon.in/stores/Nilkamal/page/BE0E30A1-2779-4434-8244-AB002A0225C3?ref_=ast_bln
6	MBTC Familo Stripe Folding Chair in Black: Amazon.in: Home & Kitchen	Brand: MBTC	https://www.amazon.in/MBTC/b/ref=bl_dp_s_web_16081496031?ie=UTF8&node=16081496031&field-lbr_brands_browse-bin=MBTC
test

Sub IE_event()
Dim iea As InternetExplorer, doc, search, i%
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")
    Cells(i, 7) = search.innerText
    Cells(i, 8) = search.href
Next
End Sub

I'm getting error of User-defined-type not defined. please see screenshot.

 

[Worf]

Check if you have a VBA reference to the Microsoft Internet Controls library.

 

[sagar kathiriya]

I have added that library now, but i'm getting another error for blocked variable is not set. can you help me with that and set block variable... some product which are now unavailable are getting error i have attached screenshot..

 

[sagar kathiriya]

Check if you have a VBA reference to the Microsoft Internet Controls library.

Getting this error ...

 

[Worf]

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