Ajudinha para importar dados da web para excel 2013

[BENICIO]

Alguém sabe como importar dados da web para excel 2013, mas quero somente a parte onde se encontram todos os resultados dentro desta caixa de texto;

aqui o site: http://www.investeloto.com.br/resultados/resultado_ms.php

Já tentei usar: dados/obter dados externos/ Da web/selecionei a caixa onde estão os dados e não importa nada!

Alguém se habilita aí, com algum código vba ou algo mais fácil, esse site existe a anos e sempre atualizam os resultados de imediato!

[dois]

23 minutos atrás, BENICIO disse:

Alguém sabe como importar dados da web para excel 2013, mas quero somente a parte onde se encontram todos os resultados dentro desta caixa de texto;

aqui o site: http://www.investeloto.com.br/resultados/resultado_ms.php

Já tentei usar: dados/obter dados externos/ Da web/selecionei a caixa onde estão os dados e não importa nada!

Alguém se habilita aí, com algum código vba ou algo mais fácil, esse site existe a anos e sempre atualizam os resultados de imediato!

 

 

Isto é fácil ..

 

1. Clique com o botão esquerdo do mouse dentro da caixa "Lista de resultados"
2. Pressione as teclas CTRL + A
3. SE tudo for selecionado corretamentre todas as linhas estarão com fonte BRANCA sobre fundo AZUL. 
4. Clique com o botão direito do mouse dentro da caixa "Lista de resultados"
5. Na lista de opções escolha Copiar
6. Agora basta Colar onde você desejar

 

Um abraço !

 

[Guest Zangado]

17 minutos atrás, BENICIO disse:

Alguém sabe como importar dados da web para excel 2013, mas quero somente a parte onde se encontram todos os resultados dentro desta caixa de texto;

aqui o site: http://www.investeloto.com.br/resultados/resultado_ms.php

Já tentei usar: dados/obter dados externos/ Da web/selecionei a caixa onde estão os dados e não importa nada!

Alguém se habilita aí, com algum código vba ou algo mais fácil, esse site existe a anos e sempre atualizam os resultados de imediato!

pelo visto esse site usa os dados de http://www.xloterias.com.br/

que infelizmente os dados na ordem de sorteio só é para assinantes então eu desistir de tentar atualizar por lá esse site que vc postou tem a vantagem de não ter tantas propagandas o xloterias é um nojo para os não assinantes

[Guest Zangado]

1 minuto atrás, dois disse:

 

 

Isto é fácil ..

 

1. Clique com o botão esquerdo do mouse dentro da caixa "Lista de resultados"
2. Pressione as teclas CTRL + A
3. SE tudo for selecionado corretamentre todas as linhas estarão com fonte BRANCA sobre fundo AZUL. 
4. Clique com o botão direito do mouse dentro da caixa "Lista de resultados"
5. Na lista de opções escolha copiar
6. Agora basta colar onde você desejar

 

Um abraço !

 

acho que oq ele quer é algo automatico com apenas um botão no excel

[dois]

Agora, edcronos2 disse:

acho que oq ele quer é algo automatico com apenas um botão no excel

 

 

Aí tá de brincadeira, né ???

 

[BENICIO]

2 minutos atrás, dois disse:

 

 

Isto é fácil ..

 

1. Clique com o botão esquerdo do mouse dentro da caixa "Lista de resultados"
2. Pressione as teclas CTRL + A
3. SE tudo for selecionado corretamentre todas as linhas estarão com fonte BRANCA sobre fundo AZUL. 
4. Clique com o botão direito do mouse dentro da caixa "Lista de resultados"
5. Na lista de opções escolha Copiar
6. Agora basta Colar onde você desejar

 

Um abraço !

 

kkkkk isso seria fácil se fosse só para copiar e colar, mas o objetivo é criar um botão para atualizar os resultados em uma planilha automatizada! 

[Guest Zangado]

3 minutos atrás, BENICIO disse:

kkkkk isso seria fácil se fosse só para copiar e colar, mas o objetivo é criar um botão para atualizar os resultados em uma planilha automatizada! 

o certo é vc postar a questão em um forum dedicado ao vba e excel

 

[dois]

2 minutos atrás, BENICIO disse:

kkkkk isso seria fácil se fosse só para copiar e colar, mas o objetivo é criar um botão para atualizar os resultados em uma planilha automatizada! 

 

 

Aí só com abaixo assinado pra maldita CEF ...

pra TALVEZ, QUEM SABE, ALGUM DIA ...  kkkkkkkkkk

[Guest Zangado]

Agora, dois disse:

 

 

Aí só com abaixo assinado pra maldita CEF ...

pra TALVEZ, QUEM SABE, ALGUM DIA ...  kkkkkkkkkk

cara nem é algo dificil,
eu mesmo tinha feito um codigo que atualizava os resultado pelo site da caixa, depois que o site principal mudou eu mudei para o app

agora a pagina app tbm não tem mais em ordem de sorteio

o xloteria tem mas deu pereza de montar mais um codigo de atualização se eu sequer jogo

[dois]

3 minutos atrás, edcronos2 disse:

cara nem é algo dificil,
eu mesmo tinha feito um codigo que atualizava os resultado pelo site da caixa, depois que o site principal mudou eu mudei para o app

agora a pagina app tbm não tem mais em ordem de sorteio

o xloteria tem mas deu pereza de montar mais um codigo de atualização se eu sequer jogo

 

 

Difícil é a maldita CEF facilitar pra  gente !!!

Parece que a  #&¨ª§  complica de propósito !!!

[Guest Zangado]

Agora, dois disse:

 

 

Difícil é a maldita CEF facilitar pra  gente !!!

Parece que a  #&¨ª§  complica de propósito !!!

e vc duvida?

 

não tem resultado in line , se não for por outros meios tem que esperar ela atualizar a pagina, mesmo quando dá algum atraso no sorteio a pagina não informa

tiraram a ordem de sorteio e espalharam as informações de uma maneira que se tem que percorrer toda a pagina

os zip as vezes demoram a ser atualizados, já peguei até com menos sorteios do que eu tinha baixado anteriormente

ela taca um monte de numeros sem mostrar o sorteio, e tem gente que fala que isso é normal ,

não importa se um punhado de pessoas de uma pequena cidadezinha viu, acho que o apostador tem todo o direito de acompanhar o sorteio sem ter que gastar transponte para chegar lá só eles sabem onde

[Fernandes20]

Tenho uma macro que atualizava os resultados da lotofácil direto da caixa, não sei ainda funciona, se quiser tentar personalizar a sua necessidade, segue abaixo.

 

 

 

Function Bac(ByVal strArquivoWeb As String, ByVal strArquivoLocal As String) As Boolean
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", strArquivoWeb, False
oXMLHTTP.Send
Do While oXMLHTTP.readyState <> 4
DoEvents
Loop
oResp = oXMLHTTP.responseBody
vFF = FreeFile
If Dir(strArquivoLocal) <> "" Then Kill strArquivoLocal
Open strArquivoLocal For Binary As #vFF
Put #vFF, , oResp
Close #vFF
Set oXMLHTTP = Nothing
End Function

Sub Baixar()
strURL = "http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip"
Bac strURL, Application.ThisWorkbook.Path & "\D_lotfac.zip"
Call DescompactarArquivo(Application.ThisWorkbook.Path & "\D_lotfac.zip", Application.ThisWorkbook.Path)
Importar
End Sub

Sub Importar()
Dim strCaminho, strNome As String
strCaminho = Application.ThisWorkbook.Path
strNome = "Resultados"
    With ActiveSheet.QueryTables.Add(Connection:= _
        "FINDER;file:" & strCaminho & "\D_LOTFAC.HTM", Destination:=Range("A2"))
        .Name = strNome
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = False
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False '
        .Refresh BackgroundQuery:=False
    End With
    Kill strCaminho & "\D_LOTFAC.HTM"
    Kill strCaminho & "\D_lotfac.zip"
    On Error Resume Next
    Kill strCaminho & "\LOTFACIL.GIF"
  
End Sub

Private Function DescompactarArquivo(strOrigemArquivoCompactado As String, strDestinoArquivoDescompactado As String)
    With CreateObject("Shell.Application")
        .Namespace(Error$ & strDestinoArquivoDescompactado).CopyHere .Namespace(Error$ & strOrigemArquivoCompactado).Items
    End With
End Function
 

 

 

Edited December 29, 2016 by Fernandes20