MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Distâncias entre Cidades

    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 23/02/2011

    [Resolvido]Distâncias entre Cidades Empty [Resolvido]Distâncias entre Cidades

    Mensagem  JOSEMORAES 24/11/2021, 11:17

    Olá amigos tudo bem ?

    Procuro um código que me dê a distancia entre duas cidades, seria possível ?

    Precisava  de algo assim

    Cidade Origem:
    Cidade Destino:
    Distancia KM:



    Desde já agradeço muito


    .................................................................................
    [Resolvido]Distâncias entre Cidades 10715412
    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 23/02/2011

    [Resolvido]Distâncias entre Cidades Empty Re: [Resolvido]Distâncias entre Cidades

    Mensagem  JOSEMORAES 26/11/2021, 16:12

    Alguem ?


    .................................................................................
    [Resolvido]Distâncias entre Cidades 10715412
    avatar
    Basole
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 06/04/2013

    [Resolvido]Distâncias entre Cidades Empty Re: [Resolvido]Distâncias entre Cidades

    Mensagem  Basole 26/11/2021, 17:51

    Experimente este site é gratuito.
    Ex.:
    http://www.distance2villes.com/recherche?source=sao%20paulo&destination=rio%20de%20janeiro


    Código:


    Sub Distance()
        
        Const DIST1 As String = "http://www.distance2villes.com/recherche?source="
        Const DIST2 As String = "&destination="
        Const DIST3 As String = "distanciaRuta"
        Const wsName As String = "Feuil1"
        
        'Dim w As Object: Set w = CreateObject("WINHTTP.WinHTTPRequest.5.1")
        Dim w As Object: Set w = CreateObject("MSXML2.XMLHTTP")
        Dim h As Object: Set h = CreateObject("htmlfile")
        
        Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets(wsName)
        Dim rg As Range
        Set rg = ws.Range("A2", ws.Cells(ws.Rows.Count, "A").End(xlUp).Offset(, 1))
        Dim Data As Variant: Data = rg.Value
        
        Dim isFound As Boolean: isFound = True
        Dim i As Long
        Dim Url As String
        Dim S As String
        
        For i = 1 To UBound(Data, 1)
            If Len(Data(i, 1)) > 0 And Len(Data(i, 2)) > 0 Then
                Url = DIST1 & Data(i, 1) & DIST2 & Data(i, 2)
                w.Open "GET", Url, False
                w.Send
                h.body.innerHTML = w.responseText
                On Error GoTo NotFoundError
                S = h.getElementById(DIST3).innerText
                On Error GoTo 0
                If isFound Then
                    Data(i, 1) = Replace(Left(S, Len(S) - 3), ",", "")
                Else
                    Data(i, 1) = ""
                    isFound = True
                End If
            Else
                Data(i, 1) = ""
            End If
        Next
        rg.Columns(1).Offset(, 2).Value = Data
        
        Exit Sub

    NotFoundError:
        isFound = False
        Resume Next

    End Sub



    fonte: https://stackoverflow.com/questions/66870615/how-to-calculate-the-distance-between-two-cities-by-specifying-the-country-in-vb
    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 23/02/2011

    [Resolvido]Distâncias entre Cidades Empty Re: [Resolvido]Distâncias entre Cidades

    Mensagem  JOSEMORAES 27/11/2021, 11:01

    Opa valeu, muito obrigado


    Vou tentar adaptar aqui


    .................................................................................
    [Resolvido]Distâncias entre Cidades 10715412
    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 23/02/2011

    [Resolvido]Distâncias entre Cidades Empty Re: [Resolvido]Distâncias entre Cidades

    Mensagem  JOSEMORAES 28/11/2021, 13:32

    Com a ajuda do MUCA COSTA

    dou o assunto como resolvido

    Obrigado MUCa


    .................................................................................
    [Resolvido]Distâncias entre Cidades 10715412

    Conteúdo patrocinado


    [Resolvido]Distâncias entre Cidades Empty Re: [Resolvido]Distâncias entre Cidades

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2024, 07:50