praise data from an attribute - excel

Question

want to get value of "data-defaultasin" attribute ,in b,c,d columns and so on from these elements (screenshot given).
product url- https://www.amazon.in/dp/B06XTB2N7P
inspect ss product page worksheet
Sub praseasin()
Dim ASIN
Dim doc As HTMLDocument
Dim htmTable As HTMLTable
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
Dim img As HTMLDocument
Dim i, lastRow As Long
lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
For i = 3 To lastRow
Set doc = New HTMLDocument
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", ws.Cells(i, 1), True
.send
Do: DoEvents: Loop Until .readyState = 4
Dim resp
resp = .responseText
.abort
End With
' On Error Resume Next
doc.body.innerHTML = resp
Set ASIN = doc.getelementsbyclassname("swatchAvailable")
' On Error Resume Next
r.Offset(0, 1).Value = li.getAttribute("data-defaultasin")
Next
End Sub

Answer 1

Try the following to get the asins from the different colors and put them in different columns. It's a demo script in which I've used one link multiple times. Modify it to suit your need. Thanks.
Sub FetchAsin()
Dim Http As New XMLHTTP60
Dim Html As New HTMLDocument, I&, R&, C&
Dim linkList As Variant, link As Variant
linkList = Array( _
"https://www.amazon.in/dp/B06XTB2N7P", _
"https://www.amazon.in/dp/B06XTB2N7P", _
"https://www.amazon.in/dp/B06XTB2N7P" _
)
For Each link In linkList
With Http
.Open "GET", link, False
.send
Html.body.innerHTML = .responseText
End With
With Html.querySelectorAll("[class^='swatch'][data-defaultAsin]")
For I = 0 To .Length - 1
C = C + 1: Cells(R + 1, C) = .Item(I).getAttribute("data-defaultAsin")
Next I
C = 0: R = R + 1
End With
Next link
End Sub
Reference to add to the library:
Microsoft XML, v6.0