Buonasera, ho creato (scopiazzando qua e la su internet) un codice vba per excel che mi permetta di effettuare delle ricerche su internet, il tutto compilando dei form. Arrivato alla pagina dei risultati, dove sono presenti i link che voglio scaricare, non riesco a capire come scaricarli con vba.
Posto il codice:
Sub cerca_monografia()
Dim ie As Object 'se Late bind
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://www.agenziaterritorio.it/site.php?id=2154"
Do Until .ReadyState = 4: DoEvents: Loop
.document.All.Item("prov").Value = "RC"
.document.All.Item("bottone_invio").Click
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
Do Until .ReadyState = 4: DoEvents: Loop
.document.All.Item("co").Value = "G288"
.document.All.Item("bottone_invio").Click
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
Do Until .ReadyState = 4: DoEvents: Loop
.document.All.Item("foglio").Value = "20"
.document.All.Item("bottone_invio").Click
Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop
Call closeie
End With
End Sub
Sub closeie()
On Error Resume Next
ie.Quit
Set ie = Nothing
End Sub
Il codice apre il sito web, imposta la provincia, imposta il comune, imposta un valore chiamato foglio, e mi apre una pagina con i risultati in pdf. Adesso vorrei scaricare in una cartella questi file.
Qualcuno mi può aiutare?