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.
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