tüm sayısal loto sonuçları

[cinn06]

merhaba
tek tek sayısal loto sonuçlarını görebiliyoruz ancak liste halinde tüm sonuçları excel de almamız mümkün mü yada oturup teker teker yazmak zorundamıyım şimdiden yardımlarınız için teşekkür ederim

 

[hamitcan]

Sayın Haluk'un kodları;

Const URL As String = "http://649.tr.net/cgi-bin/sayisal.cgi?"
Sub Test()
    '
    ' 16-11-1996 tarihinden bugüne kadar olan tüm sayisal loto sonuçlarını web'den alır....
    ' Haluk ®
    '
    Dim StartDate As Date
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    
    Range("A1:G2000").ClearContents
    Range("A1") = "Cekilis Tarihi"
    Range("B1") = "1nci Sayi"
    Range("C1") = "2nci Sayi"
    Range("D1") = "3ncu Sayi"
    Range("E1") = "4ncu Sayi"
    Range("F1") = "5nci Sayi"
    Range("G1") = "6nci Sayi"
    Range("A1:G1").Font.Bold = True
    Range("A1:G1").Font.Color = vbRed
    
    StartDate = DateValue("09/11/1996")
    MyDate = Format(StartDate, "yyyymmdd")
    Set IE = CreateObject("InternetExplorer.Application")
    
    For i = 2 To DateDiff("ww", StartDate, Date) + 1
        j = j + 1
        MyDate = DateAdd("ww", j, StartDate)
        Range("A" & i) = Format(MyDate, "dd/mm/yyyy")
        With IE
        .Navigate URL & Format(MyDate, "yyyymmdd")
        Do Until IE.ReadyState = 4: DoEvents: Loop
        With .Document.all
            On Error Resume Next
            .haftalar.Value = Range("A" & i)
            On Error GoTo 0
            
        End With
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop
        
        On Error GoTo ErrHandler:
        Set HTML_Body = IE.Document.Body
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        Set MyTable = HTML_Tables(4)
        
        Range("B" & i) = MyTable.Rows(0).Cells(0).InnerText
        Range("C" & i) = MyTable.Rows(0).Cells(1).InnerText
        Range("D" & i) = MyTable.Rows(0).Cells(2).InnerText
        Range("E" & i) = MyTable.Rows(0).Cells(3).InnerText
        Range("F" & i) = MyTable.Rows(0).Cells(4).InnerText
        Range("G" & i) = MyTable.Rows(0).Cells(5).InnerText
        Range("h" & i) = "'" & Range("B" & i) & Range("c" & i) & Range("d" & i) & Range("e" & i) & Range("f" & i) & Range("g" & i)
        End With
    Next
    GoTo SafeExit:
ErrHandler:
    MsgBox "Bilgi bulunamadi veya internet erisimi yetersiz ...", vbCritical, "Kullanicinin dikkatine..."
SafeExit:
    Columns(1).AutoFit
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set HTML_TableRows = Nothing
    Set HTML_TableDivisions = Nothing
    Set IE = Nothing
End Sub

 

[tokerx22]

teşekürler gerçekten cok etkileyici

 

[cinn06]

ben anlatamadım sanırım bu kodla tarihi yazarsın sonucu alırsın ben bunun bi alt yapısı varya hani çıkmış sayılar tarihleri yada hafta isimleri ile gösterilen tam liste yani 1. haftadan 620. haftaya kadar liste halinde olan ben bunu teker teker tarih seçmeden toplu olarak elde etmenin bi yolu varmı diye soruyodum bana veri olarak lazım piyasada bulunan tahmin programlarından çok farklı bir program yapmayı planlıyorum ben çok aradım bulamadım eger burdada bi sonuç çıkmaz sa artık teker teker yazıcam yardımlarınız için teşekkürler

 

[usta07]

Arkadaşlar balık tutmayı ögretiyor.
Siz illaki hazır pişmiş olsun diyorsun.
İstediğiniz bumudur.
Ekteki dosyayı inceleyiniz.

 

[yucel baygul]

sn usta07 balık güzel pişmiş. çok teşekkürler.

 

[cinn06]

benim sana söyleyebileceğim tek bi şey var ellerine sağlık... bunu nasıl elde ettiğini sormuyorum bide ona uğraşma bana bu fazlasıyla yeter birde bu tip işlerle uğraşanlar için bu netteki tek kaynak çok dua alacağından eminim bu arada olurda becerir 6 yı yakalarsam bununda karşılığı görülür sağlıklı ve mutlu kal

 

[by_bora]

her hafta listeyi güncelliyordum, kodları yazan haluk arkadaşa teşekür.

 

[starmetin]

güzel çalışma teşekkürler

 

[pureboy]

güzell iş....teşekkürler

 

[iskelet]

Arkadaşlar balık tutmayı ögretiyor.
Siz illaki hazır pişmiş olsun diyorsun.
İstediğiniz bumudur.
Ekteki dosyayı inceleyiniz.

ben bu dosyayı indiremiyorum acaba nedendir
dosyayı tekrar yükleyebilecek arkadaş varsa çok memnun olurum
on numara ve şans topu içinde varsa oda olur
iyi çalışmalar

 

[cems]

Sayın İskelet
Gözden kaçmış olabilir , forumun başlığında ;
LÜTFEN DOSYA İNDİREMİYORUM DİYE MESAJ GÖNDERMEYİN!!!.
06/11/2008 öncesi dosyalar arşivden silindi.
Konu ile ilgi açıklama için: http://www.excel.web.tr/f53/foruma-tekrar-merhaba-t57884.html
açıklaması var , inceleyebilirsiniz.

Dosyayı indirmeden Sayın üstad Haluk'un vermiş olduğu kodları deneyerek de oluşturmanız mümkün

 

[usta07]

Haluk kardeşime teşekkür etmeyi unutmayın.

 

[iskelet]

sayın cems ve sayın usta07 ikinizede teşekkür ederim.
sayın usta diyelim ben on numara için de böyle web den sonuçları almak istiyorum ne yapmam gerekiyo acaba.

 

[ataskavrayan]

güzel çalışma

güzel çalışma teşekkürler

 

[angel4545]

arkadaşım alamıorum sonuçları bir türlü

 

[dEdE]

Toplu sonuçlar ektedir.
Birkaç ay eksik ama hiç yoktan iyidir herhalde.
Altı tutturursanız payımı isterim.

 

[advocate81]

ben bu linke ulaşamıyorum neden acaba?

 

[dEdE]

Hangi linke?

 

[freedomforman]

dosya kaldırılmış yok güncelleme ya bitti yada arkadaş tutturdu gelmiyor siteye