internetden veri çekme

[celofb]

Merhaba Arkadaşlar
ek excel dosyasındaki verileri www.lme.com adresinden nasıl alabilirim.Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim ie As Object, i%
    Set ie = CreateObject("[COLOR="Red"]internetexplorer.application[/COLOR]")
    With ie
        .navigate "[COLOR="Red"]https://www.lme.com/[/COLOR]"
        .Visible = [COLOR="red"]False[/COLOR]
        Do While [COLOR="red"].busy[/COLOR]: DoEvents: Loop
        Do While [COLOR="red"].ReadyState[/COLOR] <> 4: DoEvents: Loop
        For i = 1 To 11
            Cells(i, "A") = .Document.getelementsby[COLOR="red"]tagname[/COLOR]("[COLOR="red"]th[/COLOR]").Item(i + 1).[COLOR="red"]innertext[/COLOR]
            Cells(i, "B") = .Document.getelementsby[COLOR="red"]tagname[/COLOR]("[COLOR="red"]td[/COLOR]").Item(i - 1).[COLOR="red"]innertext[/COLOR]
        Next i
    End With
    ie.Quit: Columns.AutoFit
    i = Empty: Set ie = Nothing
End Sub[/SIZE][/FONT]

 

[celofb]

rica etsem formülleri dosyaya koyabilirmisiniz.

 

[Murat OSMA]

Sayfadayken ALT+F11 tuşlarına birlikte basın.
Açılan pencerenin üst menüsünden önce Insert sonra da Module seçin ve kodları açılan boş pencereye yapıştırın.
Şimdi makroda herhangi bir satırı seçin ve F5 tuşuna basın.​

 

[celofb]

teşekkürler.