DONUT PROJECT 2024 - VBA - Automatização de Processos de Medir Distâncias no Google Maps

 

Automatização de processos de medir distâncias no Google Maps.

 Série VBA Outlook: 

  

  

  

Automatizar o processo de medir distâncias no Google Maps diretamente do Excel não é viável, pois o Google Maps não fornece uma API pública para automatizar esse tipo de interação. No entanto, você pode usar a API do Google Maps para calcular distâncias entre dois pontos e então exibir essas informações no Excel.

 Série Donut Project 

  

Para usar a API do Google Maps, você precisará de uma chave de API válida. Aqui está um exemplo básico de como você pode usar o VBA para chamar a API do Google Maps e calcular a distância entre dois pontos geográficos:

 

Sub MedirDistanciaGoogleMaps()

    Dim Origem As String

    Dim Destino As String

    Dim APIKey As String

    Dim URL As String

    Dim objHTTP As Object

    Dim RespJSON As Object

    

    ' Defina as coordenadas (latitude e longitude) dos pontos de origem e destino

    Origem = "latitude_origem,longitude_origem"

    Destino = "latitude_destino,longitude_destino"

    

    ' Sua chave de API do Google Maps

    APIKey = "SUA_CHAVE_DE_API_DO_GOOGLE_MAPS"

    

    ' Construir a URL da solicitação à API do Google Maps

    URL = "https://maps.googleapis.com/maps/api/distancematrix/json?units=metric&origins=" & Origem & "&destinations=" & Destino & "&key=" & APIKey

    

    ' Criar um objeto XMLHTTP para fazer a solicitação

    Set objHTTP = CreateObject("MSXML2.XMLHTTP")

    

    ' Enviar a solicitação GET para a API do Google Maps

    objHTTP.Open "GET", URL, False

    objHTTP.send

    

    ' Analisar a resposta JSON

    Set RespJSON = JsonConverter.ParseJson(objHTTP.responseText)

    

    ' Extrair a distância do JSON de resposta

    Dim Distancia As String

    Distancia = RespJSON("rows")(1)("elements")(1)("distance")("text")

    

    ' Exibir a distância no Excel

    MsgBox "A distância entre os pontos é: " & Distancia, vbInformation

    

    ' Limpar a memória

    Set objHTTP = Nothing

    Set RespJSON = Nothing

End Sub

Certifique-se de substituir latitude_origem,longitude_origem e latitude_destino,longitude_destino pelas coordenadas geográficas dos pontos de origem e destino, respectivamente. Além disso, substitua SUA_CHAVE_DE_API_DO_GOOGLE_MAPS pela sua chave de API do Google Maps.

Este código faz uma solicitação à API do Google Maps para obter a distância entre os pontos de origem e destino especificados e exibe a distância no Excel usando uma caixa de mensagem.

Por favor, lembre-se de que você precisa habilitar a biblioteca "Microsoft Scripting Runtime" e adicionar uma referência à biblioteca "Microsoft HTML Object Library" no Excel para que este código funcione.

 Clique nas capas abaixo e compre também: