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...
Leer más ...