Excel Query per estrazione lotto

[Statix]

Ciao a tutti ,avrei bisogno di un aiuto per correggere la macro che prima funzionava a dovere,prendeva l'estrazione dal televideo rai,in questi giorni hanno modificato con delle nuove pagine,per cui adesso la macro mi da errore di query.

Codice: Seleziona tutto

 Sheets("Lotto").Select
   
    Set L = Worksheets("Lotto")
    Xiniz = 13
    Yiniz = 5
    LXiniz = 6
    LYiniz = 8
    LXfine = 10
    LYfine = 18
    L.Range("F12").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    For i = Xiniz To Xiniz + 10
        L.Cells(Yiniz, i).Font.ColorIndex = 0
        L.Cells(Yiniz, i).Font.Bold = False
    Next
     For j = LYiniz To LYfine
            For k = LXiniz To LXfine
                L.Cells(j, k).Font.ColorIndex = 0
                L.Cells(j, k).Font.Bold = False
            Next
    Next

http://www.televideo.rai.it/televideo/p ... pagina=591

[Flash30005]

Secondo me, dovresti ricaricare la query e seguire con il debug passo passo (F8) cosa fa effettivamente e dove ti dà errore ed eventualmente correggere

[Flash30005]

La pagina da te linkata non esiste più, ora il televideo lo trovi qui
http://www.televideo.rai.it/televideo/pub/pagina.jsp?p=591&s=1&r=Nazionale&idmenumain=2&x=24&y=8
ma la pagina non è adatta, a quanto sembra, per una QueryTables
Sul web, comunque, ci sono altri siti che pubblicano l'estrazione quasi in tempo reale e non so se ti può essere utile questa macro

Codice: Seleziona tutto

Sub Macro1()

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.repubblica.it/supertoto/lotto.html", Destination:=Range("A1") _
        )
        .Name = "lotto"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

[Dylan666]

Non credo che riuscirete a tirar fuori da excel una lista di numeri da quello che nella pagina HTML non è testo ma una immagine JPG...
http://www.televideo.rai.it/televideo/p ... ge-591.png
... a meno che non vi mettiate a integrare un OCR...

Come dice Flash30005, meglio appoggiarsi a un altro sito