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

Interação VBA com Internet Explorer (dúvidas)

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
Guima
Consultor
Consultor
Mensagens: 242
Registrado em: Sex Out 30, 2009 6:10 am

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por Guima »

Boa noite Mikel!

Bom saber, acho que to seguindo seu caminho, então, pois a curiosidade é que tem me atraído.

Esse do facebook me deixou impressionado, existem vários, abaixo alguns:

http://www.hardlywork.in/
*** Este apenas disfarça o seu facebook como uma planilha (bom pra usar no serviço :-p )

http://www.nextanalytics.com/facebook-m ... -in-excel/
*** Este funciona como um relatório. Tem até um modelo para download

http://www.cdata.com/drivers/facebook/download/excel/
**** Este é um ADDIN

Abraço e bom final de semana também


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.


fmgomes
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Mai 19, 2015 9:56 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por fmgomes »

Pessoal. Boa noite.

Estou com um certo problema para inserir um número que tenho numa planilha em numa página da internet. Acontece que pelo objCollection(i).Value não é possível.

A questão é somente conseguir inserir o número do processo judicial via VBA na página http://www.tjrs.jus.br/busca/?tb=proc
O nome do objeto na página é: num_processo_mask

O captcha estou ciente que vai ser adicionado manualmente.

Segue código:

Public Sub InserirNrProc()
On Error Resume Next

Dim i As Long

Dim IE As Object
Dim objElement As Object
Dim objCollection As Object

Set IE = CreateObject("InternetExplorer.Application")

IE.navigate ("http://www.tjrs.jus.br/busca/?tb=proc")


IE.Visible = True


Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop

Set objCollection = IE.document.getElementsByTagName("input")


i = 0
While i < objCollection.Length

If objCollection(i).Name = "num_processo_mask" Then

objCollection(i).Value = 123456789

End If

i = i + 1

Wend

End Sub


Desde já agradeço.

Att


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por Mikel Silveira Fraga »

Guima escreveu:Boa noite Mikel!

Bom saber, acho que to seguindo seu caminho, então, pois a curiosidade é que tem me atraído.

Esse do facebook me deixou impressionado, existem vários, abaixo alguns:

......

Abraço e bom final de semana também
Guima, bom dia.

Cara, desculpe não ter respondido antes, mas apareceu um monte de coisas pra se resolver ao mesmo tempo.

Vou baixar esses modelos e dar uma olhada.

Vamos conversando cara.

Abraços e bom final de semana.


IsGuiDiana
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Jun 01, 2015 2:01 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por IsGuiDiana »

Boa tarde,

Estou com dificuldades para acessar frames dentro de uma página. Alguém poderia 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.


IsGuiDiana
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Jun 01, 2015 2:01 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por IsGuiDiana »

Boa tarde,

Não tenho como copiar o código, porém tenho o print da tela, quem puder me ajudar eu mando por e-mail.

Muito obrigado.


Guima
Consultor
Consultor
Mensagens: 242
Registrado em: Sex Out 30, 2009 6:10 am

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por Guima »

Esquenta naqo Mikel.

Quando tiver um tempinho da uma olhada nos links


eduardo_csousa
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Dom Jun 14, 2015 11:42 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por eduardo_csousa »

Boa Noite Pessoal!

Li as 16 páginas deste tópico para tentar achar uma solução para o meu problema, porém sem sucesso.

Trabalho em uma empresa de Call Center a qual usa um software para atendimento via chat.

Estou tentando acessar o site admin desta ferramenta, usando meu usuário e senha, porém pelo próprio excel/vba, para posterior extração dos dados, mas sem sucesso.

Não manjo muito de VBA, então peguei o código abaixo da Internet e adaptei as minhas necessidades, o qual até acessa o site em questão, porém não sei porque, o usuário nem ao menos é inserido e aparece a seguinte mensagem "Erro em tempo de execução '424': O objeto é obrigatório".

Sub FazerLoginSite()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
With IE
.Visible = True
'abaixo coloquei o login do meu blog como exemplo…
.Navigate ("https://www5.directtalk.com.br/static/b ... login.html")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("login").Focus
.Document.getElementById("login").Value = "login"
.Document.getElementById("password").Focus
.Document.getElementById("password").Value = "password"
.Document.All("loginButton").Click
While .Busy Or .ReadyState <> 4: DoEvents: Wend
Debug.Print .LocationURL
End With
End Sub

Obs.: após acessar o site, o campo para digitar o login já está selecionado, porém dá o erro justamente ai.

Obrigado!


rafami03
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Seg Jul 06, 2015 2:53 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por rafami03 »

Boa tarde pessoal.

Estou tentando entender HTML agora e estou com dificuldades.

Quero trocar o valor do combobox no site da bmf, via VBA.
http://www.bmfbovespa.com.br/shared/ifr ... Diario.asp


A única coisa que obtenho é que a variável With não foi definida...


segue meu código...

Public ie As InternetExplorer
Public html As HTMLDocument

Public Sub internet()

Workbooks("teste2.xlsm").Worksheets("Plan1").Select
dia = Str(ActiveSheet.Cells(2, 2))

Set ie = New InternetExplorer

ie.Visible = True
ie.navigate "http://www.bmfbovespa.com.br/shared/ifr ... Diario.asp"

Call ie_wait

With ie
.document.forms(3).getElementsByTagName("select")("cboData").Value = dia
End With
End Sub

Conseguem me ajudar?


Rodrigo_2015
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Jul 23, 2015 8:56 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por Rodrigo_2015 »

Boa noite!

Preciso de uma ajuda de vocês para fazer o input de uma informação no site dos correios;

http://www.buscacep.correios.com.br/ser ... nuFaixaCep

Entrei no site acima via codigo access vba normalmente, porém preciso de duas informações;
1 - No site tem um listbox com as siglas estados. Alguem consegue me ajudar a digitar o estado via código vba?
2 - No site tem o botão Buscar, porém quando vou em exibir codigo fonte da pagina, não estou conseguindo achar o id deste botão. Alguem sabe informar como faço para clicar neste botão?

Desde ja agradeço

Rodrigo


romulocesar
Colaborador
Colaborador
Mensagens: 27
Registrado em: Qua Ago 19, 2015 11:25 pm

Re: Interação VBA com Internet Explorer (dúvidas)

Mensagem por romulocesar »

Boa noite!!
Preciso clicar em um link para continuar avancando na pagina!!!
Não estou conseguindo fazer isso!!Só consigo clicar em botoes!!
Como faço??

Segue abaixo o codigo desse link:

<DIV class="row hot-links font40" id=homeForm:divHotLinks><DIV class="col-sm-3 text-center hot-links-box">
<SCRIPT language=Javascript type=text/javascript>function dpf(f) {var adp = f.adp;if (adp != null) {for (var i = 0;i < adp.length;i++) {f.removeChild(adp);}}};function apf(f, pvp) {var adp = new Array();f.adp = adp;var i = 0;for (k in pvp) {var p = document.createElement("input");p.type = "hidden";p.name = k;p.value = pvp[k];f.appendChild(p);adp[i++] = p;}};function jsfcljs(f, pvp, t) {apf(f, pvp);var ft = f.target;if (t) {f.target = t;}f.submit();f.target = ft;dpf(f);};</SCRIPT>
<A onclick="if(typeof jsfcljs == 'function'){jsfcljs(document.getElementById('homeForm'),{'homeForm:j_id102':'homeForm:j_id102'},'');}return false" href="#"><I class="fa fa-upload"></I>
<H4 class="opensans bold">Emitir NFS-e</H4></A></DIV>


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