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>