Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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
código do erro
código do erro
123.JPG (163.1 KiB) Exibido 6138 vezes
Lottery Games.rar
Planilha de Jogos + Macro
(17.12 KiB) Baixado 280 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: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: VBA com integração WEB

Mensagem 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


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 »

Valeu!!!, Julio Mangilli

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


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

Re: VBA com integração WEB

Mensagem 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.


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