Scrape product specification value [closed] - excel

Question

Closed. This question needs debugging details. It is not currently accepting answers.
Edit the question to include desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem. This will help others answer the question.
Closed 5 days ago.
Improve this question
I am trying to scrape the product specifications from Amazon using VBA.
HTML Page to scrape: https://www.amazon.in/dp/B01FXJI1OY
My two broad requirements are:
1)Break the product title to get certain specs
2) Get rest of the specs from Bullet points (BP) mentioned on page
Solution I have thought of (please suggest, if you think there is a better way to do this):
Use text identifiers (which are the specs value or text which come after the spec value):
My current code is able to fetch product title. It is also fetching the bullet points matching to a value stored in cell (2,2). Please help how can I fetch the value of specs using the identifier (which are multiple for some of the specs like month/year for warranty):
Sub GetchDetails()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim IE As Object ' InternetExplorer.Application
Dim url As String
Dim sh As Worksheet
Dim rw As Range
ThisWorkbook.Sheets("Crawler").Activate
Set sh = ActiveSheet
Set IE = CreateObject("InternetExplorer.Application")
' IE.Visible = True
url = "https://amazon.in/dp/B01FXJI1OY"
On Error Resume Next
IE.Navigate2 url
Do While IE.Busy = True Or IE.readystate <> 4
DoEvents
Loop
Set HTMLDoc = IE.document
Application.Wait (Now + TimeValue("0:00:01"))
Option Compare Text
Set itm = HTMLDoc.getElementById("productTitle")
Cells(rw.Row, 3).Value = itm.innertext
Set itm = HTMLDoc.getElementsByClassName("a-unordered-list a-vertical a-spacing-none")(0)
i = 0
For Each Item In itm.getElementsByTagName("li")
If LCase(Item.innertext) Like "*" & LCase(Cells(2, 2)) & "*" Then
Cells(rw.Row, 5 + i).Value = Item.innertext
i = i + 1
End If
Next Item

Answer 1

I'm thinking...something like this...to start. Of course, you can modify it to suit your needs.
Sub WebImport()
Dim objIE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "https://amazon.in/dp/B01FXJI1OY"
'Wait for site to fully load
IE.Navigate2 URL
Do While IE.Busy = True
DoEvents
Loop
RowCount = 1
With Sheets("Sheet1")
.Cells.ClearContents
RowCount = 1
For Each itm In IE.document.all
If itm.classname = "a-unordered-list a-vertical a-spacing-none" Then
.Range("A" & RowCount) = itm.classname
.Range("B" & RowCount) = itm.innerText
RowCount = RowCount + 1
End If
Next itm
End With
End Sub
Result: