Visualizza messaggio singolo
Vecchio 03-02-2018, 08.49.11   #1
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Aprire Google Maps Esando Determinati Criteri in VBA

Ciao a tutti mi chiamo Maurizio
E il mio problema e questo : Io Su di un foglio di excel nella cella K1 vorrei scrivere il nome della Città di ( Roma )
Poi premendo un tasto Vorrei che nelle Colonna A1 venisse riportato tutto ciò che è inerente alla città di roma come ad esempio :

Contea : Città Metropolitana di Roma
Città : Roma
Stato : Lazio (Lazio)
Cap :
Latitudine : 41,902783
Longitudine : 12,496366

Che sono poi i dati che vengono riportati nella Cartina Stradale di Google maps.
E questo e il suo link : https://www.google.it/maps/@45.0859273,7.7138732,14z

Oltre a Tutto ciò Vorrei aver la possibilità però di aprire tale Cartina con il suo Itinerario ; Cioè che indicasse la città di roma.

Tutto qui si fà per dire , perché capisco che forse sto' chiedendo troppo.
Grazie sin da ora per tutto l'aiuto che vorrete darmi in merito Saluti sinceri da A.Maurizio.

(P.s) Secondo voi Potrei cavarmela solo per estrapolare i dati dal foglio usare questo Codice :

Codice:
Sub Rettangolo1_Click()
'On Error Resume Next
    Dim oggCol As Object
    Dim copy As String
    Dim i As Long
    
     Url = "https://www.mapdevelopers.com/what-county-am-i-in.php?place/" & Foglio1.Range("K1").Value
        Set Ie = CreateObject("InternetExplorer.Application")

    With Ie
       .Visible = 0
       .Navigate Url
      While .Busy Or .ReadyState <> 4
        DoEvents
      Wend
    End With
    
Dim prima() As String
    Set oggCol = Ie.Document.getElementsByTagName("div")
      Sheets("Id_Città").Range("D10").Select
         i = 0: Riga = 10: Col = 4
       While i < oggCol.Length
        If oggCol(i).className = "row" Then
          copy = oggCol(i).innerText
          prima = Split(copy, " ")
          
          Cells(Riga + 1, Col) = oggCol(i).Children(0).Title
          
           N = 2: S = 4: P = 6
            Cells(Riga, Col).Value = prima(N - 1)
            Cells(Riga + 3, Col).Value = prima(S - 1)
            Cells(Riga + 4, Col).Value = prima(P - 1)
               Col = Col + 1
        End If
           i = i + 1
        Wend
    
    Ie.Quit
    Set Ie = Nothing
    Set oggCol = Nothing
End Sub
Sfruttando però solo il codice

Codice:
innerText
Indirizzato su determinate celle per realizzare il tutto ?
Files allegati
Tipo file: zip Prova Variante Web Maps.zip (18,7 Kb, 0 visite)
A.Maurizio non è collegato   Rispondi citando