Web sitesinden veri alma

[cellswhite]

Günaydın iyi haftalar arkadaşlar,
http://www.statarea.com/predictions/date/2016-01-15/competition
Yukarıdaki web sitesinden veri almaya çalışıyorum ama elimdeki ornekler ile alamadım,
Aşağıdaki kod ile ilerlemeye çalıştım ama tıkandım ,

Bana bu konuda destek verebilirseniz çok sevinirim ,
İyi çalışmalar,

  Set IE = CreateObject("InternetExplorer.Application")
       With IE
        .Navigate url
        .Visible = True
        .Width = 300
.Height = 400
.Left = 50

        Do Until IE.ReadyState = 4: DoEvents: Loop
          Do Until IE.ReadyState = 4: DoEvents: Loop
            Do While IE.Busy: DoEvents: Loop
            DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents: DoEvents
            Set HTML_Body = IE.Document.GetElementsByTagName("Body").Item(0)
            Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
              Range("A1").Select
              For w = 0 To 100
              Set MyTable = HTML_Tables(w)
              For x = 0 To 30
              Application.StatusBar = x
              sira = [a1048576].End(3).Row + 1
              Cells(sira, 1).Select
            Cells(sira, 1) = "'" & w & "-" & x
            Cells(sira, 2) = MyTable.Rows(x).Cells(0).InnerText
            Cells(sira, 3) = MyTable.Rows(x).Cells(1).InnerText
            Cells(sira, 4) = MyTable.Rows(x).Cells(2).InnerText
         
            Next
            
            Next

.Quit

End With

 

[cellswhite]

Konu ile ilgili fikri olan arkadaşlarım varmıdır?

 

[cellswhite]

Destek verebilecek olan varmı arkadaşlar,

 

[cellswhite]

Beklemedeyim , iyi çalışmalar

 

[cellswhite]

İyi akşamlar arkadaşlar
Bakma fırsatı bulabildiniz mi?
İyi çalışmalar

 

[cellswhite]

Günaydın arkadaşlar
Özel mesaj kutuma gelen cevap hoş olmayan bir cevap
Bu cumleyi yazmamdakı neden de web sitesinin misyonu
"Para ile bu işi yapabiliriz" demek pek etik olmadı.
Bedelsiz bana destek verecek arkadaşlar varsa sevinirim
İyi çalışmalar

 

[cellswhite]

Selamlar
Kimse yok mu?

 

[Murat OSMA]

Merhaba Sn. cellswhite,

Size kim "Para ile bu işi yapabiliriz" dedi bilmiyorum.
Fakat kim dediyse doğru demiş.

Bu tarz çalışmalar mutlaka ücret karşılığında yapılmalı.
Üstelik sizin veri almak istediğiniz web sayfası bir bahis ya da bahis tahmin sitesine ait.

Siz ne için veri almak istiyorsunuz? Zevk için mi, keyif için mi?
Tabii ki bahislerden para kazanmak için.
Siz bir şekilde bu veri çekme işleminden dolayı paralar kazanmayı düşünüyorsunuz, ama sizden emeği karşılığında belli bir ücret isteyen kişiler hakkında; "pek etik olmadı" diyorsunuz. Bu o kişinin en doğal hakkı.

Tekrar belirteyim; Web Sayfalarından Veri Alma/Gönderme/Sorgulama İşlemleri, VBA'nın en zor işlemlerinden biridir ve üzerinde fazlaca vakit harcamak, kafa yormak gerekir. Ayrıca sizin yardım istediğiniz konularda profesyonel yazılım firmaları, burada sizden istenecek rakamın çok çok üzerinde bir meblağ isterler.

Profesyonel yazılım firması ücret isteyince; hay hay, yardımlaşma platformu olunca; etik değil.
Bence sizin yaklaşımınız etik değil.


Size özelden gelen bir mesajı bu şekilde kullanmanız da hoş olmadı.
Tamamen sizin tercihinize kalmış bir durumdur, ister ücret karşılığında hazırlattırırsınız, isterseniz de yine ücretsiz destek aramaya devam edersiniz.


Yardımlaşma platformu da olsa her iş ücretsiz yapılmaz, yapılmamalıdır.
Bu düşüncenizi kafanızdan silin derim.


Bu mesajım sadece kafanızdaki algıyı değiştirmeniz içindi.


Saygılar

​

 

[cellswhite]

Murat Bey selamlar,
Ben şahsi fikrimi yazdım , sizde şahsi fikirlerinizi beyan ettiğinizi düşünüyorum ,
7-8 yıldır bu web sitesini vakit buldukça takip ettim , eski kullandığım account u iş tempomun artmasından dolayı , foruma efektif katkıda bulunamadığım için kullanmamayı tercih ettim.
forumumuzun var olan misyonunun ne oldugunu yeterince kavır ettiğim kanaatindeyim.
ben , bana özelden mesaj atan kişinin bilgilerini paylaşmadım,
şu şekilde donus beni daha tatmin ederdi ; "uzunca bir emek harcıyan çalışma ile çözümlenebilir.Fazlaca bir mesai harcanabilir , teşekkur mahiyetnde gönüllerin alınması daha hoş olabilir"
Yinede feedBack için teşekkurler,
Sevgiler, İyi çalışmalar,

 

[Zeki Gürsoy]

Forumda web ten veri alma konusunda özel mesaj veya e-posta ile bana ulaşanlar ücret talebime anlayış gösterdi.

VBA & Web işlemi, yeni nesil web sayfası teknolojileriyle beraber biraz zahmetli bir hale geldi.

Murat beyin görüşlerine katılıyorum.

 

[cellswhite]

Ok.
O vakit diyecek birşeyim yok.Bir yönetici arkadaşımda aynı fikirdeyse ısrarcı olup üstelememim bir faydası yok.
Ben çözüme kavuştugum süreçte bilgisini geçiyor olacağım
İyi akşamlar iyi çalışmalar