✔ Programação GLOBAL®: DONUT PROJECT 2024 - VBA - Automatização de Processos de Medir Distâncias no Google Maps

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 DONUT PROJECT 2024

DONUT PROJECT 2024 - VBA - Retorna o Valor do Conteúdo da Área de Transferência do Sistema

DONUT PROJECT 2024 - VBA - Retorna a Versão do Sistema Operacional em que o Excel está sendo Executado

DONUT PROJECT 2024 - VBA - Desenvolvimento de Ferramentas de Análise de Riscos

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.

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:

Como usar o Microsoft Copilot no Navegador Chrome

Como usar o Microsoft Copilot no Celular

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.

Série de Livros nut Project