
Public Function Test(x As String)
Dim myIE As shdocvw.InternetExplorer
Set myIE = New shdocvw.InternetExplorer
myIE.Visible = True
myIE.Navigate2 "sito dove scaricare il file"
Do While myIE.busy And myIE.readyState
DoEvents
Loop
Sleep 2000
myIE.Document.getElementById("Parameter1").Value = x
myIE.Navigate "javascript:fnaddparam()" ' lancia il download del file .................
'********************* qui vorrei salvare il file su HD ************
End Function
|
