Notifications
Clear all

Loteria scrape resultado site da Caixa

32 Posts
2 Usuários
0 Reactions
6,603 Visualizações
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Olá a todos os colegas!

é um sistema pra pegar (scrape) o resultado da Loteria Mega-Sena no site da Caixa Economica Federal (CEF).
eu consegui 2 coisas até agora:
o ModeloA pega apenas a primeira informação que aparece no site e nao puxa o resultado
o ModeloB puxa o site quase inteiro mas só em um novo arquivo.

eu gostaria de OU o ModeloA pegar os numeros do ultimo sorteio, em vez de só a primeira informação.
OU
o ModeloB salvo o novo arquivo gerado, no computador (salvar como arquivo do excel), e aí eu puxaria o resultado dele depois.

o legal desse meu sistema é que eu nao preciso dizer qual o navegador, gostaria que continuasse assim.
lembrando que voces precisar estar on-line quando testarem os sistemas e ignorarem os erros pra conferir o resultado, aí depois entrem no debug pra ver o erro.

já pesquisei muito sobre escrap e loterias e nao achei do jeito que preciso ou estavam corrompidos.
eu aceito outros modelos de scrape que nao sejam de loterias, pois posso adaptar, os links para os Site da Caixa eu já tenho.
usarei apenas este codnome de usuario agora, ele estava com problema.
abraço a todos.

 
Postado : 08/05/2015 2:26 pm
(@edcronos)
Posts: 1006
Noble Member
 

achei interessante, fazer o excel abrir a pagina e pegar os valores
como já está tudo no proprio excel fica mais facil

e o melhor é bem simples
mas como vc usa range nomeada eu me perdi
eu não gosto de usar ranges nomeada pq não consigo segui o ritmo do codigo
comparado com o seu, meu codigo parece que está equilibrando pratos e copos na testa enquanto atravessa a corda bamba rolando numa bola
viewtopic.php?f=21&t=15224

vou dar uma olhada

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 7:14 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Olá Edcronos,
Bem-vindo, camarada! Vamos vencer juntos esse desafio?
Eu não havia visto essa sua planilha, vou analisar!
eu sou avançado em excel mas nao profissional, não entendo muito de vba (ainda).
o que faço melhor é alterar o que já está implementado e foi o que fiz.
eu consegui essa planilha num site gringo, mas nao lembro onde.
eu alterei algumas coisas e o que consegui de melhor resultado é o que postei.

cada vez que testar olhe na "plan2" o resultado, o modeloA pega a primeira palavra(informacao) e coloca na plan2.
nesse caso eu quero puxar os numeros sorteados ou a pagina inteira da caixa conforme o link que está incluido.
no caso do modeloB ele abre a pagina da Caixa no excel mas nao salva, é isso que precisa, SalvarComo formato excel.

daí, nos dois casos, já obtido o resultado, é criar um Vinculo (aperta igual e pressiona enter) entre a celula que está o numero sorteado e a celula que queremos que ele fique.

abraço,
XMan2000

 
Postado : 08/05/2015 7:37 pm
(@edcronos)
Posts: 1006
Noble Member
 

bem,
não entendi bem oq vc falou aí mas tudo bem
o fato é que a pagina tbm tem que ajudar,
se for só um ou outro resultado tudo bem, mas dá no mesmo que abrir o site
ou melhor, ele abre e importa, mas usa o navegador padrão

o problema ái é que tem que ver a localidade de cada dado que se quer pegar ou se achar parametros para se fazer uma busca
não é dificil, o unico problema para mim foi as range nomeada, que é onde deve estar o problema entre nomeada e pagina importada
v importou a pagina e criou uma plan nova, mas não nomeou a area requerida

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 7:43 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

eu penso o seguinte:

se conseguir salvar a pagina no computador, irei deixar minha planilha que tem o BotãoImportar (a que eu vou puxar o resultado final) programada pra puxar os valores de celulas especificas por exemplo A1, de uma Workbook (pasta do excel) denominada por exemplo "Ultimo Resultado MegaSena.xlsx".

então, o desafio, é salvar Automaticamente esse site puxado da web como "Ultimo Resultado MegaSena.xlsx".
a outra solução é como no ModeloA (melhor solução), mas só está vindo a 1a palavra do site, enquanto que no ModeloB ela está abrindo a pagina e mostrando o resultado, o que na pratica é melhor que nada.

entendeu?
temos de tentar das duas maneiras, ModeloA e ModeloB, até conseguir.
em relação ao seu sistema, o problema maior é ele usar um navegador definido em vez do padrão como no meu. Se voce corrigir isso talvez já nos ajude a ter uma solucao ao menos temporaria.

se precisar eu explico quantas vezes precisar, nao tem problema.

abraço.

 
Postado : 08/05/2015 7:56 pm
(@edcronos)
Posts: 1006
Noble Member
 

olha,
realmente o problema do meu é usar um navegador,
mas ali como vc viu eu interajo com a pagina,
já no seu não é possivel,

seus erros
vc importou a pagina
mas sem definir a região "range" de onde quer pegar os valores vc vai ficar na mesma que está agora
como falei, não é dificil,
é apenas falta do basico no seu codigo

seu codigo pegar data
DataRange = ActiveCell.CurrentRegion.Value
NumRows = UBound(DataRange)

"falha" pq?
não selecionou uma area que tem data
não de definiu datarange como array nem range

tem que lembrar que está dentro do excel

meu codigo
Cells(L, Tic + 1).Value2 = DateValue(Left(IE.Document.all("box").innertext, 10)) '-----pega a data
peguei o valor da pagina e separei a data
tbm poderia ser usado em seu codigo

DateValue(Left(valor da celula onde contem a data, 10))

cara não existe função magica que vai adivinhar onde está oq vc quer

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 8:15 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

oi EdCronos,

grato pela explicação.
eu nao consigo implementar isso sozinho, como eu disse, sou fraco no vba e programação.
sou bom em alterar.

como eu disse, já achei coisas interessantes, mas ainda complexas pra mim.
e aí, vc vai implementar isso "pra nós"?

abraço.

 
Postado : 08/05/2015 8:24 pm
(@edcronos)
Posts: 1006
Noble Member
 

ou melhor
no seu caso vc tem que pegar o valor da ultima celula
|3.000.000,00|09/05/2015|23.513.801,04|25.567.425,00
e localizar o texto

|09/05/2015|
no caso vc vai ter que localizar a possição do segundo | e pegar 10 caracteres a partir dele
isso pq o premio é variante e a posição pode mudar

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 8:26 pm
(@edcronos)
Posts: 1006
Noble Member
 

olha só, eu posso te dar dicas, daí com pesquisas vc consegue
sinto muito, mas não vou poder fazer,

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 8:29 pm
(@edcronos)
Posts: 1006
Noble Member
 

vc falou que é avançado,
então vc pode aplicar formulas para pegar os valores e aplicar com o vba onde vc quer

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 8:36 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

oi Edcronos,

eu tento postar coisas que sejam uteis pros outros membros também.
problema que como os outros sabem mais que eu, obtém mais vantagens com a questao ou o arquivo de exemplo, enquanto eu acabo ficando na mesma, com o sistema parado.

por isso nao posto muito, porque trabalho com o conceito de "fazer junto" e os outros nao.
mas é a vida.
abraço.

 
Postado : 08/05/2015 8:42 pm
(@edcronos)
Posts: 1006
Noble Member
 

certo fazer junto
mas como os outros sabem mais, e vc apenas fica dependendo deles v vai continuar sempre para tras

vc pode ver que disponibilizei essa planilha, e outras macros
qual vantagem que eu levo nisso?
eu estou para aprender e não ficar sempre na dependência

cara nem o seu modelo nem o meu é uma das 1000 maravilhas do mundo
mas podemos sempre aprimorar né

vou te dizer, a mudança é muito simples, mas se quiser que alguem simplesmente faça para vc , então paro por aqui
vc mesmo falou, fazer junto

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 8:52 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

vc falou que é avançado,
então vc pode aplicar formulas para pegar os valores e aplicar com o vba onde vc quer

então vc ficaria surpreso com o muito que consigo fazer com pouco e o pouco que consigo fazer com muito.
ser humano nao é ciencia exata.
já cliquei no joinha.

abraço.

obs: olá a todos, volto a mexer nesse sistema amanhã, hoje já estou cansado. Mas podem continuar postando. Aceito ajuda.Abraços.

 
Postado : 08/05/2015 8:54 pm
(@edcronos)
Posts: 1006
Noble Member
 

valeu, mas não sou maniaco do joinha como muitos
eu tbm estou iniciando, e sei muito pouco
e não me considero avançado, apenas brinco com o excel
mas vc tbm se surpreenderia as coisas que já fiz apenas brincado e aprendendo tentando ajudar
bem a unica coisa que ainda não conseguir é ganhar dinheiro com isso :(

bem, pelo visto não quer ajuda
boa sorte

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 08/05/2015 9:00 pm
(@xman2000)
Posts: 178
Estimable Member
Topic starter
 

Olá Colegas!
boa noite!

de ontem pra hoje aprendi algumas coisas novas e achei outros exemplos, que acredito, juntando com este deste Topico resolvem a questão, mas ainda nao sei implementar.

relendo os posts anteriores do Edcronos neste topico, agora entendi que ele diz pra nomear na planilha/pagina importada a area da qual vai ser extraida informacao para a planilha destino.

eu nao sei fazer isso, porque pelo que entendo nao é uma planilha convencional, é um site aberto pelo Excel, nao sei se é possivel, pelo que ele disse fiquei na duvida se é possível.

como ficaria no meu codigo essa "identação"?

a minha estrategia era conserguir "SalvarComo" essa pagina num formato de arquivo excel, e só depois extrair os dados, mas qualquer jeito está valendo pra começar.

a prioridade também é de usar nesse processo o navegador padrão e nao um específico.
desde já agradecido a quem ajudar.

 
Postado : 09/05/2015 3:42 pm
Página 1 / 3