Informazioni che che Vorrei Scaricare Da Una pagina Web

[Maury170419]

Buon Giorno a tutti mi chiamo Maurizio
So e capisco da me di essere ripetitivo, ma vorrei cercare con tutte le mie forze di imparare bene questa tecnica
Ma capisco anche che senza i vostri aiuti non sono in grado di andare da nessuna parte.
Pertanto chiedo :
Sto scaricando da una pagina internet inerente alle condizioni del corona virus
Ora ho imparato da me che cosa vuol dire muoversi tra i Tag e i Class in quanto sono giorni che sto studiando pagine Html
Però pur riuscendo a fare oramai qualsiasi cosa; Mi sto' arenando davanti ad un pezzetto di pagina che vorrei scaricare
Ma che pur provando tutte le soluzioni da me attualmente Conosciute ; Non riesco proprio a ricavare un ragno dal buco
E non capisco il perché e dove sto sbagliando.

Pertanto vi chiedo gentilmente se potreste darmi un ulteriore mano per risolvere questo problema Grazie
Questo e il Link Per Scaricare il Tutto:
https://app.box.com/s/cida89e2m46441jgcdizv7n0zcfjz8fm

Chiaramente a lavoro Ultimato ; Inserisco su questo Post parte del Codice in modo che possa essere utile per altri.
Grazie da Maurizio

[Anthony47]

La pagina richiamata dalla macro presente nel file e' questa:
https://lab24.ilsole24ore.com/coronavirus/

Contiene una ventina di grafici e numerose tabelle: che cosa di questo ti interessa?

Ciao

[Maury170419]

Ciao Anthony47 come stai ?
Ascolta la parte che mi interessa di questa Pagina e solo quella che Avevo Riportato con una freccia inserita nel Foglio 1
che indicava la cella A3
Chiaramente la scritta varia di giorno in giorno , però visto che contiene anche la data odierna e facile da intuire dove si trovi .
Ma quasi sempre e subito Prima di tutte quelle celle che indicano i Contagi -Decessi ecc....!

Ma Forse L'immagine ti fa capire Meglio dove si trova e cosa intendo dire :


Grazie ancora per il tuo Aiuto
E pensare che qualche anno fa , mi avevi gentilmente dato un codice lungo ; Con più voci e tra queste c'era anche un termine come (Slip) e finiva quasi sempre con (<p>) innertext
Ma non riesco più a trovarlo da nessuna parte del mio hard Disk
Peccato perché forse era proprio quella la chiave di svolta ; Ma ho tempo per migliorare.
Ciao e Grazie

[Anthony47]

Allora dovrebbe bastare aggiungere questa riga in questa posizione:

Codice: Seleziona tutto

On Error Resume Next
Range("A3").Value = IE.document.getElementById("description").innerText        '<<< AGGIUNTA
Set OggCol = IE.document.getElementsByTagName("p")

Quanto a uno dei vecchi lavori, potrebbe essere questo? viewtopic.php?f=26&t=111220

Ciao

[Maury170419]

Ciao Anthony47 grazie come sempre per il tuo supporto
Però ; E qui ti prego di credermi
Che avevo anche provato questa soluzione che mi hai dato tu ma senza successo.
Forse perché usavo la chiamata doppi con il OggCol4 ?

Come hai visto : Nella parte bassa del listato avevo scritto :

Codice: Seleziona tutto

Foglio1.cells(3,1).value = OggCol4(0).innertext

Perché nella Col4 l'avevo Riportata in questo modo
Set OggCol3 = IE.document.getElementsByTagName("p")

OggCol4 = OggCol3(0).getElementsByid("description")


Ora ho capito che non sempre va scritto nel modo indicato dalla pagina web
Ma che più delle volte va interpretata.

Grazie nuovamente del tuo Aiuto : Come sempre sei un grande e unico.
(P,s) per il resto cosa ne pensi ?

[Maury170419]

Ciao Anthony47
Scusami se ti disturbo per cosi poco
Però : Per cortesia potresti spiegarmi in parole povere che differenza c'è tra Scrivere ( getElements ) e ( getElement )
Cosa sta' a determinare una ( S ) o meno !
Ti chiedo questo , in quanto nelle mie numerose prove per fare uscire fuori quella scritta che mi hai fatto avere tu.
Io lo Avevo fatto già tempo prima ; Senza però mai riuscirci in quanto continuavo a tenere fede al codice .

Tanto e Vero che : Ora che ho le idee più chiare ho voluto ripetere i miei stessi errori di prima scrivendo il tutto in questo modo

Codice: Seleziona tutto

Set OggCol3 = IE.document.getElementsByTagName("p")
Set OggCol4 = IE.document.getElementById("description")

.Range("A3").Value = OggCol4.innerText


Ed ora anche a me mi estrae tale scritta riportata dalla pagina web
Pertanto mi chiedevo il perché una semplice ( S ) scritta o meno può determinare la riuscita o meno del suo funzionamento .
E in secondo luogo : Secondo te dove posso trovare queste informazioni su internet inerente a questa varianti
Grazie

[Anthony47]

Mi ero perso la domanda...

Per cortesia potresti spiegarmi in parole povere che differenza c'è tra Scrivere ( getElements ) e ( getElement )
Cosa sta' a determinare una ( S ) o meno !

-GetElement(byID) punta a un unico elemento (che nel sorgente html ha quell'ID)
-GetElements(byTagName /byClassName /byName) resituisce una collezione di elementi, tra cui poi va selezionato quello di interesse

Ciao

[Maury170419]

Anche se con un pochino di ritardo nel Risponderti
Ti dico ancora una volta Grazie per la tua Delucidazione in merito
Per me è molto importante Capire ogni cosa, in quanto Ogni cosa in più che metto nella mia Valigia
Tanto più sono Rotture di scatole in meno Che porgo a voi; Anche se la vedo sempre più dura
Ogni qualvolta mi addentro i questi meandri della programmazione.
Grazie Sincero da A.Maurizio