KML dosyası içeriği genel olarak şu şekildedir:
Placemark
Name
Description
Point
Coordinates
descriptiona ekleyerek kml düzenleyebileceğiniz şekilde @berduş hocamın kodunu şöyle revize edebiliriz. ben dosyanızda denedim bir sorun görmedim. Siz de deneyin gerekli yerleri çalışmanıza göre düzeltelim.
Kod:
Dim ws As Worksheet
Dim kmlContent As String
Dim filePath As String
Dim i As Long
Set ws = ThisWorkbook.Sheets("Deneme1")
kmlContent = "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbNewLine
kmlContent = kmlContent & "<kml xmlns=""http://www.opengis.net/kml/2.2"">" & vbNewLine
kmlContent = kmlContent & " <Document>" & vbNewLine
For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
kmlContent = kmlContent & " <Placemark>" & vbNewLine
kmlContent = kmlContent & " <name>" & ws.Cells(i, 3).Value & "</name>" & vbNewLine
kmlContent = kmlContent & " <description>" & ws.Cells(i, 4).Value & "<br/>" & _
ws.Cells(i, 5).Value & "<br/>" & ws.Cells(i, 6).Value & "<br/>" & _
ws.Cells(i, 7).Value & "<br/>" & ws.Cells(i, 8).Value & "</description>" & vbNewLine
kmlContent = kmlContent & " <Point>" & vbNewLine
kmlContent = kmlContent & " <coordinates>" & ws.Cells(i, 2).Value & "," & _
ws.Cells(i, 1).Value & ",0</coordinates>" & vbNewLine
kmlContent = kmlContent & " </Point>" & vbNewLine
kmlContent = kmlContent & " </Placemark>" & vbNewLine
Next i
kmlContent = kmlContent & " </Document>" & vbNewLine
kmlContent = kmlContent & "</kml>"
filePath = "C:\........\.....kml" ' KML dosyasını kaydedeceğiniz yolu ve adını kendinize göre düzenleyin.
Open filePath For Output As #1
Print #1, kmlContent
Close #1