Soru Excelden Txt Dosyasına Veri Aktarma

[Seceren]

Excelden Txt Dosyasına Veri Aktarma.Türkçe harf problemleri nasıl aşılır?
Sadece " A " sütununda verilerimizin bulunduğunu var sayarak.
C Ç G Ğ S Ş O Ö İ I GİBİ…

Ekte Access ile yapılıyor. Daha basit, Makrolar ile veya başka bir yolla yapılabilir mi?

 

[Haluk]

Sub Test()
    'Haluk - 09/01/2019
    'E-Posta: sa4truss@gmail.com
    '
    Dim myFile As String, adoStream As Object, NoA As Long, i As Long
    Const adSaveCreateOverWrite = 2
    
    myFile = ThisWorkbook.Path & Application.PathSeparator & "Deneme.txt"
    
    Set adoStream = CreateObject("ADODB.Stream")
    adoStream.Charset = "utf-8"
    adoStream.Type = 2
    adoStream.Open
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To NoA
        adoStream.WriteText Cells(i, 1) & vbCrLf
    Next
    
    adoStream.SaveToFile myFile, adSaveCreateOverWrite
    adoStream.Close
    
    Set adoStream = Nothing
End Sub

.

 

[Seceren]

adoStream.WriteText Cells(i, 1) & vbCrLf

Hatası verdi.

 

[Seceren]

Deneme2 dosyasında çalışıyor, asıl dosyada (biraz büyük) hata verdi..