Come Estrarre Dati Relativi Ad Una Pagina Meteo con questo mio link

[A.Maurizio]

Buon Giorno a Tutti mi chiamo Maurizio
E il mio problema e questo:
Usando un foglio di Excel con Microsoft Office 2007
Sto tentando di recuperare dei dati da una pagina web inerente alle Previsioni meteo.
Ora come primo approccio non mi sembra che le cose vadino poi cosi tanto male.
Però il problema e che non riesco ad estrarre i dati veri e propri
Come ad Esempio : L'indicazione del tempo attuale ho le (Min e Max) ecc...!
Potreste voi gentilmente apportare alcune modifiche al mio progetto in modo che io possa capire sulla base pratica dove stò sbagliando.
Grazie per tutto l'aiuto che vorrete darmi in merito .
Saluti sinceri da A.Maurizio

(P.S) Il link Per Scaricare il mio progetto di prova e questo :
https://app.box.com/s/nx1pbac4r8v87sf0skzhoyf9jnkxwzmw

[alka]

Potreste voi gentilmente apportare alcune modifiche al mio progetto in modo che io possa capire sulla base pratica dove stò sbagliando.

No, non è questo il modo di porre discussioni all'interno di questo forum: non è corretto indicare la problematica da risolvere, costringere gli utenti a scaricare un documento che magari un domani verrà rimosso e delegare a loro l'azione di modifica del software e la spiegazione in toto delle motivazioni per cui hanno fatto una correzione piuttosto che un'altra.

Leggi il Regolamento di quest'area del forum e segui le norme descritte al suo interno.

In particolare, occorre indicare con precisione qual è l'errore ottenuto o il comportamento anomalo e, in secondo luogo, riportare la parte di codice rilevante o quella relativo al problema sul forum, in modo che tutti possano vederlo e dare suggerimenti su come correggerlo, correzioni che dovrai apportare tu aggiornando poi il thread di conseguenza sull'avanzamento della risoluzione del problema.

Per favore, aggiungi quindi le informazioni mancanti come indicato.

Ciao!

[A.Maurizio]

Ciao Marco Chiedo umilmente scusa per l'accaduto
Ma non era mia intenzione ; E ti prego di credermi
Creare dei dissensi e malumori nel vostro forum.

Ho semplicemente Trattato il tutto come in un qualunque altro forum che ho avuto a che fare in passato; Tutto qui !
Pertanto chiedo nuovamente scusa
E vi chiedo di spiegarmi bene cosa e meglio che fare in questi casi; In modo tale da non incorrere in altri dissapori nei vostri confronti tutto qui.

In pratica con questo mio Progetto , mi stò accingendo a voler
estrappolare con questo codice

Sub m()On Error GoTo 1
    Dim oggCol As Object
    Dim copy As String
    Dim i As Long
    
    x = Foglio1.Range("I1").Value
    
     URL = "https://www.3bmeteo.com/meteo/" & x & ""
        Set IE = CreateObject("InternetExplorer.Application")


    With IE
       .Visible = 1
       .navigate URL
      While .Busy Or .readyState <> 4
        DoEvents
      Wend
    End With
    
Dim prima() As String
    Set oggCol = IE.Document.getElementsByClassName("row")
      Sheets("Foglio1").Range("D10").Select
         i = 0: riga = 10: col = 4
       While i < oggCol.Length
        If oggCol(i).className = "row" Then
          copy = oggCol(i).innerText
          prima = Split(copy, " ")
          
          Cells(riga + 1, col) = oggCol(i).Children(1).innerText
          
           n = 2: s = 4: p = 6: o = 8: t = 10
            Cells(riga, col).Value = prima(n - 1)
            Cells(riga + 3, col).Value = prima(s - 2)
            Cells(riga + 4, col).Value = prima(p - 3)
            
            Cells(riga + 5, col).Value = prima(o - 4)
            Cells(riga + 6, col).Value = prima(t - 5)
            
          col = col + 1
        End If
           i = i + 1
        Wend
    
    'ie.Quit
    Set IE = Nothing
    Set oggCol = Nothing
1:

I soli dati Reali delle previsioni Meteo del Momento
Ha me basterebbe anche solo la prima riga di dati ; Come si vede in questa immagine:
Prev_1_°C_1.jpg
Tutto qui
Ciao e nuovamente grazie

[alka]

Ma non era mia intenzione ; E ti prego di credermi
Creare dei dissensi e malumori nel vostro forum.
[...]
Pertanto chiedo nuovamente scusa
E vi chiedo di spiegarmi bene cosa e meglio che fare in questi casi; In modo tale da non incorrere in altri dissapori nei vostri confronti tutto qui.

Non è successo niente di grave: sono solo intervenuto per spiegare la modalità corretta di aprire le discussioni all'interno del forum.

Direi che ora i dettagli ci sono, magari quindi qualcuno sarà anche più incentivato a partecipare.

Ciao!

[A.Maurizio]

[QUOTE=alka;25561383]Non è successo niente di grave: sono solo intervenuto per spiegare la modalità corretta di aprire le discussioni all'interno del forum.

Direi che ora i dettagli ci sono, magari quindi qualcuno sarà anche più incentivato a partecipare.

Ciao![Marco come sempre sei una persona squisita e sincera; Grazie per la tua puntualizzazione in merito hai miei errori.
Spero solo che si possa risolvere il tutto nel frattempo io continuerò a provare a porre modifiche al caso ; Chissà che ne possa venire fuori qualche cosa di valido.
Saluti sinceri e Buona Pasqua a tutti voi da A.Maurizio /QUOTE]

[oregon]

Ma non avevi risolto due anni fa

https://m.pierotofy.it/p/forum/69/10...cel_ho_il_vb6/

?

Ogni tanto torni all'attacco? :-)

P.S. Sul fatto di "trattare tutto come su qualsiasi altro forum" ti faccio notare che in tanti altri, compreso questo

https://masterdrive.it/microsoft-acc...89/#post375985

ti hanno detto che non si lascia il codice da scaricare agli utenti, mollando il problema e basta.

[A.Maurizio]

[QUOTE=oregon;25561417]Ma non avevi risolto due anni fa

https://m.pierotofy.it/p/forum/69/10...cel_ho_il_vb6/

?

Ogni tanto torni all'attacco? :-)

P.S. Sul fatto di "trattare tutto come su qualsiasi altro forum" ti faccio notare che in tanti altri, compreso questo

https://masterdrive.it/microsoft-acc...89/#post375985

ti hanno detto che non si lascia il codice da scaricare agli utenti, mollando il problema e basta.[Ciao Oregon
Scusami ma questa Volta non ti capisco; in quanto.
!) questo progetto lo voluto riprendere, in quanto Non sono mai Riuscito a Risolverlo:
E che mi ricorda Io nessuno di voi sia mai riuscito a darmi nel concreto una soluzione Valida.
2) Non e il primo Forum che condivido i miei lavori o le mie richieste:
Ma anche qui non ho mai trovato nessuna difficolt� sia nel mettere il mio lavoro di prova; Che semplicemente il codice scritto.
Per me sinceramente parlando quello che sostienu tu ; Mi giunge nuova.
4) Detto ci� ieri sono stato ripreso da Marco che tra le altre cose Saluto.
E pensavo che subito dopo il suo intervento fosse stato risolto tutto il problema.
Ora posso sapere cosa c'� che non va.
IOn modo che si possa chiarire una volta per tutte queste tue uscite o dispute nei miei confronti.
Non penso di averti mai mancato di rispetto.
Pertanto esigo una spiegazione logica e coerente con quanto detto sino ad ora, Perch� Ripeto : Questo tuo atteggiamento da sovranista nei miei confronti ; Proprio non lo capisco.
Se non vi interessa aiutarmi nella mia richiesta.
Non e il caso di farla tanto lunga; Mi basta che mi diciate che non vi interessa.
E va bene cosi.
Ma sentirmi sempre Denigrare in questo modo da uno che neppure conosco.
Il tutto mi sembra un po' troppo /QUOTE]
Comunque Ciao e Buona Serata a Tutti Voi Dello Staff

[oregon]

Ti ho solo scritto che tu avevi detto

Ho Già risolto da me il mio problema

e quindi ti chiedevo come mai facessi nuovamente la domanda.

Per il resto, come altre volte, non ho capito cosa hai detto o chiesto ed è per questo che non ti vengono proposte soluzioni.

Magari se commentassi le righedel codice per spiegarci cosa fanno e dove hai problemi/errori, quali errori ... forse avresti qualche suggerimento (ovviamente nessuno scriverebbe il codice al posto tuo, il programma lo devi scrivere tu ....).

Buon lavoro comunque ...

[A.Maurizio]

Comunque Oregon Ho dato un occhiata al Link che mi hai inserito tu nel post : Ed è come sostenevo io
E vero che gira che ti rigira Tutti questi Link Sulle Previsioni Meteo si Assomigliano Tutte.
Però nel mio ultimo caso; non stiamo Parlando dello stesso link.
Ho delle stesse Previsioni Meteo Tutto qui.
Comunque non è successo nulla; Non te la Prendere, Se non volete la mia presenza ho non volete più aiutarmi non importa basta dirlo.
Come si dice in questi casi : Morto un Papa se nè fa un altro no ?
Ciao e Buona Pasqua a Tutti

[A.Maurizio]

Oregon Ti pare che sè io avessi risolto questo problema ; Lo avrei riproposto ?