EXCELからテキストに出力する！

Sub TXT_OUTPUT()

    fnsave = "d:\work\出力結果.txt" 'アウトプットの場所
    numff = FreeFile
    Open fnsave For Output As #numff
    temp = ""
    For i = 1 To 10
'各セルをカンマ、改行文字を間に挟み、一つの文字列として連結
        temp = temp & Cells(i, 1) & ","  & Cells(i, 1) & char(13) & char(10)
    Next i
'文字列をファイルに出力する。
    Print #numff, temp
    Close #numff

End Sub