Olá estou utilizando o seguinte código para iniciar um dowload no 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
acontece que eu não sei como eu posso "salvar como o download" definindo a pasta e o Nome do arquivo.
Set JanelaSite = IE.document.parentWindow JanelaSite.execScript code:="chart.exportChart()" Application.Wait (Now + TimeValue("0:00:02")) JanelaSite.Focus 'JanelaSite.document.execCommandShowHelp ("SaveAs") tela.SendKeys "{TAB}" tela.SendKeys "{TAB}" tela.SendKeys "{DOWN}" tela.SendKeys "{DOWN}" tela.SendKeys "{ENTER}"