Export rows to .txt

[jessiehayden]

Hello,

Using Microsoft Excel Pro 2019 on Windows 10.

I have a sheet with two columns: code and line. I need to export this sheet into .txt files, as follows:
- all rows that have the same value in the 'code' column need to be included in the same .txt file, in the order that they appear in the sheet
- each .txt file has to be named after its corresponding unique 'code'
- each 'line' value needs to be its own paragraph in the .txt file

This is what my Excel sheet looks like:

This is how I need the files to turn out like in the output folder:

And this is an example of what the final .txt file should look like:

Is there a straightforward way to do this?

Thanks in advance for your time and help!

 

[lrobbo314]

How about this?

Sub toText()
Dim SD As Object:       Set SD = CreateObject("Scripting.Dictionary")
Dim FSO As Object:      Set FSO = CreateObject("Scripting.FileSystemObject")
Dim AR() As Variant:    AR = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value2
Dim Path As String:     Path = "C:\YourPathHere\"

For i = 1 To UBound(AR)
    SD(AR(i, 1)) = SD(AR(i, 1)) & AR(i, 2) & vbLf
Next i

For Each Item In SD
    With FSO.CreateTextFile(Path & Item & ".txt")
        .WriteLine SD(Item)
        .Close
    End With
Next Item

End Sub

 

[jessiehayden]

How about this?

Sub toText()
Dim SD As Object:       Set SD = CreateObject("Scripting.Dictionary")
Dim FSO As Object:      Set FSO = CreateObject("Scripting.FileSystemObject")
Dim AR() As Variant:    AR = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value2
Dim Path As String:     Path = "C:\YourPathHere\"

For i = 1 To UBound(AR)
    SD(AR(i, 1)) = SD(AR(i, 1)) & AR(i, 2) & vbLf
Next i

For Each Item In SD
    With FSO.CreateTextFile(Path & Item & ".txt")
        .WriteLine SD(Item)
        .Close
    End With
Next Item

End Sub

Thank you so much, that worked perfectly!