Exceldeki Verileri Notepad Dosyasının Içine Yazma

Sub Test()
    
    Dim textFile As String
    Dim NoA As Integer, i As Integer
 
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    textFile = ThisWorkbook.Path & Application.PathSeparator & "Test.txt"
 
    Open textFile For Output As #1
    For i = 2 To NoA
        tempStr = "{" & vbCrLf
        tempStr = tempStr & """İl spor merkezleri kayıt girişi"": """ & Range("A" & i) & """" & "," & vbCrLf
        tempStr = tempStr & """Bugünün tarihi otomatikman yazması A.C. "": """ & Range("A" & i) & """" & "," & vbCrLf
        tempStr = tempStr & """Tarama yapılan sayısı"": """ & Range("A" & i) & """" & "," & vbCrLf
        tempStr = tempStr & """Sporcu kart girişi"": """ & Range("B" & i) & """" & "," & vbCrLf
        tempStr = tempStr & "}" & vbCrLf
        Print #1, tempStr
    Next
    Close #1
End Sub


:
: