Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

problema scaricamento dati da sito web

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

problema scaricamento dati da sito web

Postdi templare77 » 30/06/17 08:48

Salve a tutti,
Ciao Anthony.

Ho una domanda molto semplice.

Andando a questa pagina http://www.tennisprediction.com/?a=play ... tr=-2&tq=M è possibile visualizzare i dettagli del tennista Djokovic. In particolare a me interessano altre statistiche che è possibile visualizzare cliccando sui check box relativi ed in fine cliccando sul pulsante verde "show matches and statistics for selected options".

Ora, tramite codice VBA, io riesco a fare tutto: ossia aperta la pagina web, simulo il click sui. Checkbox che mi interessano ed infine sono il click sul pulsante verde di cui prima. Mi si carica correttamente una seconda tabella con i dati da me voluti. Però nel momento in cui faccio lo scraping, ottengo i dati della tabella che c'era prima di premere il pulsante verde.... Molto probabilmente il JavaScript non mi aggiorna la pagina.... Allora chiedo: È possibile scaricare lo studio i dati di questa seconda tabella o devo lasciare perdere? Grazie a tutti!!
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Sponsor
 

Re: problema scaricamento dati da sito web

Postdi templare77 » 30/06/17 09:27

Scusate per gli errori di ortografia ma il T9 fa brutti scherzi
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: problema scaricamento dati da sito web

Postdi Anthony47 » 30/06/17 11:45

Ora, tramite codice VBA, io riesco a fare tutto: ossia aperta la pagina web, simulo il click sui. Checkbox che mi interessano ed infine sono il click sul pulsante verde di cui prima. Mi si carica correttamente una seconda tabella con i dati da me voluti
Se sai fare tutte quelle cose e non condividi come allora sei crudele.

Comunque i dati vengono creati in locale sul tuo pc tramite script, quindi se fai il canonico controllo sullo stato IE.Busy e IE.readyState in realta' non aspetti che IE.Document sia pronto, quindi la successiva ricerca all'interno di Document non produrra' il risultato atteso.
In questi casi io, dopo un Click, metto una volgare attesa di 1-2 secondi
Codice: Seleziona tutto
'Attesa 2 sec:
            mytim = Timer
            Do
                DoEvents : If Timer > (mytim + 2) Or Timer < mytim Then Exit Do
            Loop
Se in questo modo non risolvi allora devi pubblicare il codice che ora usi per capire come agganciarsi.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: problema scaricamento dati da sito web

Postdi templare77 » 30/06/17 18:06

Ciao Anthony!

Ecco subito il codice:
Una volta collegatomi alla pagina dei palinsesti e stabilizzato il download, come mi hai insegnato tu, procedo con l'acquisizione di tutte le righe contenenti i nomi dei giocatori per poi estrapolare i link che rimandano alle pagine dei dettagli. Supponiamo di voler vedere i dettagli di "Mannarino Adrian". Se clicchi sopra il suo nome o se vai a questo indirizzo http://www.tennisprediction.com/index.php?a=player&p1_id=493577&s_d=S&tp=500&tr=-2&sr3=1 , ti trovi nella sua pagina dei dettagli. Con una tabella in fondo alla pagina.

All'interno del ciclo For tramite l'istruzione
Codice: Seleziona tutto
Set total_input = ie.document.getelementsbytagname("input")
, creo la collezione dei tag INPUT che mi servirà poi sotto, per selezionare alcuni check box e radiobutton.
Dopo la pressione simulata del tasto verde, aspetto 1 secondo (ma anche con 4 non cambierebbe nulla), e la tabella di cui prima, cambia con i dati che voglio scaricare.
In particolare io cerco le sconfitte dei giocatori, tramite questo IF
Codice: Seleziona tutto
If elem.classname = "main_oddsKO" And elem.innerText = "L" And  Then.....


Nella variabile Prova, ci metto il nome del giocatore che ha sconfitto Mannarino. Se noti bene, iterando il ciclo
Codice: Seleziona tutto
For Each elem In righe.....


nella variabile Prova non ci vanno a finire tutti i nomi visualizzati nella tabella ottenuta dalla ricerca, ma ci vanno quelli che erano contenuti nella tabella presente al momento dell'apertura della pagina dei dettagli, ossia prima di effettuare la ricerca

Questo appunto perchè la pagina in effetti non si aggiorna....come posso ottenere i dati giusti che vedo a video?

Codice: Seleziona tutto
'ACQUISISCO LE RIGHE DI TUTTI I GIOCATORI
Set all_players = ie.document.getelementsbyclassname("offer_player")
For Each elem In all_players
    If InStr(Trim(elem.innerText), player1_invertito) > 0 Then
        'LINK DETTAGLIO PRIMO GIOCATORE
        link_player1 = elem.getelementsbytagname("a")
        link1 = link_player1
    End If
    If InStr(Trim(elem.innerText), player2_invertito) > 0 Then
        'LINK DETTAGLIO SECONDO GIOCATORE
        link_player2 = elem.getelementsbytagname("a")
        link2 = link_player2
    End If
Next elem

For i = 1 To 2
   
    Call IE_Sledgehammer
    Application.Wait (Now + TimeValue("0:00:01"))
    Set ie = CreateObject("InternetExplorer.Application")
   
    With ie
        If i = 1 Then
            .navigate link1
        ElseIf i = 2 Then
            .navigate link2
        End If
        .Visible = True
        Do While ie.Busy: DoEvents: Loop
        mystart = Timer
        Do
            DoEvents
            If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
   
        Do While ie.readystate <> 4: DoEvents: Loop
    End With
   
    Set total_input = ie.document.getelementsbytagname("input")
   
    'SELEZIONO IL BIENNIO COSTITUITO DALL'ANNO ATTUALE E QUELLO PRECEDENTE
    For Each elem In total_input
        If elem.Name = "time_t" And elem.Value = 2 Then
            elem.Click
            Exit For
        End If
    Next elem

    For Each elem In total_input
        If elem.Name = "y_act" And elem.Value = 1 Then
            elem.Click
            Exit For
        End If
    Next elem

    For Each elem In total_input
        If elem.Name = "y_prev" And elem.Value = 1 Then
            elem.Click
            Exit For
        End If
    Next elem

    'SELEZIONO TUTTI I TURNI DA PRENDERE IN CONSIDERAZIONE: DAL PRIMO TURNO ALLA FINALE
    For Each elem In total_input
        If InStr(elem.Name, "tr") > 0 And elem.Checked = falso Then
            elem.Click
        End If
    Next elem
 
    'METTO A 50 IL NUMERO DEGLI INCONTRI DA VISUALIZZARE DOPO LA RICERCA
    For Each elem In total_input
        If InStr(elem.Name, "lim") > 0 And elem.Value = 50 Then
            elem.Click
            Exit For
        End If
    Next elem

    'CERCO ANCHE I TORNEI INFERIORI A 250.000 $
    For Each elem In total_input
        If InStr(elem.Name, "tp") > 0 And elem.Checked = False Then
            elem.Click
        End If
    Next elem

    'PREMO IL PULSANTE VERDE CHE ABILITA LA RICERCA
    For Each elem In total_input
        If elem.Value = "show matches and statistics for selected options" Then
            elem.Click
        End If
    Next elem

   
    Application.Wait (Now + TimeValue("0:00:01"))
       
    Set righe = ie.document.getelementsbyclassname("main_oddsKO")
    For Each elem In righe
        If elem.classname = "main_oddsKO" And elem.innerText = "L" And  Then
            cont = cont + 1
            Prova = elem.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.innerText
            ranking = Split(elem.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.innerText, "(")
            ReDim Preserve arr_ranking_P1(cont)
            arr_ranking_P1(cont) = Replace(ranking(2), ")", "")
       
            If UBound(arr_ranking_P1) = 10 Then
                'ORDINO IN MODO ALFABETICO L'ARRAY ARR_FEDERAZIONI
                For y = 0 To UBound(arr_ranking_P1) - 1
                    For x = 2 To UBound(arr_ranking_P1)
                        If arr_ranking_P1(x - 1) > arr_ranking_P1(x) Then
               
                            temporaneo = arr_ranking_P1(x - 1)
                            arr_ranking_P1(x - 1) = arr_ranking_P1(x)
                            arr_ranking_P1(x) = temporaneo
                   
                        End If
       
                    Next x
                Next y
            End If
           
        End If
       
    Next elem
   
   
Next i
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: problema scaricamento dati da sito web

Postdi Anthony47 » 01/07/17 21:12

Sono in viaggio quindi non riesco a fare prove; ma non ci riuscirei in ogni caso perche' non si sa la macro come comincia ne' so cosa c'e' in IE_Sledgehammer.
Oltretutto come l'hai presentata non ho gli elementi per capire se il fatto che crei tante volte l'oggetto "InternetExplorer.Application" (almeno 3 volte: due visibili, almeno 1 nel codice non mostrato) sia una furbata o una m****iata.

Inoltre l'uso di getelementsbyclassname presuppone che sia impostato un riferimento alla libreria MSHTML.tlb; ma in questo caso "intellisense" dovrebbe trasformare in GetelementsByClassname: tu il riferimento l'hai impostato?

Inoltre ti avevo detto di inserire il codice di attesa 1-2 sec dopo i Click; ma nella fase 'SELEZIONO IL BIENNIO etc etc e successivi fai tanti Click ma di attesa 1-2 sec non c'e' ombra. Vedo solo alla fine una Application.Wait (Now + TimeValue("0:00:01")) che pero' non ha le caratteristiche del codice che ti ho suggerito io (che la variabile si chiami mytim o mystart).

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: problema scaricamento dati da sito web

Postdi templare77 » 02/07/17 00:57

Ciao Anthony!

non si sa la macro come comincia ne' so cosa c'e' in IE_Sledgehammer.
Oltretutto come l'hai presentata non ho gli elementi per capire se il fatto che crei tante volte l'oggetto "InternetExplorer.Application" (almeno 3 volte: due visibili, almeno 1 nel codice non mostrato) sia una furbata o una m****iata.


Si hai ragione ora provvedo a postare un codice che funzioni. La funzione IE_Sledgehammer (è di Flash, l' ho trovato qui nel forum) la utilizzo per chiudere le istanze di IE presenti nel task Manager in quanto facendo un semplice "ie.quit" a volte IE mi rimaneva in background creandomi errori di Runtime

Inoltre l'uso di getelementsbyclassname presuppone che sia impostato un riferimento alla libreria MSHTML.tlb; ma in questo caso "intellisense" dovrebbe trasformare in GetelementsByClassname: tu il riferimento l'hai impostato?


l'unica cosa di simile che ho trovato fra i riferimenti è Microsoft HTML Object Library, che non è selezionato....però anche selezionandolo non cambia nulla....

Ok ti posto il codice.
In pratica nella finestra immediata dovresti visualizzare i nomi di chi ha sconfitto il tennista Adrian Mannarino. Prima del click sul pulsante verde, le righe con la stringa "L" sono 7.
Dopo il click, le righe della tabella con la stringa "L" generata dal Javascript, sono 20...ma nella finestra immediata sono sempre 7 :aaah :aaah

Codice: Seleziona tutto
Private Sub sconfitte()
   
    'APRO IL LA PAGINA DEI DETTAGLI
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .navigate "http://www.tennisprediction.com/index.php?a=player&p1_id=493577&info=1"
        .Visible = True
        Do While ie.Busy: DoEvents: Loop
        mystart = Timer
        Do
            DoEvents
            If Timer > mystart + 2 Or Timer < mystart Then Exit Do
        Loop
   
        Do While ie.readystate <> 4: DoEvents: Loop
    End With

    'CREO LA COLLEZIONE DEI TAG INPUT
    Set total_input = ie.document.getelementsbytagname("input")
   
    'SELEZIONO IL BIENNIO COSTITUITO DALL'ANNO ATTUALE E QUELLO PRECEDENTE
    For Each elem In total_input
        If elem.Name = "time_t" And elem.Value = 2 Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
            Exit For
        End If
    Next elem

    For Each elem In total_input
        If elem.Name = "y_act" And elem.Value = 1 Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
            Exit For
        End If
    Next elem

    For Each elem In total_input
        If elem.Name = "y_prev" And elem.Value = 1 Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
            Exit For
        End If
    Next elem

    'SELEZIONO TUTTI I TURNI DA PRENDERE IN CONSIDERAZIONE: DAL PRIMO TURNO ALLA FINALE
    For Each elem In total_input
        If InStr(elem.Name, "tr") > 0 And elem.Checked = falso Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
        End If
    Next elem
 
    'METTO A 50 IL NUMERO DEGLI INCONTRI DA VISUALIZZARE DOPO LA RICERCA
    For Each elem In total_input
        If InStr(elem.Name, "lim") > 0 And elem.Value = 50 Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
            Exit For
        End If
    Next elem

    'CERCO ANCHE I TORNEI INFERIORI A 250.000 $
    For Each elem In total_input
        If InStr(elem.Name, "tp") > 0 And elem.Checked = False Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
        End If
    Next elem

    'PREMO IL PULSANTE VERDE CHE ABILITA LA RICERCA
    For Each elem In total_input
        If elem.Value = "show matches and statistics for selected options" Then
            elem.Click
            mystart = Timer
            Do
                DoEvents
                If Timer > mystart + 2 Or Timer < mystart Then Exit Do
            Loop
        End If
    Next elem

    mystart = Timer
    Do
        DoEvents
        If Timer > mystart + 2 Or Timer < mystart Then Exit Do
    Loop
       
    'CREO LA COLLEZIONE DELLE RIGHE RIGUARDANTI LE SCONFITTE DEL GIOCATORE
    Set righe = ie.document.getelementsbyclassname("main_oddsKO")
   
    'STAMPO NELLA FINESTRA IMMEDIATA IL TESTO DELLE RIGHE TROVATE
    For Each elem In righe
        If elem.classname = "main_oddsKO" And elem.innerText = "L" Then
            cont = cont + 1
            Debug.Print elem.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.innerText & vbNewLine
        End If
       
    Next elem
   

End Sub
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: problema scaricamento dati da sito web

Postdi templare77 » 04/07/17 19:12

San Anthony perchè mi hai abbandonato? :D
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: problema scaricamento dati da sito web

Postdi Anthony47 » 05/07/17 02:07

Ho abbandonato te e tutti gli altri perche' in viaggio.

Premesso che per ottenere risultati coerenti con la tua descrizione ho dovuto modificare un paio di testi (le mie visualizzazioni son in Italiano, le tue penso in Inglese), pero' alla fine io ottengo un listato di 19 nomi:
Codice: Seleziona tutto
Sugita Yuichi (JPN)  (66)
Tsonga Jo-Wilfried (FRA)  (62)
Zverev Alexander (DEU)  (62)
Zeballos Horacio (ARG)  (64)
Cuevas Pablo (URY)  (23)
Donaldson Jared (USA)  (79)
Pouille Lucas (FRA)  (17)
Berdych Tomas (CZE)  (14)
Bautista-Agut Roberto (ESP)  (17)
Thiem Dominic (AUT)  (9)
Edmund Kyle (GBR)  (49)
Young Donald (USA)  (71)
Basilashvili Nikoloz (GEO)  (87)
Khachanov Karen (RUS)  (51)
Baghdatis Marcos (CYP)  (36)
Darcis Steve (BEL) 
Millot Vincent (FRA) 
Troicki Viktor (SRB)  (28)
Sock Jack (USA)  (22)

Che e' quello che credo tu ti aspettassi
Tuttavia....
Ho visto che per circa 500 msec dopo il click persiste in memoria un IE.document con 25 elementi "main_oddsKO", che produrrebbero un output di 7 nominativi:
Codice: Seleziona tutto
Sugita Yuichi (JPN)  (66)
Tsonga Jo-Wilfried (FRA)  (62)
Zverev Alexander (DEU)  (62)
Zeballos Horacio (ARG)  (64)
Cuevas Pablo (URY)  (23)
Donaldson Jared (USA)  (79)
Pouille Lucas (FRA)  (17)

Quindi se il tuo Pc fosse particolarmente carico o particolarmente "scarso", e l'elenco che ottieni e' simile a questo secondo, allora dovrai aumentare l'attesa a ben piu' di 2 secondi; prova incrementando di 1 secondo alla volta e poi pero' aggiungi un paio di secondi al primo ritardo buono.
La buona notizia e' che l'unica attesa da mantenere e' quella dopo l'ultimo click; mentre quelli relativi ai click precedenti puoi eliminarli. Cioe' (esempio):
Codice: Seleziona tutto
        'SELEZIONO IL BIENNIO COSTITUITO DALL'ANNO ATTUALE E QUELLO PRECEDENTE
        For Each elem In total_input
            If elem.Name = "time_t" And elem.Value = 2 Then
                elem.Click
'Qui ho eliminato il ciclo di attesa
                Exit For
            End If
        Next elem

Mentre sul click "finale":
Codice: Seleziona tutto
        'PREMO IL PULSANTE VERDE CHE ABILITA LA RICERCA
        For Each elem In total_input
            If elem.Value = "show matches and statistics for selected options" Then
                elem.Click
                Debug.Print ">>> Il mio click"    '***
            End If
        Next elem
        mystart = Timer
        Do
            DoEvents
            If Timer > mystart + 4 Or Timer < mystart Then Exit Do
        Loop
           
        'CREO LA COLLEZIONE DELLE RIGHE RIGUARDANTI LE SCONFITTE DEL GIOCATORE
        Set righe = ie.document.getElementsByClassName("main_oddsKO")
'Etc etc

Ma se il comportamento non cambia con tempi max di 6 sec io direi che e' possibile che la tua ricerca dei controlli da cliccare potrebbe essere inesatta; quindi controlla nella finestra Immediata per la presenza di una riga contenente ">>> Il mio click" (prodotta dall'istruzione marcata ***, sopra): se manca allora ti direi di inserire questo Debug.Print:
Codice: Seleziona tutto
        For Each elem In total_input
            Debug.Print elem.Value, Timer        '<<< Debug aggiunto
            If elem.Value = "show matches and statistics for selected options" Then
                elem.Click
'etc etc

In questo modo nella finestra immediata potrai leggere il valore dei vari elementi che analizzi per capire quale e' il vero valore di quello da cliccare. Valore che comunque puo' essere letto tramite il comando "Analizza elemento" del browser.

Nel mio caso il valore era
Codice: Seleziona tutto
mostra incontri e statistiche per le opzioni
selezionate
Su DUE righe; per puntarlo ho usato
Codice: Seleziona tutto
            If elem.Value = "mostra incontri e statistiche per le opzioni " & Chr(10) & "selezionate" Then
(invece del tuo If elem.Value = "show matches and statistics for selected options" Then)

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: problema scaricamento dati da sito web

Postdi templare77 » 05/07/17 22:55

:oops: :oops: :oops: :oops: Scusa Anthony non avevo capito che si trattasse di un viaggio impegnativo

:P Veniamo a noi
Ho fatto tutto cìò che mi hai suggerito e non è cambiato nulla....però :eeh: colpo di scena, mi è venuto in mente di fargli fare questo codice due volte:

Codice: Seleziona tutto
For f = 1 To 2
    Set total_input = ie.document.getelementsbytagname("input")
    'PREMO IL PULSANTE VERDE CHE ABILITA LA RICERCA
    For Each elem In total_input
         
        If elem.Value = "show matches and statistics for selected options" Then
            elem.Click
            Debug.Print ">>> Il mio click"    '***
            mystart = Timer
    Do
        DoEvents
        If Timer > mystart + 4 Or Timer < mystart Then Exit Do
    Loop
        End If
    Next elem

    mystart = Timer
    Do
        DoEvents
        If Timer > mystart + 4 Or Timer < mystart Then Exit Do
    Loop
       
    'CREO LA COLLEZIONE DELLE RIGHE RIGUARDANTI LE SCONFITTE DEL GIOCATORE
    Set righe = ie.document.getelementsbyclassname("main_oddsKO")
   
    'STAMPO NELLA FINESTRA IMMEDIATA IL TESTO DELLE RIGHE TROVATE
    Debug.Print "<<< CICLO N° " & f & ">>>"
    For Each elem In righe
        If elem.classname = "main_oddsKO" And elem.innerText = "L" Then
            cont = cont + 1
            Debug.Print elem.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.PreviousSibling.innerText & vbNewLine
        End If
       
    Next elem
   
Next f


In pratica dopo la selezione dei check box, gli faccio premere due volte il pulsante verde e al primo ciclo ottengo il numero di righe non corretto...al secondo ciclo invece, ottengo le 19 righe che volevo :?: :?: nonostante abbia fatto diverse prove con ritardi di oltre 20 secondi che mi davano sempre le 7 righe sbagliate....

Immagine

Immagine
templare77
Utente Senior
 
Post: 153
Iscritto il: 18/04/16 06:26

Re: problema scaricamento dati da sito web

Postdi Anthony47 » 07/07/17 02:34

Non e' un viaggio impegnativo, ma dopo aver guidato la mattina e sgambettato il pomeriggio /sera, la notte non mi viene voglia di rispondere a quelli che stanno beatamente all'aria condizionata :D :D

Interessante la necessita' di dover cliccare due volte l'elemento; questo ci ricorda che una delle tecniche di programmazione in inglese si definisce come "trial and error", e in italiano si puo' tradurre come "prova finche' non funziona".

L'ultimo suggerimento che ti darei e' di inserire un piccolo delay dopo il "click" subito prima del pulsante verde; cosa che puoi ottenere con

Codice: Seleziona tutto
'Da aggiungere >>>
        mystart = Timer
        Do
            DoEvents
            If Timer > mystart + 1 Or Timer < mystart Then Exit Do
        Loop
'<<< Fine aggiunta
For f = 1 To 2
'etc etc


Ovviamente se in questo modo anche sul primo click ottieni il risultato giusto potrai eliminare il ciclo For f = 1 To 2 /Next f

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17658
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "problema scaricamento dati da sito web":


Chi c’è in linea

Visitano il forum: Marius44 e 46 ospiti