+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Dosyasını Kml Dosyasına Çevirme (/konu-excel-dosyasini-kml-dosyasina-cevirme.html)
RE: Excel Dosyasını Kml Dosyasına Çevirme - yyhy - 11/08/2023
Sayın @atoykan ilginiz için teşekkür ederim. Dosyayı indirip deneyeceğim.
RE: Excel Dosyasını Kml Dosyasına Çevirme - yyhy - 12/08/2023
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.
RE: Excel Dosyasını Kml Dosyasına Çevirme - atoykan - 13/08/2023
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 #1RE: Excel Dosyasını Kml Dosyasına Çevirme - yyhy - 14/08/2023
Sayın @berduş, @atoykan hocam örnek dosya üzerinde inceleyip tekrar dönüş yapayım.
RE: Excel Dosyasını Kml Dosyasına Çevirme - yyhy - 17/08/2023
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?
RE: Excel Dosyasını Kml Dosyasına Çevirme - atoykan - 17/08/2023
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.