Página 1 de 1

VBA com integração WEB

Enviado: Qui Nov 07, 2019 1:36 pm
por rafa.jsilva
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 3680 vezes
Lottery Games.rar
Planilha de Jogos + Macro
(17.12 KiB) Baixado 74 vezes

Re: VBA com integração WEB

Enviado: Sex Nov 08, 2019 10:04 am
por Julio Mangilli
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

Re: VBA com integração WEB

Enviado: Ter Nov 12, 2019 1:12 pm
por rafa.jsilva
Valeu!!!, Julio Mangilli

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

Re: VBA com integração WEB

Enviado: Ter Nov 12, 2019 2:55 pm
por Julio Mangilli
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.