Create a Macro and Button to export a single column as .txt file

[abcdefghi]

I want to export all contents in column E as a .txt file and have the filename from a value of a single cell example (H1).

I'm not familiar macro so any code will really help. The value in column E is actually just a concatenation of the values in A to D with a "|" in the middle so a code to export column E or just to combine columns A to D with a | separator should work

 

[veyselemre]

Try this..

Sub test()
    Dim fName$, i&
    With Sheets(1)
        fName = ThisWorkbook.Path & "\" & .Range("H1").Value
        Open fName For Output As #1

        For i = 1 To .Cells(Rows.Count, 1).End(3).Row
            t$ = .Cells(i, 1).Value
            For ii = 2 To 5
                t$ = t$ & "|" & .Cells(i, ii).Value
            Next ii
            Print #1, t$
        Next i
        Close #1
    End With
End Sub

 

[abcdefghi]

Which should I edit here? I replaced "\" with the path where I wanted to save the output.

After trying to run the macro, it said "Bad File Name or Number"

I just want to export Column E into a .txt file and have the file name of that with whatever value is in H1

 

[veyselemre]

This macro does exactly what you want. It creates a text file in the folder where the excel file is located, according to the name in H1.

What exactly does it say in H1?

By the way

For ii = 2 To 4

fix it.