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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
VBA com integração WEB
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Nov 07, 2019 11:35 am
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: VBA com integração WEB
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
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
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Nov 07, 2019 11:35 am
Re: VBA com integração WEB
Valeu!!!, Julio Mangilli
Só não entendi o pq do Dim Oxente As Selenium.ChromeDriver?
Só não entendi o pq do Dim Oxente As Selenium.ChromeDriver?
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: VBA com integração WEB
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.
Olha aquele "Oxente" ahuahauhauhauahuahauhau eu acho que foi erro de escrita minha ahauahuahuahauhua
Desculpa ae auhauhauahuahauha
Abraços.