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

Interação com IE - Problema [RESOLVIDO]

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
daviso
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Nov 04, 2014 1:30 pm

Interação com IE - Problema [RESOLVIDO]

Mensagem por daviso »

Boa tarde a todos.

Passei a parte da manhã inteira lendo as paginas sobre o assunto aqui do forum,e pude aprender muitas coisas, corrigir antigas e otimizar o q eu ja sei.

Possuo um código no qual consegui reduzir drasticamente, porém, o principal não está acontecendo, que é obter o valor indicado na célula da minha planilha.

E sinto que estou perdido, pois o VBA não aponta nenhum erro no qual possa correr atras, ele simplesmente executa o código corretamente.
Gostaria de obter cada valor desta pagina para a minha planilha.

Acredito que para os mais experts seja simples.

Segue o código:

Private Sub Worksheet_Activate()
Dim IE As New InternetExplorer
Dim SIF_site As String


IE.Visible = True
IE.Navigate "sigsif.agricultura.gov.br/sigsif_cons/!ap_estabelec_nacional_detalhe?id_estabelecimento=453"

Do
DoEvents
Loop Until IE.ReadyState = READYSTATE_COMPLETE


Range("B2").Value = IE.Document.all.Item("tx_logradouro").innerText

End Sub

Peço a ajuda para que eu possa resolver este problema.

Muito obrigado a todos e parabens pelas 14 paginas de puro conhecimento que foram escritas até agora.
daviso
Acabou de chegar
Acabou de chegar

Mensagens: 1
Registrado em: Ter Nov 04, 2014 1:30 pm
Agradecimentos dados: 0 vez
Agradecimentos recebidos: 0 vez
Editado pela última vez por daviso em Qua Nov 05, 2014 10:41 pm, em um total de 1 vez.


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Interação com IE - Problema

Mensagem por Reinaldo »

Não gosto de utilizar o vba para a internet, então não sou muito familiarizado. Contudo, você experimentou alterar de innerText, para propriedade Value
Creio que pode resolver o dilema.
.....
Range("B2").Value = IE.Document.all.Item("tx_logradouro").Value
end sub


daviso
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Nov 04, 2014 1:30 pm

Re: Interação com IE - Problema

Mensagem por daviso »

Funcionou perfeitamente, obrigado pela perspicácia neste detalhe.

Me ajudou demais.

Forte abraço;


eustaquiosena
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Sex Set 18, 2015 7:31 pm

Re: Interação com IE - Problema [RESOLVIDO]

Mensagem por eustaquiosena »

Boa noite,

Estou querendo criar um script VBA, para executar a tarefa de captar o status do toner das impressoras graficamente ou em porcentagem.
Lembrando que as impressoras estão em rede.

Estou com essa planilha, não consegui implementar esse script em minha planilha.
Para eu analisar o nivel de toner das 20 impressoras que sou responsavel, sera preciso criar um user form e um botao?
Ou qual recurso exatamente eu poderia usar.
Conforme a planilha em anexo os dados serão exibidos pelo Range F4 a F24.
E no arquivo script_commands, encontra-se a linha de comando HTML da impressora.

Segue o link da planilha: http://1drv.ms/1OEBO07

Voces podem me ajudar?


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