PEGAR RESULTADO DA MEGA SENA
Olá a todos!...
Queria pegar o resultado da mega sena
Já tenho o module "mdlJsonAPI" e o site https://servicebus2.caixa.gov.br/portaldeloterias/api/megasena
Daqui pra baixo consigo pegar
Set Parse = ParseJson(sRetorno)
Me.txtTipoJogo.Text = Parse("tipoJogo")
Me.txtDataApuracao.Text = Format(Parse("dataApuracao"), "dd/mm/yyyy")
este não
Me.txtDezenasSorteadas = Parse("dezenasSorteadasOrdemSorteio:")
"acumulado": true,
"dataApuracao": "11/11/2023",
"dataProximoConcurso": "14/11/2023",
"dezenasSorteadasOrdemSorteio": [
"30",
"31",
"49",
"23",
"56",
"10"
Queria pegar o resultado da mega sena
Já tenho o module "mdlJsonAPI" e o site https://servicebus2.caixa.gov.br/portaldeloterias/api/megasena
Daqui pra baixo consigo pegar
Set Parse = ParseJson(sRetorno)
Me.txtTipoJogo.Text = Parse("tipoJogo")
Me.txtDataApuracao.Text = Format(Parse("dataApuracao"), "dd/mm/yyyy")
este não
Me.txtDezenasSorteadas = Parse("dezenasSorteadasOrdemSorteio:")
"acumulado": true,
"dataApuracao": "11/11/2023",
"dataProximoConcurso": "14/11/2023",
"dezenasSorteadasOrdemSorteio": [
"30",
"31",
"49",
"23",
"56",
"10"
Olá a todos!...
Após muita pesquisa achei a solução.
fonte da pesquisa https://www.hashtagtreinamentos.com/ler-qualquer-api-com-vba
' VBA-JSON v2.3.1
' JSON Converter for VBA
Dim Requisicao As New WinHttpRequest
Dim Resposta As Object
Dim Url As String, Parametros As String
Range("B4:B4").ClearContents
Range("C4:C4").ClearContents
Range("D4:D4").ClearContents
Range("E4:E4").ClearContents
Range("F4:F4").ClearContents
Range("G4:G4").ClearContents
'Definir a URL e os parâmetros
Url = "https://servicebus2.caixa.gov.br/portaldeloterias/api/megasena"
'Enviar a requisição
Requisicao.Open "Get", Url & Parametros
Requisicao.Send
'Tratamento de erros
If Requisicao.Status <> 200 Then
MsgBox "Erro: " & Requisicao.ResponseText
Exit Sub
End If
'Converter o JSON
Set Resposta = ParseJson(Requisicao.ResponseText)
'Tratar as informações
Dim itens As Collection
Set itens = Resposta("listaDezenas")
Cells(4, 2).Value = itens(1)
Cells(4, 3).Value = itens(2)
Cells(4, 4).Value = itens(3)
Cells(4, 5).Value = itens(4)
Cells(4, 6).Value = itens(5)
Cells(4, 7).Value = itens(6)
Set itens = Nothing
Set Resposta = Nothing
Após muita pesquisa achei a solução.
fonte da pesquisa https://www.hashtagtreinamentos.com/ler-qualquer-api-com-vba
' VBA-JSON v2.3.1
' JSON Converter for VBA
Dim Requisicao As New WinHttpRequest
Dim Resposta As Object
Dim Url As String, Parametros As String
Range("B4:B4").ClearContents
Range("C4:C4").ClearContents
Range("D4:D4").ClearContents
Range("E4:E4").ClearContents
Range("F4:F4").ClearContents
Range("G4:G4").ClearContents
'Definir a URL e os parâmetros
Url = "https://servicebus2.caixa.gov.br/portaldeloterias/api/megasena"
'Enviar a requisição
Requisicao.Open "Get", Url & Parametros
Requisicao.Send
'Tratamento de erros
If Requisicao.Status <> 200 Then
MsgBox "Erro: " & Requisicao.ResponseText
Exit Sub
End If
'Converter o JSON
Set Resposta = ParseJson(Requisicao.ResponseText)
'Tratar as informações
Dim itens As Collection
Set itens = Resposta("listaDezenas")
Cells(4, 2).Value = itens(1)
Cells(4, 3).Value = itens(2)
Cells(4, 4).Value = itens(3)
Cells(4, 5).Value = itens(4)
Cells(4, 6).Value = itens(5)
Cells(4, 7).Value = itens(6)
Set itens = Nothing
Set Resposta = Nothing
Caro Edson, bom dia!
Fiquei curioso e tentei seguir seus passos, tudo deu certo. Está rodando bem.
No entanto, coloquei um campo onde exibe a localidade do sorteio.
PROBLEMA: como o sorteio foi na cidade de São Paulo a palavra São está aparecendo com caracteres estranhos devido ela ser acentuada.
PERGUNTA: você conhece alguma sintaxe JSON que permita trabalhar com caracteres acentuados? Se sim, favor postar pra poder incorporar, testar e, assim, ficar perfeito.
Desde já agradeço.
Fiquei curioso e tentei seguir seus passos, tudo deu certo. Está rodando bem.
No entanto, coloquei um campo onde exibe a localidade do sorteio.
PROBLEMA: como o sorteio foi na cidade de São Paulo a palavra São está aparecendo com caracteres estranhos devido ela ser acentuada.
PERGUNTA: você conhece alguma sintaxe JSON que permita trabalhar com caracteres acentuados? Se sim, favor postar pra poder incorporar, testar e, assim, ficar perfeito.
Desde já agradeço.
Boa Noite!..
Jose, Não conheço nadinha de JSON.
Jose, Não conheço nadinha de JSON.
Bom dia!..
Jose, achei uma outra dica.
Agora e só você manipular as Split.
Jose, achei uma outra dica.
Agora e só você manipular as Split.
..
Edson,
como estava usando: VBA-JSON v2.3.1 notei que a rotina: ParseJson(requisicao.ResponseText) que vem do modulo: JsonConverter, está colocando uma ? depois da letra acentuada.
SÃO PAULO, estava ficando: SÃ?O PAULO.
Simplesmente fiz um replace em minha rotina e tirei o caractere indevido ?
Situação normalizada.
como estava usando: VBA-JSON v2.3.1 notei que a rotina: ParseJson(requisicao.ResponseText) que vem do modulo: JsonConverter, está colocando uma ? depois da letra acentuada.
SÃO PAULO, estava ficando: SÃ?O PAULO.
Simplesmente fiz um replace em minha rotina e tirei o caractere indevido ?
Situação normalizada.
Edson,
modulo2, perfeito, todos caracteres agora estão normais.
Obrigado por compartilhar.
modulo2, perfeito, todos caracteres agora estão normais.
Obrigado por compartilhar.
Jose, não seja por isso.
...
Tópico encerrado , respostas não são mais permitidas