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, ""
Print #1, ""
Print #1, ""
Print #1, " "
Print #1, " "
Print #1, " 2"
Print #1, " 7dff0000"
Print #1, " "
Print #1, " "
Print #1, " 7d0000"
Print #1, " random"
Print #1, " 1"
Print #1, " 1"
Print #1, " "
Print #1, " "

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, " "
Print #1, " " & descripcion & ""
Print #1, " " & name & ""
Print #1, " "
Print #1, " "
Print #1, " 0.6"
Print #1, " "
Print #1, " maps.google.com/ ...-blank.png"
Print #1, " "
Print #1, " "
Print #1, " "
Print #1, " "
Print #1, " " & longitud & ", " & latitud & " ,0"
Print #1, " "
Print #1, " "
Print #1, vbclrf
End If

Next j

Print #1, ""
Print #1, ""

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.