Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Application.SendKeys <Shift>+<F10>

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
rlellis
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Seg Mai 30, 2016 3:30 pm

Application.SendKeys <Shift>+<F10>

Mensagem por rlellis » Seg Mai 30, 2016 3:34 pm

Olá,

Desenvolvi um VBA que faz uma automação do Internet Explorer com o intuito de capturar alguma informações de um site.

Existem algumas URL dinâmicas que remetem a documentos PDF, JPG, PNG, ...

Eu preciso realizar o download destes arquivos. Inicialmente eu tentei utilizar uma macro URLdownloadfile que existe em vários sites, mas não funcionou.

Fui obrigado a desenvolver dentro do VBA para abrir o arquivo e depois com o comando Application.SendKeys automatizei a abertura do menu do navegador, salvar o arquivo e depois fechar a janela do navegador.

No caso dos arquivos JPG e PNG eu não consigo utilizar a opção de "Salvar Como" porque o Internet Explorer define para salvar o arquivo com a extensão ".MHT"

Para funcionar, eu tenho que conseguir utilizar o comando Application.SendKeys com as teclas <Shift> + <F10> que acessa o menu da tecla direita do mouse, mas este não está funcionando.

O comendo que uso é:

Application.SendKeys "+{F10}", True

Se eu der uma pausa de fizer a sequencia de teclas na mão funciona normalmente, mas pela automação no Excel, não dá certo.

Alguém tem ideia por que não funciona?

Eu já testei com todas as combinações usando Windows 10 e 7 com Excel 2010 e 365 (Todos em português).



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1120
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Bragança Paulista - SP

Re: Application.SendKeys <Shift>+<F10>

Mensagem por Mikel Silveira Fraga » Ter Mai 31, 2016 9:13 am

RLellis, bom dia e seja bem vindo ao fórum.

Já experimentou utilizar o Selenium VBA? Comparado com o Microsoft Internet Controls, o Selenium VBA é muito mais completo e, provavelmente com ele, você conseguirá baixar os arquivos da forma que deseja.

Nessa seção do fórum, existem vários tutoriais sobre o uso do Selenium VBA. Dê uma olhada e veja se ajuda.

Abraços e excelente semana.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Skype: mikelsf | Linked In

Responder