veri çekme

Katılım
20 Haziran 2015
Mesajlar
36
Excel Vers. ve Dili
office 2010 türkçe
selamlar

veri çekmede hata alıyorum yardımcı olabilirmisiniz teşekkürler


Kod:
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
'sipariş numarası
ie.navigate "https://sellercentral-europe.amazon.com/orders-v3/order/" & 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
 
Katılım
20 Haziran 2015
Mesajlar
36
Excel Vers. ve Dili
office 2010 türkçe
Yardımcı olurmusunuz lütfen
 
Üst