Este fórum está sendo desativado

[LuisRosales]

Boa noite a todos,

Mas uma vez preciso da ajuda dos amigos, neste procedimento necessito de automatizar o click no botão "salvar" e deseja substituir "sim" conforme segue:

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

[LuisRosales]

Boa tarde, pessoal tudo bem?

Consegui resolver parte do problema colocando uma rotina de deletar o arquivo atual antes de baixar o próximo.

Mas continuo necessitando deste comando de interagir com este botão salvar.

Por favor alhguma alma caridosa para ajudar, serei muito grato?

[JulioMangilli]

Amigos tentou o método Application.SendKeys "{ENTER}", True
https://docs.microsoft.com/pt-br/office ... n.sendkeys

[LuisRosales]

Tentei sim, o macro vai para próxima linha somente apóss fechada esta caixa.

[LuisRosales]

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 ciclo, estou deletando os arquivos (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!

[LuisRosales]

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 texto 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 quanbdo 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
	

Segue scrip em anexo para quem tiver dificuldade.