Kml uzantılı dosyayı okutup düşey ara ile bilgi ekleme yaparak kaydediyorum.
Formda bulduğum txt kaydet makrosuyla kml uzantı vererek kaydediyorum. Gayet güzel çalışıyor. Benim sorunum Google Türkçe karakterleri karakter olarak getiriyor. Farklı bir editöre excel sayfasındaki bilgileri kopyalayıp yapıştırdığımda düzgün çıkıyor. Bunun bir çözümü varımdır
forda bulunan ve kullanılan kot
Private Sub CommandButton79_Click()
Sheets("geoogle").Select
Columns("A:B").Select
Open "C:\CEVİR\Text.kml" For Output As #1
Dim R As Range
Set R = Selection
For a = 1 To R.Rows.Count
For b = 1 To R.Columns.Count
If b = R.Columns.Count Then
Print #1, R.Cells(a, b)
Else
Print #1, R.Cells(a, b),
End If
Next
Next
Close #1
End Sub
Formda bulduğum txt kaydet makrosuyla kml uzantı vererek kaydediyorum. Gayet güzel çalışıyor. Benim sorunum Google Türkçe karakterleri karakter olarak getiriyor. Farklı bir editöre excel sayfasındaki bilgileri kopyalayıp yapıştırdığımda düzgün çıkıyor. Bunun bir çözümü varımdır
forda bulunan ve kullanılan kot
Private Sub CommandButton79_Click()
Sheets("geoogle").Select
Columns("A:B").Select
Open "C:\CEVİR\Text.kml" For Output As #1
Dim R As Range
Set R = Selection
For a = 1 To R.Rows.Count
For b = 1 To R.Columns.Count
If b = R.Columns.Count Then
Print #1, R.Cells(a, b)
Else
Print #1, R.Cells(a, b),
End If
Next
Next
Close #1
End Sub
