data extraction

[frtnamu]

[KOD=vba]


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

[/KOD]

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

 

[Rick Rothstein]

Cross-posted at Excel Forum forum.

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Please provide links to any other sites where you have asked this question.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.