Hello, I'm using the following code to start a dowload in Intenet Explorer.
Public Sub Dashboard()
Dim Navegador As InternetExplorer
Dim objShellWindows As New SHDocVw.ShellWindows
Dim currentWindow As HTMLWindowProxy
Dim url As String
On Error GoTo Erro
url = "http://..................../"
Set Navegador = New InternetExplorer
Navegador.navigate url
Navegador.Visible = True
Do While Navegador.readyState <> 4
DoEvents
Loop
'Faz login
Navegador.document.getElementById("usuario").Value = "xxxxxxxx"
Navegador.document.getElementById("senha").Value = "xxxxxx"
Navegador.document.getElementById("bt_entrar").Click
' Set Navegador = Nothing
' Set Navegador = New InternetExplorer
' Navegador.navigate url
' Navegador.Visible = True
Do While Navegador.readyState <> 4
DoEvents
Loop
Navegador.document.getElementById("submenu2_SatisfacaoGeral").Click
Set currentWindow = Navegador.document.parentWindow
currentWindow.execScript code:="chart.exportChart()"
Erro:
MsgBox Err.Description
Resume Next
End Sub
It happens that I do not know how I can "save as download" by setting the folder and filename.