Boa noite!!

Use a pesquisa do fórum!

Leia:
http://www.familycomputerclub.com/get-w ... g-vba.html
http://www.techrepublic.com/article/pul ... b-queries/

Veja também:
http://www.youtube.com/watch?v=7sZRcaaAVbg
http://www.youtube.com/watch?v=x2yFFPCTx4I
http://brettdotnet.wordpress.com/2012/0 ... te-update/

Ola Alexandre, eu usei a pesquisa
mas o unico que achei foi esse
viewtopic.php?f=10&t=2542

e como o site da caixa usa frames "eu acho" nem tudo funciona,
oq eu queria era um exemplo de planilha com navegação e pegando algo,
Qualquer coisa serve
mas se não tiver nada tudo bem,

achei algo em
http://www.tomasvasquez.com.br/forum/vi ... 7yagtxqEZw
mas como o assunto está misturado não sei oq é de que

tem um monte mais que eu olhei, mas não consegui aplicar no site da caixa

http://www.codeforexcelandoutlook.com/e ... -explorer/

Até.

a unica coisa que consegui foi escolher o concurso

Sub AcessaPagina()
   Dim iE As InternetExplorer
   Set iE = New InternetExplorer
   iE.Navigate "http://www1.caixa.gov.br/loterias/loterias/megasena/megasena_resultado.asp"
 iE.Visible = True
      Do Until iE.ReadyState = READYSTATE_COMPLETE
    Loop

conc = 10
iE.Navigate "javascript:carrega_concurso(" & conc & ");"

End Sub

mas não consegui nem
selecionar ordem de sorteio ou pegar qualquer valor da pagina...

e o pior que eu esqueci de perguntar para qual loteria ele queria,
"só espero que seja tudo igual"
.

Consegui mais alguma coisa

Sub AcessaPagina2()
   Dim iE As InternetExplorer
   Set iE = New InternetExplorer
   loter = "quina"
      
   iE.Navigate "http://www1.caixa.gov.br/loterias/loterias/" & loter & "/" & loter & "_resultado.asp"
 iE.Visible =true ' ----------------------------------------mostra o internet explore
      Do Until iE.ReadyState = READYSTATE_COMPLETE  '---------espera carregar a pagina
    Loop
    
conc = 10 '------ concurso numero
iE.Navigate "javascript:carrega_concurso(" & conc & ");" '------seleciona concurso

Set vln = iE.Document.getElementById("menu_concurso_bt_data") '-------------data
MsgBox vln.getElementsByTagName("b")(0).innerText '----------------------pega a data

Set vln = iE.Document.getElementById("sorteio1") '------------------------ordem sorteio
MsgBox vln.getElementsByTagName("li")(2).innerText '----------valor , lançamento começa em 0

End Sub

Mas estou com problema de tempo de execução e carregamento da pagina, e mesmo colocando loops não resolve.

e em algumas loterias não funcionou um ou outro método

.

bem, consegui com

For n = 1 To 10000
Do While iE.Busy
Loop
Next

depois da troca de concurso
----------------------------------------------------------
pelo que percebi para pegar dados da internet não existe regras fixas
oq é valido para uma pagina pode não ser para outra
juntando isso com as diferentes linguagem de programação das paginas, pode ser uma tremenda dor de cabeça.

att.

Eu até já consegui pegar os números da loteria que a pessoa quer
mas como só falta o loto fácil acho que vou implementar tbm

Mas as vezes dá uns erros, "nem sempre"

não sei se é erro no script da pagina ou no tempo de resposta
------------------------------------------------------------------------
Do Until iE.ReadyState = READYSTATE_COMPLETE: Loop '-------espera carregar a pagina
For n = 1 To 1000
Do While iE.Busy '--<---loop até a paginar estar pronta "eu acho"
Loop
Next
cn = iE.Document.getElementById("span_conc").innerText <---pega o numero do ultimo sorteio nessa parte que as vezes dá erro
For Ln = cn - 10 To cn <---começo do loop para pegar os 10 últimos resultados "apenas para teste"

tbm não sei se estou fazendo algo de errado na macro ou se tem maneira mais otimizada para esse processo

não sei se alguém do fórum tem conhecimento nessa área

mas se alguém puder me auxiliar agradeço.

Abr.