Condividi:        

EXCEL Copiare dati da pagina 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

EXCEL Copiare dati da pagina web

Postdi Francesco53 » 21/08/11 22:10

Buongiorno a tutto il Forum,
tramite macro riesco a scaricare da pagine web degli archivi, con variabile numero di righe, dipende da quanti
giorni sono passati dall'ultimo aggiornamento, presente dalla col AP2 alla col AZ2, allego immagini foglio:

Immagine
Immagine

Io dovrei partendo dalla cella AP3 copiare verso il basso e orizzontalmente, quelle estrazioni che succedono
all'ultima in giallo dell'archivio, nell'esempio dal ID 7662 all'ID 7677 (in questo caso 16 righe di estrazioni).
Io ho provato ma non sono riuscito.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL Copiare dati da pagina web

Postdi Francesco53 » 21/08/11 22:49

Scusate c'è un errore, i riferimenti corretti dell'ultima estrazione in memoria sono :
Immagine
C'era una colonna in più, denominata PR, che ho eliminato.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Copiare dati da pagina web

Postdi Flash30005 » 22/08/11 00:16

Ma i numeri fondo giallo N1-N2-N3- etc
dove li prendi?
quelli indicati da te non corrispondono né all'estrazione 7661 né all'estrazione 7671

e poi nel post di correzione hai riportato la data 10/08/2011 che non corrisponde al concorso 7671

Cerca di spiegare meglio cosa vorresti ottenere magari riportando tu stesso qualche riga (o tutte e 16 le righe mancanti)

Ciao

P.s. Il foglio della QueryWeb è lo stesso foglio che fai vedere con i dati e l'elaborazione a fianco oppure
hai un foglio dedicato alla QueryWeb?
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Copiare dati da pagina web

Postdi Francesco53 » 22/08/11 08:44

Buongiorno Flash, chiedo scusa se causa prove i numeri sono apparsi differenti, ma il taglio della
immagine, mi ha costretto a ricostruire il tutto errando.
Il foglio che tu vedi è il foglio Appoggio in cui scarico la QueryWeb partendo da A1, poi con un copia ed incolla,
copio i dati a partire dalla cella T2 sino alla colonna AJ. Il numero di righe, dipende da quanti giorni,
non effettuo l'aggiornamento. La riga due da AP2 a AY2, sono i dati relativi all'ultimo inserimento
presente nel foglio Archivio, tramite funzione =CERCA.VERT($AP$2;Archivio!$A$3:$K$8000;2;0) etc.
Dopo l'aggiornamento dei dati tramite la QueryWeb dovrò aggiornare l'archivio.
Ti allego quello che dovrebbe essere il risultato:
Immagine

Risultato dopo aggiornamento da web:

Immagine

Che poi dovrà essere trasferito nel foglio Archivio:

Immagine

Naturalmente il passaggio della immagine 2 serve solo per far capire come dovrebbe essere aggiornato,
poi ho io tramite altra macro o se vuoi tu direttamente andrà inserito nel foglio Archivio.
Spero di essere riuscito a far capire quanto richiesto.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Copiare dati da pagina web

Postdi Francesco53 » 22/08/11 17:51

Ciao questa è la macro che ho realizzato, però penso si debba evitare di copiare cella dopo cella,
ci vorrebbe un ciclo for next, che riesco ad immaginare per le colonne a 2, ma non per la 1.
Codice: Seleziona tutto
Sub CopiaDati()
    Worksheets("Appoggio").Select
    righe = Worksheets("Appoggio").Range("T" & Rows.Count).End(xlUp).Row
        For x = righe To 2 Step -1
   'For y = 20 To 36 Step 2
            If Cells(x, 20) > Cells(2, 42) Then
            riga = Worksheets("Appoggio").Range("AP" & Rows.Count).End(xlUp).Row
   'Cells(riga + 1, 42).Value = Cells(x, y)
   'Next
                Cells(riga + 1, 42).Value = Cells(x, 20)
                Cells(riga + 1, 43).Value = Cells(x, 24)
                Cells(riga + 1, 44).Value = Cells(x, 26)
                Cells(riga + 1, 45).Value = Cells(x, 28)
                Cells(riga + 1, 46).Value = Cells(x, 30)
                Cells(riga + 1, 47).Value = Cells(x, 32)
                Cells(riga + 1, 48).Value = Cells(x, 34)
                Cells(riga + 1, 49).Value = Cells(x, 36)
                Cells(riga + 1, 51).Value = Cells(x, 22)
            End If
        Next
End Sub

Naturalmente poi il riferimento per la copia dei numeri sarà il foglio Archivio.
Per semplicità e per rispettare le immagini ho copiato nel foglio con la QueryWeb.
Flash spero nella tua disponibilità, e spero di aver spiegato il tutto in forma completa.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Copiare dati da pagina web

Postdi Flash30005 » 22/08/11 22:01

Si, abbastanza....
Ma...
Che fine fanno le 16 righe aggiunte nel primo foglio?
se le elimini
a cosa serve il primo passaggio?
puoi fare un ciclo for next dall'ultimo concorso in archivio all'ultimo concorso della QueryWeb

Per poterci lavorare si ricorda di inviare il file con almeno i due fogli (con QW e con archivio)

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Copiare dati da pagina web":


Chi c’è in linea

Visitano il forum: Nessuno e 57 ospiti