Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Importar imagem site para uma celula da planilha

Dúvidas gerais sobre Excel
LuisOrtin
Colaborador
Colaborador
Mensagens: 13
Registrado em: Ter Mar 24, 2020 11:47 am

Importar imagem site para uma celula da planilha

Mensagem por LuisOrtin »

Boa tarde,

Antes de mais nada quero parabenizar o Tomás por compartilhar seus conhecimentos conosco, estou apredendendo muito aqui. Veio isso não tem preço, muito obrigado mesmo!

Mas vamos ao assunto, com base nos videos estou desenvolvendo uma planilha para importar dados e imagem de pagina na internet. A informações com dados ok, mas a imagem não consigo de forma alguma!

Por favor me ajudem, já estou a uma semana nisso rs...

Segue vba:
Sub Macro1()
'

Application.ScreenUpdating = False


Dim IElocation As String
Dim nRegistro As String
Dim nMarca As String
Dim vDados As String
Dim vSituacao As String
Dim W As Worksheet
Dim IE As Object
Fomulario INPI - Tomaz & Amigos me ajuda Plis.rar
(114.32 KiB) Baixado 272 vezes
Dim Ultcel As Range
Dim A As Integer
Dim col As Integer
Dim ln As Long
Dim Tabela As Object
Dim tb As String

Planilha1.Rows("4:" & Rows.Count).ClearContents
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
.navigate "https://gru.inpi.gov.br/pePI"
IEVerify IE
Application.Wait Now + TimeSerial(0, 0, 2)


'TELA DE LOGIN
'ie.document.all("T_Login").innerText = "ZZZZZZ"
'ie.document.all("T_Senha").innerText = "ZZZZZZ"
IE.document.all.Item("F_LoginCliente").submit
Do While IE.Busy
Loop
Application.Wait Now() + TimeValue("00:00:2")

'TELA OPÇÃO SERVIÇOS DE MARCAS INPI
With IE
.navigate "https://gru.inpi.gov.br/pePI/jsp/marcas ... ocesso.jsp"
.Visible = True
End With

'TELA CONSULTA BASE DE DADOS
Do While IE.Busy
Loop
Application.Wait Now() + TimeValue("00:00:01")
IE.document.all("NumPedido").Value = "916715787"
Application.Wait Now() + TimeValue("00:00:01")
IE.document.all.Item("botao").Click
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)

'TELA RESULTADO CONSULTA BASE DE DADOS
Do While IE.Busy
Loop
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
Dim elemUnique, elemCollection As Object
Set elemCollection = IE.document.getElementsByTagName("a")
For Each elemUnique In elemCollection
If elemUnique.innerText Like "*916715787*" Then
'MsgBox elemUnique.innerText
elemUnique.Click
Exit For
End If
Next elemUnique
Do While IE.Busy
Loop

tb = .document.all("principal").outerHTML
Application.Wait Now + TimeSerial(0, 0, 2)

PutInClipboard tb

'.Quit

End With

Set IE = Nothing
With Planilha1
.Cells(4, 2).PasteSpecial
.DrawingObjects.Delete

End With
MsgBox "Dados importados com sucesso"
End Sub

Private Sub IEVerify(ByRef IE As Object)
While IE.Busy Or IE.readyState <> 4: Application.Wait Now + TimeSerial(0, 0, 1): Wend
End Sub

Private Sub PutInClipboard(ByVal Data As String)
Dim oClip As MSForms.DataObject
Set oClip = New DataObject
oClip.SetText Data
oClip.PutInClipboard
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: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Importar imagem site para uma celula da planilha

Mensagem por webmaster »

Luis,

Se conseguir obter a URL da imagem, o melhor a fazer é isso:

https://www.tomasvasquez.com.br/blog/mi ... e-uma-url/


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

Re: Importar imagem site para uma celula da planilha

Mensagem por LuisOrtin »

Olá Tomás,

Na verdade eu tenho, mas o problema que ela não vem com extensão imagem, olha o endereço:
/pePI/servlet/LogoMarcasServletController?Action=image&codProcesso=3888141

Deve ser um especie de banco de dados interno do orgão que fornece a imagem.

Se voce for na pagina e selecionar tudo e colar no excel ou word, voce vai perceber que a imagem não vem junto. Mas quando clicar encima dela separadamente e liberada a opção de colar como bitmap.

Já testei varios importadores que achei na internet, inclusive o que você me mostrou. Eles funcionam perfeitamente em outros sites que existe um endereço com extensão de imagem (jpeg, gif, png, etc).

Parece que esta imagem que eu quero capturar esta sobreposta e não parte da pagina, entende?

Segue um print da tela com o inspecionador. Detalhe você so consegue entrar nela seguindo os passos do macro que mandei em anexo a minha duvida no post original.

Mando em anexo print da tela com inspecionador.

Muito obrigado pelo rapido retorno, sem plavras mesmo.
Anexos
Fomulario INPI - Tomaz & Amigos me ajuda Plis.rar
(114.32 KiB) Baixado 275 vezes
Print da tela.png
Print da tela.png (319.77 KiB) Exibido 9170 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Importar imagem site para uma celula da planilha

Mensagem por webmaster »

Luis,

Não importa o conteúdo da URL (extensão) contanto que ele retorne a imagem. Se acessar a URL direto no navegador, o que aparece?


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: Importar imagem site para uma celula da planilha

Mensagem por LuisOrtin »

Tomás,

Deixa eu tentar explicar o que esta acontecendo, talvez não estou sendo claro:

1) Este é o endereço da imagem:
https://gru.inpi.gov.br/pePI/servlet/Lo ... so=3888141

2) Quanto eu colo ela direto na caixa de busca do nagegador é direciondo automaticamente para a url abaixo:
https://gru.inpi.gov.br/pePI/

3) Estudando as causas, percebi que nesta url que foi redirecionado possui a opção "Para realizar a Pesquisa anonimamente aperte apenas o botão Continuar...."
Eu clico nesta opção "continuar" ai aperece a seguinte url:
https://gru.inpi.gov.br/pePI/servlet/Lo ... tion=login

4) Neste momento se pegarmos colarmos a a url da imagem ela não sera mais redirecionada. Portanto se colarmos a url do passo 1, sera aberta a imagem.

Cara sou leigo, estou achando que este redirecionamento e proteção é que esta impossibilitando a extração da imagem.

----x-x-x-x-x-x-xxx-----xx-

Mas voltando a macro, que enviei anexo:

Quando você roda ele respeitando os passos (devido este redirecionamento e proteção que comentei acima) vai finalizar no formulário que contem a imagem.
https://gru.inpi.gov.br/pePI/servlet/Ma ... do=3888141

Este endereço se vocês colar direto no navegador vai aparecer o Erro: Pedido inexistente!

Isso ocorre porque você não realizou os passos exigidos pela rotina do sistema. Para chegarmos manualmente neste formulário seria:

1) Acessar a pagina https://gru.inpi.gov.br/pePI/
2) Clico na oção "Para realizar a Pesquisa anonimamente aperte apenas o botão Continuar...."
3) Clico na opção Marcas
4) No caixa de texto nº processo digito: 916715787 e pesquisar
5) Na nova pagina que abre clico no numero 916715787 (hinperlink)
6) E finalmente aperece o formulario que estou importando que é :
https://gru.inpi.gov.br/pePI/servlet/Ma ... do=3888141

É extamnente este formulário que preciso importar todas as informações, porém a imagem não vem junto.

Mesmo em procedimento manual de selecionar tudo e colar no excel ela nao vem.

Um teste que fiz foi clicar com mouse direto nela. Ai sim é possivel copiar como bitmap ou ate memso copiar a url com endereço da imagem.

Mas quando coloca em qualquer sistema ou macro de captura de imagem vem apenas uma caixa de imagem com dizeres não é possivel exibir esta imagem"

Estou mandando um macro que uso bastante que captura imagens pela url e você vera que coloquei três urls neste exemplo, sendo:

A)http://www.tomasvasquez.com.br/images/Logo_Tomas.gif - na linha 2 - imagem ok
B)https://gru.inpi.gov.br/pePI/jsp/imagen ... onosco.png - na linha 3 - imagem ok
C) https://gru.inpi.gov.br/pePI/servlet/Lo ... so=3888141 - na linha 4 (não é possivel exibir esta imagem)

OBS: Se você clicar na opão C e abrir deve ser porque você deve esta com alguma aba do site INPI aberta. Feche o Chrome e abra novamente e a imagem não ai mais abrir.

Desculpe escrever esta biblia e ocupar o tempo de vocês. Realmente preciso de ajuda dos amigos da comunidade.

Forte abraço a todos.
Anexos
Colar imagem url.rar
(16.03 KiB) Baixado 268 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Importar imagem site para uma celula da planilha

Mensagem por webmaster »

LuisOrtin,

Todo acesso ao site é autenticado. Tente colocar a URL da imagem depois de colocar login e senha. Deve funcionar.


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

Re: Importar imagem site para uma celula da planilha

Mensagem por LuisOrtin »

Tomás,

Tentei fazer o que você orientou, mas vem todas as informações e na imagem somente vem um quadro em branco.

Com relação ao vba sou bem limitado, nem tenho ideia de fazer altenticação posterior a imagem.

No meu modelo que mandei na primeira mensagem esta antes e tambem não funciona.

Acredito que deve ser um bloqueio da pagina :(


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

Re: Importar imagem site para uma celula da planilha

Mensagem por LuisOrtin »

Tomas,

Estou enviando o macro que realiza todo o procedimento que estou tentando resolver.

Neste macro só coloquei como comentario login e senha, mas realizei o teste aqui e o resultado é exatamente o mesmo.

Se alguem poder me ajudar eu agradeço de coração.
Anexos
Importar imagem.rar
(20.83 KiB) Baixado 272 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Importar imagem site para uma celula da planilha

Mensagem por webmaster »

LuisOrtin,

A dedicação que seu problema requer vai um pouco além de uma simples ajuda no fórum, pelo menos o tempo que tenho para dedicar. Só posso recomendar que continue seus estudos e, caso precise de auxílio urgente, consulte o fórum de free-lancers (aqui mesmo)


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