Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Interação VBA com Internet Explorer (dúvidas)
Re: Interação VBA com Internet Explorer (dúvidas)
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
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
Re: Interação VBA com Internet Explorer (dúvidas)
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
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
- Mikel Silveira Fraga
- 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)
Guima, bom dia.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
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.
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Seg Jun 01, 2015 2:01 pm
Re: Interação VBA com Internet Explorer (dúvidas)
Boa tarde,
Estou com dificuldades para acessar frames dentro de uma página. Alguém poderia me ajudar?
Estou com dificuldades para acessar frames dentro de uma página. Alguém poderia me ajudar?
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Seg Jun 01, 2015 2:01 pm
Re: Interação VBA com Internet Explorer (dúvidas)
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.
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.
Re: Interação VBA com Internet Explorer (dúvidas)
Esquenta naqo Mikel.
Quando tiver um tempinho da uma olhada nos links
Quando tiver um tempinho da uma olhada nos links
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Dom Jun 14, 2015 11:42 pm
Re: Interação VBA com Internet Explorer (dúvidas)
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!
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!
Re: Interação VBA com Internet Explorer (dúvidas)
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?
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?
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Jul 23, 2015 8:56 pm
Re: Interação VBA com Internet Explorer (dúvidas)
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
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
-
- Colaborador
- Mensagens: 27
- Registrado em: Qua Ago 19, 2015 11:25 pm
Re: Interação VBA com Internet Explorer (dúvidas)
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>
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>