Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Query per estrazione lotto

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel Query per estrazione lotto

Postdi Statix » 23/11/08 22:26

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
Statix
Windows 7,
Office 2010,
Statix
Utente Senior
 
Post: 1078
Iscritto il: 12/05/06 21:55
Località: Provincia di Caserta

Sponsor
 

Re: Excel Query per estrazione lotto

Postdi Flash30005 » 24/11/08 00:15

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel Query per estrazione lotto

Postdi Flash30005 » 24/11/08 02:33

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Excel Query per estrazione lotto

Postdi Dylan666 » 25/11/08 16:46

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 ;)
Avatar utente
Dylan666
Moderatore
 
Post: 38040
Iscritto il: 18/11/03 16:46


Torna a Applicazioni Office Windows


Topic correlati a "Excel Query per estrazione lotto":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti