Makro ile txt dosyasını açıp farklı kaydetme UTF-8

[paracetamooll]

Merhabalar,

Excelden bir listeyi txt dosyası olarak kaydediyorum. Ancak ANSI olarak kaydediyor ama bana UTF-8 olarak kaydedilmiş olması gerekiyor.

"C:\deneme.txt" yolunda bir notepad dosyam var. Bu dosyayı excelden bir makro yazarak "ANSI"den "UTF-8"e çeviren kodu yazmamda yardımcı olur musunuz?

Teşekkürler

 

[Murat OSMA]

Örnek kodlar;

[FONT="Trebuchet MS"]DefStr D, I, T, Y:DefObj E
Sub Emre()
    Set evn = CreateObject("ADODB.Stream")
    yolu = "[COLOR="red"]C:\Users\Emre\Documents\iMacros\Macros\[/COLOR]"
    dosya_adı = "[COLOR="red"]evn[/COLOR]"
    txt_uzantısı = "[COLOR="red"].txt[/COLOR]"
    dosyam = yolu & dosya_adı & txt_uzantısı
    With evn
        .Charset = "[COLOR="Red"]UTF-8[/COLOR]"
        .Type = [COLOR="red"]2[/COLOR]
        .Open
        yaz = [COLOR="red"]Cells(2, 3).Value[/COLOR]
        .WriteText yaz, 1
        .SaveToFile dosyam, 2
        .Close
    End With
    Set evn = Nothing: yaz = "": dosya_adı = "": dosyam = "":txt_uzantısı = ""
End Sub[/FONT]

 

[paracetamooll]

Murat bey ilginize teşekkürler yalnız; verdiğiniz kod ile excel sayfamın "C2" hücresini yazıyor. "C" sütununun tamamını nasıl yazdırırız.


"yaz = Cells(2, 3).Value" Sanırım buradan kaynaklanıyor ama bir türlü sütunu yazdıramadım.

 

[Murat OSMA]

Rica ederim.
Yazmamda yardımci olur musunuz dediğiniz için az cok VBA bilginizin olduğunu ve şablon olarak bu kodlari kullanıp gerekli düzeltmeleri yapabileceginizi düşünmustum.

Şu an cepten yaziyorum. Tarif etsem de anlamayabilirsiniz. O yüzden sitede veya Google'da, txt dosyasina veri yazma şeklinde aratirsaniz; gereken kodlara ulaşabilirsiniz.

 

[paracetamooll]

Merhabalar tekrar,

Bir for döngüsü yazıp sütunu yazdırayım dedim ama başaramadım. Netten de araştırdım ama bildiğim bir iki şey vardı vba üzerine onlarda birbirine karıştı

"C" sütununu yazdıracak kodları paylaşabilir misiniz ?

 

[Murat OSMA]

Şu iki satırı silin;

[FONT="Trebuchet MS"]yaz = Cells(2, 3).Value
.WriteText yaz, 1[/FONT]

onların yerine bu satırları yazın;

[FONT="Trebuchet MS"]For a = 1 To Range("C65536").End(3).Row
    .WriteText Cells(a, "C"), 1
Next a[/FONT]

 

[paracetamooll]

Çok teşekkürler, sonuç harika.

 

[Murat OSMA]

Rica ederim, iyi akşamlar.

 

[mrc41353]

Merhabalar , acaba indirilen bir pdf dosyasını makro ileı açtırıp a1 hücresindeki yeni değer ile yeni isim vererek farklı kaydetme ve eski dosyayı silmek mümkün müdür, mümkün ise kodları konusunda yardımcı olur musunuz.
ilginiz için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

@mrc41353,

Sorunuzun bu konuyla olan bağlantısı nedir?

 

[mrc41353]

@mrc41353,

Sorunuzun bu konuyla olan bağlantısı nedir?

form içerisinde yaptığım aramada soruma en yakın ilgili konu olarak bunu gördüm , yanlış yere sorduysam kusura bakmayın lütfen en doğru yere yönlendirirseniz minnettar olacağım iyi günler...

 

[ÖmerFaruk]

En kötü tercih...sorunuza yeni bir başlık açmaktır.
Çözümünüzü Formüllerle istiyorsanız o bölümde, makrolarla istiyorsanız o bölümde başlık açabilirsiniz.
Sizin sorunuz Makrolar bölümünde olmalı.