AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Excel Dosyasını Kml Dosyasına Çevirme

1 2 3 4
11/08/2023, 19:51

yyhy

Sayın @atoykan ilginiz için teşekkür ederim. Dosyayı indirip deneyeceğim.
12/08/2023, 21:30

yyhy

Sayın @berduş bey kodu inceledim path olayını düzelttim; düzelttim derken c: sürücüsü içerisine aynı klasörleri oluşturdum.
Tek sorunum Excel sayfasındaki 7 sütunu dahil edip bilgileri de içersin istiyorum. Sadece koordinatlar yazıyor.
13/08/2023, 14:17

atoykan

Açıklamalar şeklinde eklediğiniz sütunları kml dosyasına eklemek istiyorsunuz. bunları kmlde hangi alana ekleyeceksiniz description alanına mı? Örnek bir kml dosyanız varsa yapmak istediğiniz şekli içeren onu da paylaşın kodu ona göre revize edelim.

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
14/08/2023, 11:46

yyhy

Sayın @berduş, @atoykan hocam örnek dosya üzerinde inceleyip tekrar dönüş yapayım.
17/08/2023, 09:43

yyhy

AÇIKLAMA2-5<br></br>AÇIKLAMA3-5<br></br>AÇIKLAMA4-5<br></br>AÇIKLAMA5-5<br></br>
Açıklama kısmı bu şekilde geliyor. Acaba eklediğim resimdeki gibi sağ klik özelliklerde açıklama kısmı düzeltilebilir mi?
17/08/2023, 17:29

atoykan

Eklediğiniz jpg resmini elde etmek için google earthde kullandığınız kml dosyası örneğini eklemelisiniz. jpgden kml dosyasının içeriğini nasıl göreceğiz? Anladığım kadarı ile siz Excel dosyanızdaki her bir satır için ayrı kml dosyası oluşturmak istiyorsunuz.
1 2 3 4