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

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

Juanderli: yo sí estaría interesado tanto en la aplicación como en el código fuente utilizado, si fueras tan amable. Te he enviado un mail, con que cuando puedas nos ponemos en contacto.

Y por supuesto muchas gracias.

---

GoogleMaster: querría aprovechar el momento para proponer la posibilidad de abrir un nuevo foro (tal vez dentro de "ayuda y soporte técnico"), para tener localizado en la medida de lo posible todas aquellas aportaciones relacionadas con la programación en GE (API de GE y GMaps, Macros, aplicaciones en VB... Entre otras).

Opino que sería muy útil pues que yo sepa no existen foros en Castellano al que pueda acudir un desarrollador a plantear dudas y/o colaboraciones.

Un saludo.

Antes que nada buenos días, 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.....

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 descripción 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, ",", ".")
descripción = Worksheets(1).Cells(j, "C")
name = Worksheets(1).Cells(j, "D")

Print #1, " "
Print #1, " " & descripción & ""
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.