Scrape Amazon details

Looking for something?
We're sorry. The Web address you entered is not a functioning page on our site.

Go to Amazon.co.uk's Home Page

Sorry about that, I've edited the original post with a different link

Sub ScrapeAmazon()

Dim Ie As New InternetExplorer
Dim WebURL
Dim Docx As HTMLDocument
Dim ArtistName
Dim Track
Dim Cost
Dim RcdNum

Ie.Visible = False

For RcdNum = 2 To ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Row

WebURL = ThisWorkbook.Worksheets(1).Range("A" & RcdNum)
Ie.Navigate2 WebURL
Do Until Ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set Docx = Ie.Document
Track = Docx.getElementById("Title_row").innerText
ArtistName = Docx.getElementById("artistBlurb").innerText
Cost = Docx.getElementById("actualPriceValue").innerText
ThisWorkbook.Worksheets(1).Range("B" & RcdNum) = ArtistName
ThisWorkbook.Worksheets(1).Range("C" & RcdNum) = Track
ThisWorkbook.Worksheets(1).Range("D" & RcdNum) = Cost
Next

End Sub

Here's the code snippet. copy and paste into VBA editor. Also, please add reference to following libraries:

Microsoft Internet Controls
Microsoft HTML Object Library

Cheers

Thanks!

I've opened the VB editor, pasted the code in and checked the following references:

Microsoft Internet Controls
Microsoft HTML Object Library

saved the book as a macro-enabled workbook and when I run the sub, nothing happens

Am I doing something wrong?

Cheers again!

AB33

Will be careful about it

Ummm..

Did you copy and paste the URLs to scrape data from in Column A?

Please start pasting URLs from Cell Number 2 in column A.

yeah, I'm pasting the URL into cells from A2 downwards, hitting run on the VB module , It says "running" for a few secs but nothing else appears on the sheet

Got it working

Glad to know that.

Hi There

I tried the above and keep getting "Run-Time error "91"

Any reason for this

I am getting "Run-Time error 91" on macro execution. I have added url to be in A2 cell.