PROBLEMA COM SENDKEYS NO VBA

[LeandroLazari]

Boa tarde, 

Estou tentando fazer o download deste link "https://agentes.ons.org.br/download/operacao/hidrologia/arquivoMLTENAS_201709.pdf"

Como a página é vazia e não tem desenvolvedor F12, eu tentei por SendKeys. Mas eu quando executo o código, a página abre e fecha mas não faz o download. Por que? E tem alguma outra forma de fazer este download? 

segue o código:

    Sub ENA_ONS()
    
    Dim ie As Object
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    ie.Navigate "https://agentes.ons.org.br/download/operacao/hidrologia/arquivoMLTENAS_201709.pdf"
    ie.Visible = True
    
        Do Until (ie.readyState = 4 And Not ie.Busy)
            DoEvents
        Loop
        
    Application.SendKeys "%{S}"
    
    ie.Quit
    
    End Sub