I need to export specific columns to a pipe delimiter file instead of entire worksheet.

I am trying to export columns A,C,E & L from my worksheet into a pipe delimited file. This is what I have so far however it only exports the entire file not the specified columns.

Option Explicit

Sub SaveAsPipeDelimited()
Const DELIMITER As String = "|"
Dim myRecord As Range
Dim myField As Range
Dim nFileNum As Long
Dim sOut As String

nFileNum = FreeFile
Open "Test.txt" For Output As #nFileNum
For Each myRecord In Range("A2,A:A,C:C,E:E,L:L").Select
Range("L1" & Rows.Count).End(xlUp).Row)
With myRecord
For Each myField In Range(.Cells, _
Cells(.Row, Columns.Count).End(xlToLeft))
sOut = sOut & DELIMITER & myField.Text
Next myField
Print #nFileNum, Mid(sOut, 2)
sOut = Empty
sOut = Empty
End With
Next myRecord
Close #nFileNum

End Sub

Try something like

Please Login or Register  to view this content.