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

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.