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

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.