• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

tüm sayısal loto sonuçları

  • Konbuyu başlatan Konbuyu başlatan cinn06
  • Başlangıç tarihi Başlangıç tarihi
slm usta07 sayısal sonuçları sanırım kırılmış başka nasıl indirebiliriz acaba?
 
Dede ve usta07 paylaşım için tesekkürler. 6yı bilirsem yazdııgm programla tabi..sizi gorecem soz ama 2008 den sonrası yok haliyle
 
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...
 
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?
 
Orion1' Alıntı:
Sayın PLİNT Teşekkür ederim.
Bana bunu aldığınız yerin linkini verebilirmisiniz?
Genişletmek için tıkla ...
Aşağıdaki linkden ve kodlarla Evren hocam;

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

Kod: 
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
 
Sayın PLİNT teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst