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.

VBA com integração WEB

A Web está aí, não há como negar. Ela é onipresente em praticamente toda operação eletrônica realizada nos dias de hoje. Como não podia ser diferente, o Excel, ferramenta máxima para analistas e profissionais das mais diversas áreas do mercado precisa estar alinhado com esta necesssidade. E ele está! Neste forum, o debate é focado em expor dúvidas, sugestões, modelos de código e exemplos de uso do Excel na Integração com tecnologias Web.
rafa.jsilva
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Nov 07, 2019 11:35 am

VBA com integração WEB

Mensagem por rafa.jsilva » Qui Nov 07, 2019 1:36 pm

Boa Tarde, a todos!

Criei um macro para fazer inserir jogos de uma planilha excel para site de apostas da Caixa, porém estou com problema em utilizar o "For To Next". Eu consigo fazer o primeiro jogo, porém ao iniciar o segundo jogo ele dá erro.
segue alguns dados:
instalado SeleniumBasic v2.0.9.0
instalado Chromedriver versão 78
123.JPG
código do erro
123.JPG (163.1 KiB) Exibido 88 vezes
Lottery Games.rar
Planilha de Jogos + Macro
(17.12 KiB) Baixado 3 vezes



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.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 108
Registrado em: Sex Out 05, 2018 2:42 pm

Re: VBA com integração WEB

Mensagem por Julio Mangilli » Sex Nov 08, 2019 10:04 am

Olá Amigo,

Tenta Isso...

Sub apostas()

Set internet = New Selenium.ChromeDriver
Dim AA, BB, CC, DD, EE, FF, GG, HH, II, JJ, KK, LL, MM, NN, OO As String
Dim X As Long
Dim Oxente As Selenium.ChromeDriver

With internet
.Start
.Get "https://www.loteriasonline.caixa.gov.br ... mos-de-uso"
.FindElementById("botaosim").Click
.FindElementById("Lotofácil").Click

X = 2

For X = 2 To 11
Application.Wait TimeSerial(Hour(Now), Minute(Now), Second(Now) + 15)


AA = Worksheets("Games").Cells(X, 2).Value
BB = Worksheets("Games").Cells(X, 3).Value
CC = Worksheets("Games").Cells(X, 4).Value
DD = Worksheets("Games").Cells(X, 5).Value
EE = Worksheets("Games").Cells(X, 6).Value
FF = Worksheets("Games").Cells(X, 7).Value
GG = Worksheets("Games").Cells(X, 8).Value
HH = Worksheets("Games").Cells(X, 9).Value
II = Worksheets("Games").Cells(X, 10).Value
JJ = Worksheets("Games").Cells(X, 11).Value
KK = Worksheets("Games").Cells(X, 12).Value
LL = Worksheets("Games").Cells(X, 13).Value
MM = Worksheets("Games").Cells(X, 14).Value
NN = Worksheets("Games").Cells(X, 15).Value
OO = Worksheets("Games").Cells(X, 16).Value






.FindElementById(AA).Click
.FindElementById(BB).Click
.FindElementById(CC).Click
.FindElementById(DD).Click
.FindElementById(EE).Click
.FindElementById(FF).Click
.FindElementById(GG).Click
.FindElementById(HH).Click
.FindElementById(II).Click
.FindElementById(JJ).Click
.FindElementById(KK).Click
.FindElementById(LL).Click
.FindElementById(MM).Click
.FindElementById(NN).Click
.FindElementById(OO).Click
.FindElementById("colocarnocarrinho").Click











Next X

MsgBox (Pagar!)


End With

End Sub

Só coloquei um timerzinho maior.

Abraço



rafa.jsilva
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Nov 07, 2019 11:35 am

Re: VBA com integração WEB

Mensagem por rafa.jsilva » Ter Nov 12, 2019 1:12 pm

Valeu!!!, Julio Mangilli

Só não entendi o pq do Dim Oxente As Selenium.ChromeDriver?



Julio Mangilli
Manda bem
Manda bem
Mensagens: 108
Registrado em: Sex Out 05, 2018 2:42 pm

Re: VBA com integração WEB

Mensagem por Julio Mangilli » Ter Nov 12, 2019 2:55 pm

Opa, Magina que bom que deu certo.

Olha aquele "Oxente" ahuahauhauhauahuahauhau eu acho que foi erro de escrita minha ahauahuahuahauhua
Desculpa ae auhauhauahuahauha

Abraços.



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