tüm sayısal loto sonuçları

[by_nashi]

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

bu ekdeki dosyay goremiyorum

 

[mbabaozu]

slm usta07 sayısal sonuçları sanırım kırılmış başka nasıl indirebiliriz acaba?

 

[copperdevil]

Dede ve usta07 paylaşım için tesekkürler. 6yı bilirsem yazdııgm programla tabi..sizi gorecem soz ama 2008 den sonrası yok haliyle

 

[esas2010]

Usta 07 sizden dosyanızı email ile alabilir miyim burdan indiremiyorum
esasadam@yahoo.com
Teşekkürler

 

[tursay]

Merhabalar,

sanırım artık kodlar içindeki site çalışmıyor. Çalışan bir site uzerinden nasıl tüm çekilişleri excele alabiliriz...

 

[ZuCChiNi]

MPİ XML düzeninden vazgeçmiş. Tarihleri değiştirerek sonuçlara ulaşabilirsiniz.

http://www.mpi.gov.tr/sonuclar/cekilisler/onnumara/20121112.json
http://www.mpi.gov.tr/sonuclar/cekilisler/sanstopu/20121219.json
http://www.mpi.gov.tr/sonuclar/cekilisler/superloto/20121227.json
http://www.mpi.gov.tr/sonuclar/cekilisler/sayisal/20121222.json

 

[cigerkarakaya]

peki excel'e bu verileri nasıl çekeceğiz

 

[Orion1]

Merhaba.
Arkadaşlar.Buradaki site linkleri iptal olmuş.
İlk çekilşten bu güne kadar olan çekiliş sonuçlarını alabileceğimiz bir link verebilirmisiniz?

 

[PLİNT]

Merhaba
999 haftalık liste: http://s8.dosya.tc/server/mzm2fj/lot.xls.html

 

[Orion1]

Merhaba
999 haftalık liste: http://s8.dosya.tc/server/mzm2fj/lot.xls.html

Sayın PLİNT Teşekkür ederim.
Bana bunu aldığınız yerin linkini verebilirmisiniz?

 

[PLİNT]

Sayın PLİNT Teşekkür ederim.
Bana bunu aldığınız yerin linkini verebilirmisiniz?

Aşağıdaki linkden ve kodlarla Evren hocam;

http://www.turkiyeloto.com/sayisal/index.php

Private Sub CommandButton1_Click()
For a = 998 To 1 Step -1
s = s + 1
Cells(s, "A") = a
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.turkiyeloto.com/sayisal-loto-tb" & a & ".html", Destination:=Range("B" & s))
        .Name = "sayisal-loto-tb" & a & "_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .SaveData = True
        .RefreshPeriod = 0
        .WebFormatting = xlWebFormattingNone
        .WebTables = """sonuct1"""
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Next
End Sub

 

[Orion1]

Sayın PLİNT teşekkür ederim.

 

[PLİNT]

Sayın PLİNT teşekkür ederim.

Rica ederim, hocam sağolun.