Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Chiudere finestra popup IE
- Hai un problema con Excel?
Chiudere finestra popup IE
di lavrumiel (utente non iscritto) data: 14/01/2014 00:33:17
Buonasera a tutti :)
Sto cercando di sviluppare una piccola applicazione su Excel utilizzando VBA.
Fino ad ora, ho semplicemente scritto un codice per aprire la pagina di login del sito che mi interessa, compilare i campi NomeUtente e Password in base a ciò che è contenuto in alcune celle del mio foglio di lavoro e cliccare sul pulsante di login.
Il problema arriva adesso.
Subito dopo aver cliccato sul pulsante di login, IE mi restituisce una finestra di popup "Messaggio dalla pagina Web". Per procedere basterebbe un click sul pulsante OK, unico presente, oppure premere Enter.
Purtroppo non riesco a fare eseguire nessuna delle due istruzioni. Ho provato con il SendKeys, ma forse sbaglio qualcosa...
Posto il mio codice, spero nel vostro aiuto.
Grazie in anticipo!
Sub work() Set appIE = CreateObject("InternetExplorer.Application") With appIE .Visible = True .Navigate "url_del_sito" Do Until .ReadyState = 4: DoEvents: Loop .Document.All.Item("id").Value = Range("C3") .Document.All.Item("pass").Value = Range("H3") .Document.All.Item("B1").Click Do Until .ReadyState = 4: DoEvents: Loop Do While .Busy: DoEvents: Loop End With End Sub
Chiudere finestra popup IE
di lavrumiel (utente non iscritto) data: 14/01/2014 00:32:38
Buonasera a tutti :)
Sto cercando di sviluppare una piccola applicazione su Excel utilizzando VBA.
Fino ad ora, ho semplicemente scritto un codice per aprire la pagina di login del sito che mi interessa, compilare i campi NomeUtente e Password in base a ciò che è contenuto in alcune celle del mio foglio di lavoro e cliccare sul pulsante di login.
Il problema arriva adesso.
Subito dopo aver cliccato sul pulsante di login, IE mi restituisce una finestra di popup "Messaggio dalla pagina Web". Per procedere basterebbe un click sul pulsante OK, unico presente, oppure premere Enter.
Purtroppo non riesco a fare eseguire nessuna delle due istruzioni. Ho provato con il SendKeys, ma forse sbaglio qualcosa...
Posto il mio codice, spero nel vostro aiuto.
Grazie in anticipo!
Sub work() Set appIE = CreateObject("InternetExplorer.Application") With appIE .Visible = True .Navigate "url_del_sito" Do Until .ReadyState = 4: DoEvents: Loop .Document.All.Item("id").Value = Range("C3") .Document.All.Item("pass").Value = Range("H3") .Document.All.Item("B1").Click Do Until .ReadyState = 4: DoEvents: Loop Do While .Busy: DoEvents: Loop End With End Sub
- Vuoi Approfondire?
