kap sitesinden veri alma

[yNsr43]

iyi günler kap.gov.tr sitesinden yeni gelen bilançoları dış veri al dan yapmaya çaliştim olmadi sitenin kaynak kodlarından tablonun tag kodunuda bulamadim bunu farkli bir yol ile yapmak mümkün mü ?
yapmak istediğim şu
https://www.kap.org.tr/tr/bildirim-sorgu

sitesinde

https://i.imgur.com/84nfyCS.gifv

şu işlemi yapıp "kod" kolonunu almak istiyorum.
teşekkürler.

 

[ptcsite]

Bende yapamadım var mı bilen? bende İlk 5 Bildirim almak istiyorum... fakat GetelementsbyClassname ile veriyi alamadım. Alınca ilk alımda hücreye " {{d.stockCodes}} " yazdırıyor sonrası satırda hata veriyor.

Option Explicit


Sub USDtoTRY()

Dim url As String
Dim XMLreq As New MSXML2.XMLHTTP60
Dim HTMLdoc As New MSHTML.HTMLDocument

 url = "https://www.kap.org.tr/tr/bildirim-sorgu?srcbar=Y&cmp=Y&cat=6&slf=FR"

    XMLreq.Open "GET", url, False
    XMLreq.send
        
        If XMLreq.Status <> 200 Then
        On Error Resume Next
            MsgBox "Webpage Not Found", vbOKOnly
        End If
        
    HTMLdoc.body.innerHTML = XMLreq.responseText

    Sayfa1.Cells(5, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(0).innerText
    Sayfa1.Cells(6, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(1).innerText
    Sayfa1.Cells(7, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(2).innerText
    Sayfa1.Cells(8, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(3).innerText
    Sayfa1.Cells(9, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(4).innerText
    
End Sub

 

[cuneytozrn]

Merhaba arkadaşlar bende günlük kap bildirimlerini bilançolwrı almak için araştırma yapıyorum.
Sonuç alabilen var mı?
Yardımcı olabilecek arkadaş varsa lütfen iletişime geçelim
Şimdiden teşekkürler

 

[cuneytozrn]

iyi günler kap.gov.tr sitesinden yeni gelen bilançoları dış veri al dan yapmaya çaliştim olmadi sitenin kaynak kodlarından tablonun tag kodunuda bulamadim bunu farkli bir yol ile yapmak mümkün mü ?
yapmak istediğim şu
https://www.kap.org.tr/tr/bildirim-sorgu

sitesinde

http://imgur.com/84nfyCS

şu işlemi yapıp "kod" kolonunu almak istiyorum.
teşekkürler.
[/QUOTE

Merhaba Naber
Sonuç alabildiniz mi acaba?

 

[cuneytozrn]

Bende yapamadım var mı bilen? bende İlk 5 Bildirim almak istiyorum... fakat GetelementsbyClassname ile veriyi alamadım. Alınca ilk alımda hücreye " {{d.stockCodes}} " yazdırıyor sonrası satırda hata veriyor.

Option Explicit


Sub USDtoTRY()

Dim url As String
Dim XMLreq As New MSXML2.XMLHTTP60
Dim HTMLdoc As New MSHTML.HTMLDocument

url = "https://www.kap.org.tr/tr/bildirim-sorgu?srcbar=Y&cmp=Y&cat=6&slf=FR"

    XMLreq.Open "GET", url, False
    XMLreq.send
       
        If XMLreq.Status <> 200 Then
        On Error Resume Next
            MsgBox "Webpage Not Found", vbOKOnly
        End If
       
    HTMLdoc.body.innerHTML = XMLreq.responseText

    Sayfa1.Cells(5, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(0).innerText
    Sayfa1.Cells(6, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(1).innerText
    Sayfa1.Cells(7, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(2).innerText
    Sayfa1.Cells(8, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(3).innerText
    Sayfa1.Cells(9, 3) = HTMLdoc.getElementsByClassName("notifications-column _3 vtable bi-dim-gray type-xsmall").Item(4).innerText
   
End Sub

Merhaba
Siz oldukça profesyonel çalışmışsınız.
Bi sonuç alabildi iz mi bize yardımcı olabilir misiniz?

 

[ptcsite]

Merhaba
Siz oldukça profesyonel çalışmışsınız.
Bi sonuç alabildi iz mi bize yardımcı olabilir misiniz?

Malesef olmuyor. Kapa bağlanıp bildirimleri alırken belli zaman sonra kap engel koyuyor. Yani sayfadan çekmene izin vermiyor...

 

[ibere]

Google sheet ile @Haluk hocam yapabilir

 

[ptcsite]

Google sheet ile @Haluk hocam yapabilir

Ping gönderince kap engelleme atıyor. Yapılamaz hocam