Create text file using VBA from Excel Tabular data

[ganeshinscribe]

Greetings to All,

Hope all are great and fine.

I have a request regard to create text file using vba macro from using Excel sheet data's.

I request you all and help me on this to move forward.

Here is an Example:

EXCEL.png

FileName - Need to create text file in this name.
Line 1 to 6 - need to write line by line in each text file.

Kindly review my consideration and do the needful.

Thanks

[AlphaFrog]

Change the destination save path to suit.

Sub Make_Text_Files()
    Dim i As Long, j As Long, v As Variant, strPath As String, FF As Long
    v = Range("A1").CurrentRegion.Value
    strPath = "C:\Test\"
    FF = FreeFile()
    For i = 2 To UBound(v, 1)
        Open strPath & v(i, 1) For Output As #FF
        For j = 2 To UBound(v, 2)
            Print #FF, v(i, j)
        Next j
        Close #FF
    Next i
    MsgBox UBound(v, 1) - 1 & " files created.", vbInformation, "Write Files Complete"
End Sub

[ganeshinscribe]

Great !!!

It works perfect.