Archivos de texto a Google Earth ¡¡¡ 🗺️ Foros de Google Earth y Maps 🗺️ p71 🗺️

Mariano17 Escribio:

Antes que nada buenos dias, mi nombre es Mariano soy de Argentina y acabo de arrancar en el foro. Estaba interesado en este topic porque necesito pasar direcciones de clientes (que los puedo bajar en xls) y transformarlo en un archivo KML para poder verlo en google earth. Juanderli te quise mandar mp pero no puedo todavia. si podes responderme te lo agradeceria. Desde ya muchas gracias !!

Aclaro que tengo las direcciones con calle y altura, no con datos de gps.

Juanderli: Estaoy interesado tanto en la aplicación como en el código fuente utilizado, si fueras tan amable. Mi Email dvalladaresc24@gmail.com

Y por supuesto muchas gracias.

Que tal me podrían pasar el el código o la macro para convertir Excel a kml...gracias de antemano.....

juanderli Escribio:

Hice una pequeña utilidad con Excel y VBA, es simple, genera archivo kml para WP y para Trazas,.. voy a intentar subirlo.. no se si puede subir archivo, o de lo contrario si a alguien le interesa mi mail es juanderliz@gmail.com

Buenas noches, hace un tiempo necesite transformar archivos de excel a KML, me fue muy útil esta herramienta (pero solo acepta hasta 200 registros):
www.earthpoint.us/exceltokml.aspx

Si tienen mas datos pueden usar esta macro:

Sub KML_DPTO()

Dim temp As String
Dim latitud As String
Dim longitud As String
Dim descripcion As String
Dim name As String

Dim j As Integer


Open "D:\carpeta\Nombre del archivo.kml" For Output As #1

Print #1, "<?xml version='1.0' encoding='UTF-8'?>"
Print #1, "<kml xmlns='http://www.opengis.net/kml/2.2'>"
Print #1, "<Document>"
Print #1, " <Style id=" & "'transBluePoly'" & ">"
Print #1, " <LineStyle>"
Print #1, " <width>2</width>"
Print #1, " <color>7dff0000</color>"
Print #1, " </LineStyle>"
Print #1, " <PolyStyle>"
Print #1, " <color>7d0000</color>"
Print #1, " <colorMode>random</colorMode>"
Print #1, " <fill>1</fill>"
Print #1, " <outline>1</outline>"
Print #1, " </PolyStyle>"
Print #1, " </Style>"

Print #1, vbclrf

For j = 1 To 10 'archivos de excel

latitud = Worksheets(1).Cells(j, "A") 'columna donde esta la latitud
latitud = Replace(latitud, ",", ".")
longitud = Worksheets(1).Cells(j, "B") 'columna donde esta la longitud
longitud = Replace(longitud, ",", ".")
descripcion = Worksheets(1).Cells(j, "C")
name = Worksheets(1).Cells(j, "D")

Print #1, " <Placemark>"
Print #1, " <description>" & descripcion & "</description>"
Print #1, " <name>" & name & "</name>"
Print #1, " <Style id='randomColorIcon'>"
Print #1, " <IconStyle>"
Print #1, " <scale>0.6</scale>"
Print #1, " <Icon>"
Print #1, " <href>http://maps.google.com/mapfiles/kml/paddle/grn-blank.png</href>"
Print #1, " </Icon>"
Print #1, " </IconStyle>"
Print #1, " </Style>"
Print #1, " <Point>"
Print #1, " <coordinates> " & longitud & ", " & latitud & " ,0</coordinates>"
Print #1, " </Point>"
Print #1, " </Placemark>"
Print #1, vbclrf
End If

Next j

Print #1, "</Document>"
Print #1, "</kml>"

Close #1
End Sub

Si tiene alguna duda escribanme a mi correo arelid10@gmail.com.
Espero que sigamos compartiendo conocimientos.
Saludos!

Excelente aporte Adiaz.

Y que será de muchísima utilidad para muchos usuarios.
Veo que la primera parte del código (tras declarar las variables y referenciar el archivo) la dedicas a imprimir en el kml resultante una serie de estilos, pero veo también que son estilos de linea y polilínea mientras que esta macro solo trata placemarks de tipo puntual.
Dicho de otro modo, creo que la macro debería funcionar de un modo satisfactorio sin las líneas 4 a 15.
El bucle que usas toma hasta 10 puntos, suficiente para una demo.

Un cordial saludo.