saving to pipe delimited textfile

[rhammers]

I have a typical 10 column spreadsheet that I need to save as a pipe delimited textfile. In addition I can't have the double quote characters around the fields in the textfile. I've written the code to get it saved as a textfile but it saves it as a csv with quotes. Anyone have any samples that may help with this?
thanks!

 

[bryanbayfield]

try this code, I think I've interpreted "Pipe Delimited" correctly.

Dim write_st As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
to_file = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
Open to_file For Output As #1
For Each rw In ActiveSheet.UsedRange.Rows
    write_st = ""
    For i = 1 To 10
        Select Case i
            Case Is < 10
                write_st = write_st & rw.Cells(i) & &quot;|&quot;
            Case Else
                write_st = write_st & rw.Cells(i)
            End Select
        Next
    Print #1, write_st
    Next
Close
End Sub

Any use? SuperBry!