Macro per accesso sito Agenzia Entrate da tabella excel

[bt]

Buongiorno al NG



Avrei una richiesta che spero sia semplice.

E' possibile creare una macro che da un foglio excel punti all'indirizzo
https://iampe.agenziaentrate.gov.it/sam/UI/Login?realm=/agenziaentrate

poi alla scelta "credenziali"

e compili i tre campi proposti, prendendoli da una tabella in foglio excel ?



Grazie e saluti

[casanmaner]

Possibile è possibile. Non è semplice.
Ma un prodotto così c'è già e viene commercializzato.
Non vorrei fare pubblicità diretta ma prova a fare una ricerca su google con "accesso siti fiscali Fisconline" :-)

Allo stato attuale con Internet Explorer funziona, anche bene. Il problema sarà di capire cosa succederà con IE dal 15 giugno.
Per chi utilizza già Windows11 invece non potrà funzionare perché IE non è più supportato e mi pare che non possa nemmeno essere installato autonomamente (ma non ho certezza di questa cosa).

[issdr]

casanmaner wrote:

> Allo stato attuale con Internet Explorer funziona, anche bene. Il
> problema sarà di capire cosa succederà con IE dal 15 giugno.
> Per chi utilizza già Windows11 invece non potrà funzionare perché IE
> non è più supportato e mi pare che non possa nemmeno essere installato
> autonomamente (ma non ho certezza di questa cosa).

https://chrome.google.com/webstore/detail/user-agent-switcher-for-c/djflhoibgkdhkhhcedjiklpkjnoahfmg

se si riesce a combinarci qualcosa mi fai sapere?

ps - mi par di ricordare che anche edge si basa su chromium, magari
esiste qualcosa di simile

[casanmaner]

Per i browser basati su chromium esisterebbe un "componente" da installare e alle cui librerie fare riferimento per poter fare quanto è possibile tramite IE (dove le librerie sono già presenti e richiamabili)

https://florentbr.github.io/SeleniumBasic/

Io avevo fatto qualche prova con Chrome per il quale occorre però trovare i driver aggiornati (nella pagina che ho linkato c'è anche il collegamento).
Non so se per Edge vi siano disponibili dei driver simili.

Uno dei problemi riscontrati con i browser come Chrome è per lo scaricamento dei file (ex le fatture elettroniche).
In IE viene proposta una barra con le varie opzioni. Opzioni che sono attivabili tramite i comandi da tastiera (onKey).
Con Chrome questo "controllo" non è possibile e per lo scaricamento degli xml, che vengono "bloccati" in quanto considerati pericolosi, non ho trovato un modo per eseguire la conferma (da fare manualmente con il mouse).
Questo era un esempio di accesso a Fisconline/Entratel utilizzando il "Selenium Basic" installato (è di parecchi mesi fa e non è detto che le url siano ora corrette perché nel frattempo qualche modifica è stata fatta sul sito Ade):

Sub AccessoFisconlineChrome(Nominativo As String, _
Utente As String, _
Password As String, _
Pin As String, _
UtenzaDilavoro As String, _
AccediPrecompilata As Boolean, _
AccediPrecompilataFE As Boolean, _
AccediCassettoFiscale As Boolean)
Dim but As Selenium.WebElement
Dim bLoginOK As Boolean

Dim sTestoAvviso As String

'Select Case LeggiTipoAccesso
' Case sAccessoFiscOnline
' sTestoAvviso = ": Accesso Fisconline/Entratel in corso. Attendere ..."
' Case sAccessoCassettoFiscale
' sTestoAvviso = ": Accesso Cassetto Fiscale in corso. Attendere ..."
' Case sAccessoPrecompilata
' sTestoAvviso = ": Accesso Dichiarazione Precompilata in corso. Attendere ..."
'End Select

On Error GoTo Errore

Application.StatusBar = Nominativo & sTestoAvviso


Const iDelay As Double = 1000 * 1.5

Set ChromeApp = New Selenium.WebDriver
With ChromeApp
.Start "Chrome"
.Window.Maximize

.Get "https://iampe.agenziaentrate.gov.it/sam/UI/Login?realm=/agenziaentrate"
.Wait iDelay
For Each but In .FindElementsByTag("a")
If Trim(UCase(but.Text)) = "CREDENZIALI" Then
but.Click
.Wait iDelay
Exit For
End If
Next but
.FindElementById("username-fo-ent").SendKeys Utente
.FindElementById("password-fo-ent").SendKeys Password
.FindElementById("pin-fo-ent").SendKeys Pin
.Wait iDelay / 2
For Each but In .FindElementsByTag("button")
If Trim(UCase(but.Text)) = "ACCEDI" Then
but.Click
.Wait iDelay * 2
Exit For
End If
Next but
For Each but In .FindElementsByTag("button")
If Trim(UCase(but.Text)) = "ESCI" Then
bLoginOK = True
.Wait iDelay
Exit For
End If
Next but

If bLoginOK Then
If UtenzaDilavoro <> "" Then
.Get "https://portale.agenziaentrate.gov.it/PortaleWeb/cambiautenza"
.Wait iDelay * 3
For Each but In .FindElementById("utenza").FindElementsByTag("option")
If Replace(but.Text, " ", "") = UtenzaDilavoro Then
but.Click
.Wait iDelay * 2

Exit For
End If
Next but
For Each but In .FindElementsByTag("button")
If Trim(UCase(but.Text)) = "CONFERMA" Then
but.Click
Exit For
End If
Next but
End If ' UtenzaDiLavoro <> ""

If AccediPrecompilata Then
.Get "https://telematici.agenziaentrate.gov.it/Servizi/PreCompilato/Dichiarazione/Cittadini.do?method=accessoPrecompilato"
If AccediPrecompilataFE Then
.Wait iDelay
.Get "https://dichiarazioneprecompilata.agenziaentrate.gov.it/FattureWeb"
End If
End If

If AccediCassettoFiscale Then
.Get "https://telematici.agenziaentrate.gov.it/CassettoFiscale/Cassetto/CassettoFiscaleServlet" '"https://telematici.agenziaentrate.gov.it/Servizi/consultazioneCassetto.jsp"
.Wait iDelay
For Each but In .FindElementsByTag("a")
If Trim(UCase(but.Text)) = "CASSETTO FISCALE PERSONALE" Then
but.Click
Exit For
End If
Next but
End If
Else
.Quit
MsgBox "Login non riuscito. Verificare i dati di accesso.", vbExclamation, "Login non riusicito"
End If 'bLoginOk
End With ' ChromeApp

RiprendiErrore:

Application.StatusBar = False
Exit Sub

Errore:
Select Case Err.Number
Case Else
MsgBox "Si è verificato un errore imprevisto!" & vbNewLine & _
"Errore n. " & Err.Number & vbNewLine & _
Err.Description, vbCritical, "Errore VBA imprevisto"
End Select
If Not ChromeApp Is Nothing Then ChromeApp.Quit
Resume RiprendiErrore

End Sub

[issdr]

casanmaner wrote:

> Io avevo fatto qualche prova con Chrome per il quale occorre però
> trovare i driver aggiornati (nella pagina che ho linkato c'è anche il
> collegamento). Non so se per Edge vi siano disponibili dei driver
> simili.

sei sul pezzo vedo... ho scaricato la guida al software, l'integrazione
con il browser è importante, strano che chi l'ha sviluppato non abbia
ancora provveduto ad adattarlo

[mau1791]

Per ora (oggi 15/06) funziona ancora con il vecchio IE... speriamo.