EXCEL WEB MULTIPLE PAGE TABLE QUERY

[calogero.p]

Caro Anthony, che dire, complimenti!
sei stato veloce nella risposta, paziente con chi (come me) non capisce nulla di VB e VBA ed assolutamente chiaro.
Funziona benissimo!!!
Veramente, un sincero GRAZIE DI CUORE.

[aviogeo]

Ciao Anthony47,
a me continua a bloccarsi. Non riesco a scaricare i dati.
si blocca qui: .Refresh BackgroundQuery:=False
e anche qui:If Cells(Rows.Count, "B").End(xlUp) = Sheets(Dest).Cells(Rows.Count, "B").End(xlUp) Then Exit For
Non riesco a venirne fuori

[Anthony47]

La procedura prevede che sia stato creatoun file con una webquery, su cui avrebbe agito la macro; pubblica il file completo e vedremo.
Per come allegare un file guarda qui: viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[aviogeo]

Ciao,
ti scrivo il link con le immagini degli errori nello scarico dati.

https://we.tl/CNzLYS5gh7

Non va avanti, si blocca dopo poco piu di 1000 scarichi

Grazie in anticipo

Aviogeo

[Anthony47]

La procedura prevede che sia stato creatoun file con una webquery, su cui avrebbe agito la macro; pubblica il file completo e vedremo.
Per come allegare un file guarda qui: viewtopic.php?f=26&t=103893&p=605487#p605487

[aviogeo]

Ciao,
ti allego il file excel che utilizzo

https://we.tl/m5l6gwR26F

Grazie

[Anthony47]

Non so perche' a volte la query non si completa, ma il sito nelle mie prove e' di una lentezza esasperante.
Comunque se l'obiettivo e' di copiare i blocchi letti tramite la query va modificata la riga
Set myRan = Range(Cells(Rows.Count, "C").End(xlUp).Offset(0, -2), Range("E1").End(xlDown).Offset(1, 0))
In

Codice: Seleziona tutto

        Set myRan = Range(Cells(Rows.Count, "C").End(xlUp).Offset(0, -2), Range("E2"))

Un tentativo di non farsi bloccare sull'eventuale errore potrebe essere questa evoluzione della macro:

Codice: Seleziona tutto

Sub getTables22()
'versione http://www.pc-facile.com/forum/viewtopic.php?f=26&t=100356&start=20#p644186
Dim Dest As String, myRoot As String, I As Long, myRan As Range
'
Dest = "Foglio2"        '<< Il foglio dove sara' creato l' elenco
With Range("A1").QueryTable
    On Error GoTo Err1
    For I = 1 To 5000000
        .Connection = "URL;http://cercalatuascuola.istruzione.it/cercalatuascuola/ricerca/risultati?page=" & I & "&codiceRegione=&codiceOrdine=&checkStatale=S&radioBiennioTriennio=Biennio&denominazione=&codMecc=&tipoRicerca=AVANZATA&idform=result-453463"
        .Refresh BackgroundQuery:=False
        If Cells(Rows.Count, "B").End(xlUp) = Sheets(Dest).Cells(Rows.Count, "B").End(xlUp) Then Exit For
''        Set myRan = Range(Cells(Rows.Count, "C").End(xlUp).Offset(0, -2), Range("E1").End(xlDown).Offset(1, 0))
        Set myRan = Range(Cells(Rows.Count, "C").End(xlUp).Offset(0, -2), Range("E2"))
       
        If myRan.Rows.Count <= 10 And myRan.Rows.Count > 0 Then
            myRan.Copy Destination:=Sheets(Dest).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        Else
            Exit For
        End If
boH:
        DoEvents
        [J1] = I
        [K1] = Sheets(Dest).Cells(Rows.Count, 1).End(xlUp).Row
   
    Next I
''    Debug.Print I
End With
GoTo exiA
Err1:
Debug.Print "Errore: " & I, Now, [K1]
Resume boH
'
exiA:
MsgBox ("Completato...")
'
End Sub


Senza pero' nessuna possibilita' di collaudo esaustivo (caso di errore).

A fine macro se apri la "finestra Immediata" del vba dovresti avere l'elenco delle pagine terminate in errore, l'orario, e il rigo di Foglio2 che in quel momento indica la fine dell'elenco importato (quindi grosso modo l'area dove manca il blocco andato in errore).
Per aprire la "finestra Immediata" del vba: dalla finestra in cui visualizzi il codice macro premi Contr-g

Ciao

[aviogeo]

Funziona, ho scaricato i dati.
Ti ringrazio di cuore.