Página 1 de 1
Código Acessar botão salvar
Enviado: Dom Abr 05, 2020 9:59 pm
por LuisOrtin
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
Re: Código Acessar botão salvar
Enviado: Seg Abr 06, 2020 9:22 am
por webmaster
Luis,
Se vai salvar a página toda e substituir, porque não apaga a mesma antes de começar o processo?
Re: Código Acessar botão salvar
Enviado: Seg Abr 06, 2020 9:31 am
por LuisOrtin
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.
Re: Código Acessar botão salvar
Enviado: Seg Abr 06, 2020 1:35 pm
por PRMPOKER
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!
Re: Código Acessar botão salvar
Enviado: Seg Abr 06, 2020 4:24 pm
por LuisOrtin
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!
Re: Código Acessar botão salvar
Enviado: Sex Abr 10, 2020 8:06 pm
por LuisOrtin
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!
Re: Código Acessar botão salvar
Enviado: Dom Abr 12, 2020 4:10 pm
por LuisOrtin
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