Este fórum está sendo desativado

[LuisRosales]

Aguem poderia enviar um macro para extrair esta imagem e inserir na planilha 1?

https://gru.inpi.gov.br/pePI/servlet/Lo ... so=3888141

Detalhe: Realizei alguns testes e o primeiro acesso é direcionado automaticamente para a pagina https://gru.inpi.gov.br/pePI/. Neste caso é necessário clicar no botão continuar e após entrar no endereço da imagem.

Agradeço a ajuda obrigado.

[Basole]

Não pode ser desta forma, inserindo o link direto da imagem na célula?


Link:
https://gru.inpi.gov.br/pePI/jsp/imagen ... s2_rgb.jpg

[LuisRosales]

Infelizmente não.

Vou mostrar o trabalho que tenho para chegar a imagem que eu preciso extrair.

1) acesso: https://gru.inpi.gov.br/pePI/
2) Clico no botão com dizerer continuar
3) Nesta pagina que voce chegou ((https://gru.inpi.gov.br/pePI/servlet/Lo ... tion=login)) clico n opção Marca
4)Na pagina que se abvre (https://gru.inpi.gov915848791.br/pePI/j ... ocesso.jsp) digito o numero de processo:  916715787
5) Na proxima pagina que se abre clico no numero  916715787(hiperlink)
6) Ufa, e somente assim abre o formulário.
7) Neste formulário se eu clicar na imagem aparecera o endereço da imagem: https://gru.inpi.gov.br/pePI/servlet/Lo ... so=3801897

Nota: Se eu eu clicar na imagem e copiar no excel como bitmap ele cola no excel.

O problema e que é um a um e são vários entende?

O que eu preciso é um macro para copiar esta imagens.

Vou mandar o macro que faz todo este procedimento para chegar ate a pagina e copiar as informação, mas infelizmente a imagem não vem junto.

[LuisRosales]

Boa noite, não existre alguma alma caridosa que possa me ajudar. Realmente estou precisando de ajuda!

[Basole]

Uma possibilidade baixar a pagina completa em uma pasta local e buscar a respectiva imagem nesta pasta.

Se for útil essa opcao, acrescente no seu final do seu código a linha

Código: Selecionar todos

IE.ExecWB 4, 2, "C:\Temp\INPI.html", ""

Em seguida insira a imagem chamada: LogoMarcasServletController.jpg

Código: Selecionar todos

With ActiveSheet.Pictures.Insert("C:\Temp\INPI_arquivos\LogoMarcasServletController.jpg")
                .Left = 110
                .Top = 220
                .Width = 123
                .Height = 134
End With

[LuisRosales]

Basole, boa noite!

Antes de mais nada quero de coração agradecer pelo tempo dedicada para me ajudar, não tem preço!

Em relação a sua sugestão eu realizei o teste, e infelizmente a imagem não veio junto, segue print.

Testei vários macros de importação de imagem e da certo em todas url, menos nesta página (acredito que deve ter uma proteção). O que me deixa intrigado é que se clicarmos nela e copia e colar no excel como imagem (bitmap) ela aceita normalmente.

[Basole]

Aqui pra mim veio. Tente salvar como *.html ( página completa)

Segue o anexo da pasta que baixei.

[LuisRosales]

Basole,

Inenarrável seu conhecimento, bem como a disponibilização do seu precioso tempo para ajudar o próximo!

Somente para que fique registrado, com base nas suas preciosas dicas realizei um pequena alteração no código enviado de 4, 2 para 4,1 ( conforme abaixo):

De : IE.ExecWB 4, 2, "C:\Temp\INPI.html", ""
Para:IE.ExecWB 4, 1, "C:\Temp\INPI.html", ""

A solução foi perfeita, muito obrigado!