Mostrar/Ocultar

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


Foro de Programación de Google Earth y Maps Foro de Programación de Google Earth y Maps: Programación con las APIs de Google: Google Earth, Google Maps, KML, Aplicaciones Moviles
SubForos: Java - Kmz - Google Maps - Herramientas - Html - Javascript - Excel - Php - Programacion
Página 1 de 1 - Tema con 16 Mensajes y 72372 Lecturas
Último Mensaje:
Foro de Programación de Google Earth y Maps Ver más mensajes sobre Archivos de texto a Google Earth ¡¡¡ en el foro
Autor Mensaje

Dvalladares
Usuario Reciente

Usuario Reciente
Registrado:
21-12-2012
Mensajes: 3

Votos: 0 👍
Responder citando
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.
Ir arriba Dvalladares Compartir:

Liebre123
Usuario Reciente

Usuario Reciente
Registrado:
08-10-2013
Mensajes: 1

Votos: 0 👍
Responder citando
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
Ir arriba Liebre123 Compartir:

Adiaz
Usuario Reciente

Usuario Reciente
Registrado:
07-04-2014
Mensajes: 1

Votos: 0 👍
Responder citando
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!
Ir arriba Adiaz Compartir:

_polifemo
SuperExpert

SuperExpert
Registrado:
27-11-2009
Mensajes: 436

Votos: 0 👍
Responder citando
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.
Ir arriba _polifemo Compartir:
Mostrar mensajes de anteriores:   
SubForos: Java - Kmz - Google Maps - Herramientas - Html - Javascript - Excel - Php - Programacion
 Responder al tema   Versión Imprimible
Todas las horas son GMT + 1 Hora
Página 1 de 1 - Tema con 16 Mensajes y 72372 Lecturas - Última modificación: 14/04/2014




RSS: Foro Programación de Google Earth y Maps RSS - Ultimos Mensajes
Cambiar a:  


Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
No Puedes adjuntar archivos en este foro
Tu puedes descargar archivos en este foro



Mostrar/Ocultar Últimas Fotos del Foro