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
Indirizzato su determinate celle per realizzare il tutto ?