WEB Scraping per tr...
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

WEB Scraping per tracking spedizioni

1 Post
1 Utenti
0 Reactions
107 Visualizzazioni
Forum 1
(@ivymike)
Post: 0
New Member
Avviatore di Topic
 

Salve a tutti,

avevo un codice macro per tracciare le mie spedizioni, ma purtroppo il sito delle Poste è proprio oggi cambiato e non funziona più.
Il codice va a questa pagina: https://www.poste.it/cerca/index.html#/risultati-spedizioni/288747I294694

che nello script è data dall'url fisso più il codice spedizione che è nella cella ("K" & X)

Qualcuno saprebbe aiutarmi a capire cosa cambiare?

Sub SpedizPT()
   
    Dim Cd As New Selenium.EdgeDriver                                       ' driver per browser
    Dim Tbl As Selenium.WebElements                                         ' elementi tabelle
    Dim ElTr As Selenium.WebElement                                         ' singola riga di tabella dalla quale leggere i dati
   
    Dim S1 As Integer                                                       ' riga sul foglio dove scrivere il dato letto
    For S1 = 1 To Range("V11").Value
    X = S1 + 11                                                             ' suppongo di iniziare a scrivere i dati sul foglio attivo dopo riga 5

    With Cd
        .SetCapability "ms:edgeOptions", "{""args"":[""--headless""]}"
        .Get "https://www.poste.it/cerca/index.html#/risultati-spedizioni/" & Range("K" & X).Value
        .Wait 750                                                          ' attesa perché fatica a caricare la pagina Url
        
        Set Tbl = Cd.FindElementsByCss(".table.table-hover")             ' individua la tabella dettaglio spedizione
        n = Tbl.Count
                For a = n To 1 Step -1

                Range("L" & X).Value = Cd.FindElementsByClass("ng-binding")(3).Attribute("innerText")
                Range("M" & X).Value = Cd.FindElementsByClass("ng-binding")(2).Attribute("innerText")
                Range("N" & X).Value = Cd.FindElementsByClass("ng-binding")(1).Attribute("innerText")

        Next a
    End With
Next
End Sub
Versione di Excel
Sistema operativo
 
Postato : 03/08/2024 11:34
Condividi:
My Agile Privacy
Questo sito utilizza cookie tecnici e di profilazione. Cliccando su accetta si autorizzano tutti i cookie di profilazione. Cliccando su rifiuta o la X si rifiutano tutti i cookie di profilazione. Cliccando su personalizza è possibile selezionare quali cookie di profilazione attivare.
Attenzione: alcune funzionalità di questa pagina potrebbero essere bloccate a seguito delle tue scelte privacy
     Scarica il nostro ebook gratuito     

Unisciti a oltre 35.000 professionisti
che hanno già scelto di semplificare il proprio lavoro
e aumentare la produttività con la nostra newsletter!

Scarica l’ebook con i
migliori trucchi e suggerimenti per Excel
selezionati per te da Excel Academy

Download