Página 16 de 23
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Sex Abr 24, 2015 10:28 pm
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
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Ter Mai 19, 2015 10:31 pm
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
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Sex Mai 22, 2015 11:02 am
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.
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Seg Jun 01, 2015 2:14 pm
por IsGuiDiana
Boa tarde,
Estou com dificuldades para acessar frames dentro de uma página. Alguém poderia me ajudar?
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Seg Jun 01, 2015 4:50 pm
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.
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Qua Jun 10, 2015 11:25 am
por Guima
Esquenta naqo Mikel.
Quando tiver um tempinho da uma olhada nos links
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Seg Jun 15, 2015 12:01 am
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!
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Seg Jul 06, 2015 3:02 pm
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?
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Qui Jul 23, 2015 9:42 pm
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
Re: Interação VBA com Internet Explorer (dúvidas)
Enviado: Qua Ago 19, 2015 11:32 pm
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>