oydemir
Altın Üye
- Katılım
- 22 Eylül 2007
- Mesajlar
- 278
- Excel Vers. ve Dili
- Türkçe 2016
- Altın Üyelik Bitiş Tarihi
- 07-12-2026
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
