data extraction

classs.jpg

Sub sell()
Dim sk As Worksheet
Dim u As Range
Set sk = Sheets("sf")
Dim i As Integer

Dim ie As Object
Dim document As HTMLDocument

Set ie = Nothing
Set ie = CreateObject("InternetExplorer.Application")

ie.Visible = True
For i = 2 To sk.Range("c" & Rows.Count).End(xlUp).Row
'order no
ie.navigate "Amazon Sign In" & Cells(i, "c") & "/"

' With HTMLDoc
' .all.Item("email").Value = "....."
' .all.Item("password").Value = "......"
' .all.Item("signInSubmit").Click
' End With
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE

Application.Wait (Now + TimeValue("0:00:08"))
Set document = ie.document

'Set tarih = HTMLDoc.getElementById("Order-Summary-purchase-Date-Value")
Set u = Nothing
Set u = document.getElementById("product-name-column-word-wrap-break-all")
Range("d" & i).Value = u.innerText
Set document = Nothing
Next
End Sub

hello
more-info-column-word-wrap-break-word
product-name-column-word-wrap-break-all
Order-Summary-purchase-Date-Value
how can i get this data
thanks

Cross-posted as MrExcel forum