Este fórum está sendo desativado

[Santana90]

Boa tarde, pessoal!
Estou utilizando o código abaixo para automatizar o download de um arquivo de um site, utilizando o Internet Explorer, mas estou com dificuldade no momento que aparece o popup, com as opções Abrir, Salvar e Cancelar.
Existe uma forma de apertar o botão Salvar e indicar o local que o arquivo deverá ser salvo?

Código:

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer

Sub Login()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "Link"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.Navigate sURL
oBrowser.Visible = True

Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document
HTMLDoc.all.TBUser.Value = "Login"
HTMLDoc.all.TBPassword.Value = "Senha"
HTMLDoc.all.BOk.Click
HTMLDoc.all.UWTSearchxxctl0xSearchQueryResultxWCUserSearches_input.Value = "Escolha do arquivo para Download"
HTMLDoc.all.LBExcel.Click

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

Resume Next
End Sub

Obrigado!