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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Interação com IE - Problema [RESOLVIDO]
Interação com IE - Problema [RESOLVIDO]
Editado pela última vez por daviso em Qua Nov 05, 2014 10:41 pm, em um total de 1 vez.
- Reinaldo
- 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
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
Creio que pode resolver o dilema.
.....
Range("B2").Value = IE.Document.all.Item("tx_logradouro").Value
end sub
Re: Interação com IE - Problema
Funcionou perfeitamente, obrigado pela perspicácia neste detalhe.
Me ajudou demais.
Forte abraço;
Me ajudou demais.
Forte abraço;
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Sex Set 18, 2015 7:31 pm
Re: Interação com IE - Problema [RESOLVIDO]
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?
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?