Pesquisar na Comunidade
Mostrando resultados para as tags ''sendkeys''.
Encontrado 2 registros
-
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
-
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