1

O código abaixo funciona perfeita para retornar dados pelo Excel com Web Scraping. Instalei no arquivo o módulo VBA-JSON-2.3.1 - módulo de nome JsonConverter.bas. Habilitei a referência Microsoft Scripting Runtime. Retorno todos as marcas, marcas e modelos, etc. O erro acontece quando tento retornar o valor atual de uma determinada marca, modelo e ano específicos. Dá erro de tipos incompatíveis nesta linha, er se comentar a linha também dá erro nas outras.:

Planilha4.Cells(I, 1).Value = Item("referencia")

Acredito que seja porque o retorno vem desta maneira, sem colchetes no início e no final:

{"referencia": "maio de 2019", "fipe_codigo": "001267-0", "name": "Palio 1.0 ECONOMY Fire Flex 8V 4p", "combustivel": "Gasolina", "marca": "Fiat", "ano_modelo": "2013", "preco": "R$ 22.533,00", "key": "palio-2013", "time": 0.0, "veiculo": "Palio 1.0 ECONOMY Fire Flex 8V 4p", "id": "2013"}

Não estou conseguindo resolver o problema. Segue abaixo o código completo.

Sub RetornaPrecoMarcaCarroModeloAno()
    Dim http        As Object
    Dim JSON        As Object
    Dim I           As Integer
    Dim Item        As Variant
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", "http://fipeapi.appspot.com/api/1/carros/veiculo/21/4828/2013-1.json", False
    http.Send
    Set JSON = ParseJson(http.responseText)
    I = 2
    For Each Item In JSON
        Planilha4.Cells(I, 1).Value = Item("referencia")
        Planilha4.Cells(I, 2).Value = Item("fipe_codigo")
        Planilha4.Cells(I, 3).Value = Item("name")
        Planilha4.Cells(I, 4).Value = Item("combustivel")
        Planilha4.Cells(I, 5).Value = Item("marca")
        Planilha4.Cells(I, 6).Value = Item("ano_modelo")
        Planilha4.Cells(I, 7).Value = Item("preco")
        Planilha4.Cells(I, 8).Value = Item("key")
        Planilha4.Cells(I, 9).Value = Item("veiculo")
        Planilha4.Cells(I, 10).Value = Item("id")
        I = I + 1
    Next
    MsgBox ("complete")
    Set http = Nothing
    Set JSON = Nothing
End Sub

1 Resposta 1

0

Boa noite,

acredito que pelo tempo não precise mais da resposta, para as futuras consultas o erro está no retorno da consulta que não apresenta as "[ ]":

Resposta da consulta (http://fipeapi.appspot.com/api/1/carros/veiculos/13.json): [{"fipe_marca": "Citro\u00ebn", "name": "AIRCROSS 100 Anos 1.6 Flex 16V Aut.", "marca": ... , "fipe_name": "ZX Volcane 3p e 5p"}]

Resposta da consulta (http://fipeapi.appspot.com/api/1/carros/veiculo/59/5218/2014-1.json):

{"referencia": "junho de 2020", "fipe_codigo": "005072-5", "name": "Golf GLX 2.0 4p", "combustivel": "Gasolina", "marca": "VW - VolksWagen", "ano_modelo": "1995", "preco": "R$ 8.204,00", "key": "golf-1995", "time": 0.0, "veiculo": "Golf GLX 2.0 4p", "id": "1995"}

Dentro do VBA-JSON-2.3.1 ele entende como início do código "[{", logo para resolver corrija a entrada:

Set JSON = ParseJson("[" & http.responseText & "]")

Espero ter ajudado! :D

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .