ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Sex Abr 24, 2015 10:28 pm

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


Guilherme

Sub Guilherme_Initialize()
If Me.Guima <> "" Then
MsgBox "Obrigado pela força "
Else
MsgBox "Um abraço pra todos "
End If
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.


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 » Ter Mai 19, 2015 10:31 pm

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: 1124
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Betim - MG
Contato:

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

Mensagem por Mikel Silveira Fraga » Sex Mai 22, 2015 11:02 am

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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

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 » Seg Jun 01, 2015 2:14 pm

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 » Seg Jun 01, 2015 4:50 pm

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 » Qua Jun 10, 2015 11:25 am

Esquenta naqo Mikel.

Quando tiver um tempinho da uma olhada nos links


Guilherme

Sub Guilherme_Initialize()
If Me.Guima <> "" Then
MsgBox "Obrigado pela força "
Else
MsgBox "Um abraço pra todos "
End If
End Sub

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 » Seg Jun 15, 2015 12:01 am

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 » Seg Jul 06, 2015 3:02 pm

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 » Qui Jul 23, 2015 9:42 pm

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 » Qua Ago 19, 2015 11:32 pm

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