Visualizza messaggio singolo
Vecchio 06-06-2017, 18.44.41   #1
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Estrapolare i Dati di una Pagina Web Per le Previsioni del Tempo

Ciao a Tutti mi chiamo Maurizio
e il mio problema e questo : Io Vorrei sapere sč fosse possibile sruttando un foglio di excel estrappolare i dati principali di una Pagina Web per creare una Pseudo previsioni del tempo .
Mi spiego meglio :
Su di un foglio di Excel nella cella (H1) inserisco la localitą ; Dopo di che premendo un tasto vorrei che il tutto mi comparisse come in Figura :



Io di Mio ho provato a creare una funzione che per certi versi avevo gią creato anni fa con il Vb6.0 e riadattato in vba, che e questo :

Codice:
Sub GetCourseList()
Dim URL As String
Dim qt As QueryTable
Dim ws As Worksheet
    
Set ws = Application.Worksheets.Add
    '1° ) Soluzione
URL = "https://www.ilmeteo.net/meteo_Torino-Europa-Italia-Torino--1-31584.html"
    '2° ) Soluzione
'URL = "http://www.meteo.it/meteo/san-giusto-canavese-1246"
    '3° ) Soluzione
'URL = "https://www.3bmeteo.com/meteo/torino"
    
Set qt = ws.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Range("A1"))

With qt
 .RefreshOnFileOpen = True
 .Name = "Torino"
 .FieldNames = True
 .WebSelectionType = xlAllTables
 .Refresh BackgroundQuery:=False
  Foglio2.Range("A1").QueryTable.Refresh BackgroundQuery:=False
End With
End Sub
Diciamo che per certi versi il discorso non č male ?
Perņ esula di gran lunga da quello che io vorrei realizzare .
1° ) In quanto : non solo mi estrappola completamente l'intera pagina Web
2° ) Mi prende l'intero Foglio di Excel e capirci un qualche cosa diventa difficile.
3° ) Non ha nulla a che fare con la localitą desiderata.

Ahora ho provato a modificare il Listato offertomi da Alexsandra inerente alla lettura dell'oroscopo.
Anche qui non si vede molto , ma comunque sia per lo meno mi prende in considerazione il nome della localitą.
Per qui la mia domanda e questa c'č un modo per Ottenere tutto quello che si vede sulla Pagina Link inserita nel Progetto , ho in alternativa adattare il Foglio di excel al Link Stesso
Grazie sin da Ora per tutto l'aiuto che vorete darmi in merito sinceri Saluti da A.Maurizio.

(p.S) Inserisco lik Per Scaricare il File di prova :
https://app.box.com/s/gcluqs5u8xcw6tk16nbrpbmf45ovfd24
A.Maurizio non č collegato   Rispondi citando