Página 1 de 1

VBA - Extrair imagem internet

Enviado: 28 Mar 2020 às 09:34
por 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.

Re: VBA - Extrair imagem internet

Enviado: 28 Mar 2020 às 16:01
por Basole
Não pode ser desta forma, inserindo o link direto da imagem na célula?

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

Re: VBA - Extrair imagem internet

Enviado: 28 Mar 2020 às 17:11
por 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.

VBA - Extrair imagem internet

Enviado: 02 Abr 2020 às 19:29
por LuisRosales
Boa noite, não existre alguma alma caridosa que possa me ajudar. Realmente estou precisando de ajuda!

Re: VBA - Extrair imagem internet

Enviado: 02 Abr 2020 às 21:51
por 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

Re: VBA - Extrair imagem internet

Enviado: 03 Abr 2020 às 00:16
por 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.

Re: VBA - Extrair imagem internet

Enviado: 03 Abr 2020 às 00:56
por Basole
Aqui pra mim veio. Tente salvar como *.html ( página completa)

Segue o anexo da pasta que baixei.

Re: VBA - Extrair imagem internet

Enviado: 03 Abr 2020 às 15:12
por 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!