Export each Row to unique Txt file

[lmart121]

I have a 25000 rows of data in three columns. I need to export each row of data to a unique text file. The text file would look like this:

datafromA1
datafromB1
datafromC1

The file name would need to be datafromA1. I would like to automate the process, and I do not know where to begin. I have always read good advice here but was unable to find something like this task. Thank you in advance.

 

[Tom Urtis]

Requires that each entry in column A is unique because you said the file name should be the value in column A of each respective row. The odds of a duplicate value are pretty good with 25000 records, unless you've already made sure there are no duplicates. Easy to amend the macro if there are dupes so post back if that's an issue.

Based on what you said you want to do and how your data is laid out, this will do what you want:

Sub TextExport()
Dim strPath$, x&, i%, txt$
strPath = ThisWorkbook.Path & "\"
For x = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Open strPath & Cells(x, 1).Value & ".txt" For Output As #1
txt = ""
For i = 1 To 3
txt = txt & Cells(x, i).Value & vbTab
Next i
Print #1, Left(txt, Len(txt) - 1)
Close #1
Next x
MsgBox "The text files can be found in " & strPath & ".", 64, "Complete"
End Sub

 

[lmart121]

Thank You for the macro. I thankfully do not have any duplicates. I do have a question the output is:

DataA1 DataB1 DataC1

is it possible to have the txt file formatted as:
DataA1
DataB1
DataC1

Thanks again !

 

[Tom Urtis]

Halfway down the macro I posted is this line:
txt = txt & Cells(x, i).Value & vbTab

Substitute vbTab with vbNewLine


So now the line will look like this

txt = txt & Cells(x, i).Value & vbNewLine



Everything else about the macro will remain the same, just make that one small change.