Txt kodunu değiştirme

[ozuberk]

Merhaba aşağıdaki kod ile oluşturduğum txt dosyasının kodlaması: ANSI olarak kaydediyor. Aşağıdaki koda ek yaparak nasıl kodlamasını UTF-8 olarak değiştirebilirim.


Sub Rapor_CSV()
Application.ScreenUpdating = False
Sheets("CSV").Select
satir = 1001
sayfa = WorksheetFunction.Ceiling((Range("A65536").End(3).Row - 1) / satir, 1)
ilk = 2
son = satir + 1
For i = 1 To sayfa
Open ThisWorkbook.Path & "/CSV Rapor" & i & ".txt" For Output As #1
For e = ilk To son
Print #1, Range("P" & e)
Next
Close #1
ilk = son + 1
son = son + satir
Next
End Sub

 

[Haluk]

Örnek;

Sub Test()
    Dim objStream As Object, xRng As Range
    Const adSaveCreateOverWrite = 2
   
    Set objStream = CreateObject("ADODB.Stream")
    objStream.Type = 2
    objStream.Charset = "UTF-8"
    objStream.Open

    For Each xRng In Range("A1:A100")
        objStream.WriteText xRng & vbCrLf
    Next

    objStream.SaveToFile ThisWorkbook.Path & "\myCsv.txt", adSaveCreateOverWrite
   
    objStream.Close
    Set objStream = Nothing
End Sub

.

 

[ozuberk]

Haluk bey cevabınız için teşekkür ederim. Kolay gelsin.