Sayın @atoykan ilginiz için teşekkür ederim. Dosyayı indirip deneyeceğim.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Excel Dosyasını Kml Dosyasına Çevirme
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.
Tek sorunum Excel sayfasındaki 7 sütunu dahil edip bilgileri de içersin istiyorum. Sadece koordinatlar yazıyor.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
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.
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
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 14/08/2023, 11:48, Düzenleyen: 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?
Açıklama kısmı bu şekilde geliyor. Acaba eklediğim resimdeki gibi sağ klik özelliklerde açıklama kısmı düzeltilebilir mi?
Bu şekilde olmasını istiyorum.rar
(Dosya Boyutu: 479,36 KB | İndirme Sayısı: 5)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
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.
Konuyu Okuyanlar: 2 Ziyaretçi
