ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

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.

Código Acessar botão salvar

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.
LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Código Acessar botão salvar

Mensagem por LuisOrtin » Dom Abr 05, 2020 9:59 pm

Estou tentando automatizar o click no botão salvar e "sim" para substituir arquivo. Tentei com o SendKeys e não obtive exito, alguem pode me ajudar?

Nota: O Objetivo desta macro é baixar da página da web a html completa (*htm,*html)

Código: Selecionar todos

Sub ScrapeOddsUsingIE()
    Dim IE As New SHDocVw.InternetExplorer
    Dim objPic      As Picture
  
'ACESSA AO SITE E AGUARDA CARREGAR
    IE.navigate "https://gru.inpi.gov.br/pePI/"
    IE.Visible = True
    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy
    Loop

'COPIA A HTML COMPLETA PARA A PASTA
   IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT, "C:\Temp\inpi.html"
   
   'AQUI NECESSITO CLICAR MANUALMENTE EM SALVAR E SUBSTITUIR SIM (NECESSITO AUTOMATIZAR ESTA PÁRTE)
    
    Set objPic = ActiveSheet.Pictures.Insert("C:\Temp\INPI_arquivos\faleconosco.png")
End Sub



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
webmaster
Administrador
Mensagens: 2816
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Código Acessar botão salvar

Mensagem por webmaster » Seg Abr 06, 2020 9:22 am

Luis,

Se vai salvar a página toda e substituir, porque não apaga a mesma antes de começar o processo?


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Re: Código Acessar botão salvar

Mensagem por LuisOrtin » Seg Abr 06, 2020 9:31 am

Tomas,

Pode ser sim, mas realizei um teste apagando os arquivos e novamente cai nesta tela de salvar, com a unica diferença que não precisa substituir arquivo.

Na verdade, necessito de um macro que baixe a html completa sem necessidade de ficar clicando em salvar ou até mesmo alterar arquivo.



Avatar do usuário
PRMPOKER
Consultor
Consultor
Mensagens: 204
Registrado em: Ter Dez 04, 2012 8:57 am

Re: Código Acessar botão salvar

Mensagem por PRMPOKER » Seg Abr 06, 2020 1:35 pm

Prezados, Bom dia!

Caro LuisOrtin, tudo bem?

Já conheces o método xmlhttprequest disponível no VBA? Com ele é possível tu capturares o HTML todo, gravar em um arquivo com o método objFileSystem, salvando com a extensão .html

É um caminho a mais para você pensar.

Um abraço!



Paulinho Monteiro
VBA - Front/BackEnd Developer

Email: falecom@paulinhomonteiro.com
falecompaulinhomonteiro@gmail.com
Whatsapp (54) 9925 340 85
www.paulinhomonteiro.com

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.


LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Re: Código Acessar botão salvar

Mensagem por LuisOrtin » Seg Abr 06, 2020 4:24 pm

PRMPOKER, boa tarde.

Não conheço não, vou dar uma estudada, deve ser bem interessante .

Agradeço a sugestão, caso tenho um modelo e puder me enviar ficarei muito feliz.

Forte abraço!



LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Re: Código Acessar botão salvar

Mensagem por LuisOrtin » Sex Abr 10, 2020 8:06 pm

Somente para constar, garimpei no Google uma solução para este assunto, sendo que devido a minha limitação não consegui chegar uma solução.

Como paliativo, lembrei de uma empresa que trabalhava, onde o grampeador era o emissor de cheques, pois ele mantinha pressionado a tecla enter.

Seguindo a mesma criatividade, estou colocando dois pesos uma na letra ALT e outra na letra L de forma que elas fiquem pressionadas (ALT+L).

Achei melhor fazer esta gambiarra por enquanto do que ficar com tendinite.

Lembrando que antes de começar outro ciclom, estou deletando os arquivos conforme sugestão do Tómas (neste solução utilizei o código Kill + endereço do arquivo).

Caso alguem tenha uma solução definitiva me avisem por favor, forte abraço!



LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Re: Código Acessar botão salvar

Mensagem por LuisOrtin » Dom Abr 12, 2020 4:10 pm

Com relação ao processo de salvar, substitui as teclas precionadas por este script que é bem simples de fazer. Basta colar o código abaixo em um bloco de Notas e gravar com nomequalquer.vbs.

Ao clicar nele, o mesmo procura de 20 em 20 segundos a caixa dialogo a clica no botão salvar.

Nota: Ele fica rodando direto, não esquecer de fechar ele quando não estiver utilizando. De novo não é o ideal mas pelo menos ecomiza os dedos rs. (sou leigo, eu fecho ele pelo gerenciador de tarefas).

Código: Selecionar todos

Set ClickSalvar = createobject("wscript.shell")

Do
   ClickSalvar.AppActivate "Salvar"
   wscript.sleep 500
   ClickSalvar.sendkeys ("%(l)")
   wscript.sleep 20000
loop



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.


Responder