Leo Farias

Fiz esse código para buscar a distancia entre cidades, porém sempre da erro na JSON, já importei a biblioteca JSON, mas mesmo assim erro, aguem poderia me ajudar a identificar o motivo desse erro ou me auxiliar como posso fazer de outra forma. Planilha: A origem (colunas A = Cidade e B = Estado ) e o destino (colunas D = Cidade e E = Estado ) são lidos da planilha. (São Paulo, SP - Rio de Janeiro, RJ) Os resultados das distâncias são escritos na coluna F. erro que apresenta na coluna F = Erro no JSON Sub CalcularDistancia() Dim ws As Worksheet Dim i As Long Dim origem As String, destino As String Dim apiKey As String Dim url As String Dim http As Object Dim JSON As Object Dim resposta As String Dim distancia As String ' Configurar a chave da API apiKey = "minha chave api" ' Configurar a planilha Set ws = ThisWorkbook.Sheets(1) ' Ajuste para a aba correta, se necessário ' Loop pelas linhas para calcular a distância For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Construir o endereço de origem e destino origem = ws.Cells(i, "B").Value & ", " & ws.Cells(i, "A").Value destino = ws.Cells(i, "E").Value & ", " & ws.Cells(i, "D").Value ' Construir a URL da API url = "https://maps.googleapis.com/maps/api/distancematrix/json?origins=" & _ Replace(origem, " ", "+") & "&destinations=" & Replace(destino, " ", "+") & _ "&key=" & apiKey Debug.Print url ' Exibe a URL no console para depuração ' Fazer a chamada HTTP Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.Send ' Armazenar a resposta JSON resposta = http.responseText Debug.Print resposta ' Exibe o JSON retornado no console para depuração ' Processar a resposta JSON On Error Resume Next Set JSON = JsonConverter.ParseJson(resposta) ' Requer o VBA JSON Converter On Error GoTo 0 If Not JSON Is Nothing Then On Error Resume Next If JSON("rows")(1)("elements")(1)("status") = "OK" Then distancia = JSON("rows")(1)("elements")(1)("distance")("text") Else distancia = "Não encontrado" End If On Error GoTo 0 Else distancia = "Erro no JSON" End If ' Exibir a distância na coluna F ws.Cells(i, "F").Value = distancia Next i MsgBox "Distâncias calculadas!", vbInformation End Sub

Putz, foi isso mesmo, mudei aqui e agora ligou, obrigado.

Já tinha feito, mas permaneceu na mesma, como é tudo novo fiquei na dúvida do que poderia ser o problema, mas valeu pela dica.

Na verdade é um de 2 + 6 pin Está no da esquerda

Fonte da gamemax de 650

Olá, desculpa pela dúvida boba, mas estou com uma pequena dúvida comprei recentemente um processador ryzen 5 3600 e uma placa-mãe Asus TUF x570, porém ainda estou aguardando a chegada do cabo para ligar na placa de vídeo/monitor, mas fui fazer a montagem e o cooler do processador não está rodando, isso é normal, pois como estou se monitor não consigo verificar se está dando vídeo e já verifiquei se os cabos estão instalando corretamente e mesmo assim não roda.

beleza, valeu pela dica

Sim, já tenho o processador e as memórias ddr4, eu achei a TUF x570 plus por r$1.300,00 e vi que é compatível com os itens, mas só surgiu a dúvida se compensa pegar essa ou outra? @Andros Santos vi que muitos recomenda pegar uma dessas placas, mas para uma futura atualização pensei em pegar essa da x570 por 1.300, será que vale a pena?

Tenho um processador ryzen 3600 e tô querendo comprar uma placa-mãe Asus TUF Gaming X570 Plus, essa seria a melhor opção ou teria outras melhores?