Condividi:        

EXCEL WEB MULTIPLE PAGE TABLE QUERY

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

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi calogero.p » 09/10/17 21:44

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.
calogero.p
Newbie
 
Post: 2
Iscritto il: 08/10/17 07:38

Sponsor
 

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi aviogeo » 22/05/18 14:26

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
aviogeo
Newbie
 
Post: 4
Iscritto il: 22/05/18 14:24

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi Anthony47 » 22/05/18 23:03

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi aviogeo » 24/05/18 15:52

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
aviogeo
Newbie
 
Post: 4
Iscritto il: 22/05/18 14:24

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi Anthony47 » 24/05/18 22:39

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi aviogeo » 28/05/18 07:52

Ciao,
ti allego il file excel che utilizzo

https://we.tl/m5l6gwR26F

Grazie
aviogeo
Newbie
 
Post: 4
Iscritto il: 22/05/18 14:24

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi Anthony47 » 28/05/18 23:06

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL WEB MULTIPLE PAGE TABLE QUERY

Postdi aviogeo » 30/05/18 16:31

Funziona, ho scaricato i dati.
Ti ringrazio di cuore.
aviogeo
Newbie
 
Post: 4
Iscritto il: 22/05/18 14:24

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "EXCEL WEB MULTIPLE PAGE TABLE QUERY":


Chi c’è in linea

Visitano il forum: Marius44 e 47 ospiti