Moderatori: Anthony47, Flash30005
Sub wikisearchA1()
Dim IeApp As Object 'se Late bind
Set IeApp = CreateObject("InternetExplorer.Application")
iURL = "http://it.wikipedia.org/w/index.php?title=Speciale%3ARicerca&search=" & Range("A1").Value
With IeApp
.Navigate iURL
.Visible = True
End With
'
Do While IeApp.Busy
DoEvents
Loop
'
End Sub
With ie
.Visible = True
.Navigate "http://www.facebook.com/login.php"
Do Until .ReadyState = 4: DoEvents: Loop
.Document.All.Item("email").Value = "LeTueCredenziali_Mail"
.Document.All.Item("pass").Value = "LeTueCredenziali_Password"
.Document.All.Item("login").Click
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
End With
Bravo!Stiamo facendo passi da gigante!
Ho cercato di fare (male) quello che mi suggerivi tu:
a) attivare IE sulla pagina del login
b) fare il login manuale
c) creare una seconda macro che, una volta autenticato, compili i campi di un web form di mio interesse (vd. nome e cognome nella sub "go")
=Format(Cells(1, 5), "mm/dd/yyyy") 'o il formato che si aspetta quel campo
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 4 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Visitano il forum: Nessuno e 20 ospiti