Objeto Internet Explorer

Boa tarde a todos,

Estou com duvidas sobre o objeto internet explorer.

Em uma certa página preciso fazer Download de uma planilha especifica, porem não sei manipular a expressão "Save As" do navegador.

Alguem pode me ajudar?

segue o cod

Código:



Function fteste()
    Dim ief As New InternetExplorer
    Dim URL as String

  URL = "http://www.pagina.com.br/
   
 
    Call ief.Navigate(URL)
   
    ief.Visible = True
    // manipulações de informaçoes.
  ief.Document.Forms("Form_1").submit
 

End Function


Se você souber o endereço segue.

'Ativar a referencia
'Microsoft Scripting Runtime
'Utilizado para download
On Error GoTo trata
Dim oShell As Object
Set oShell = CreateObject("Wscript.Shell")
Dim varEndereco As String
varEndereco = "www.suapagina.com/seuarquivo.xls"
oShell.Run (varEndereco)

sai:
Exit Sub

trata:
MsgBox "Erro: " & err.Number & " " & err.Description
Resume sai