Export Excel to Text without ""

Hi,
I have an excel spreadsheet that I would like to convert to a .txt file. When I try this all of my commas are shown as "," I need to remove the double quote. The file is correct if I convert to a .csv file, but I would like it to have the .txt file extention.

In the first line of the attched file you will see something similar to this.
OUCT1447.6POUFPL4/10/2010 0:004/10/2010 1:00
If I save the attached file as text I would like for every tab to insert a comma so that the line would look like:
OUCT,1447.6,,,,,,POU,FPL,4/21/2010 0:00,4/21/2010 1:00
This file should be named C:\ATC\OUCT_TTC which is a text file.

I am trying to creat a macro to take the attached file, which is a tab in a worksheet I have and automatically save it as C:\ATC\OUCT_TTC. Then I have to upload this file to a website which can only read it as a txt.
I hope this is clear, and thanks for the help.
Joe

 

That is exactly what I want, but I have to do this a lot and I am looking for a way to automate it. If it were possible to add a couple lines of code to change the .csv file to .txt my problem would be solved.

 

I figure it out. Hans you were very close but I actually wanted a "," between fields. I tried to explain it but I guess I did not do a great job. The code I used is below.
Thanks again,
Joe
Sub UPDATE_OUCT_TTC()
Sheets("OUCT_TTC").Select
Range("A1:K2688").Select
' Dimension all variables
Dim DestFile As String
Dim FileNum As Integer
Dim ColumnCount As Integer
Dim RowCount As Integer
' Prompt user for destination filename
DestFile = "C:\ATC\OUCT_TTC.txt"
' Obtain next free file handle number
FileNum = FreeFile()
' Turn error checking off
On Error Resume Next
' Attempt to open destination file for output
Open DestFile For Output As #FileNum
' If an error occurs report it and end
If Err <> 0 Then
MsgBox "Cannot open filename " & DestFile
End
End If
' Turn error checking on
On Error GoTo 0
' Loop for each row in selection
For RowCount = 1 To Selection.Rows.Count
' Loop for each column in selection
For ColumnCount = 1 To Selection.Columns.Count
' Write current cell's text to file with quotes
Print #FileNum, Selection.Cells(RowCount, _
ColumnCount).Text;
' Check if cell is in last column
If ColumnCount = Selection.Columns.Count Then
' If so then write a blank line
Print #FileNum,
Else
' Otherwise write a comma
Print #FileNum, ",";
End If
' Start next iteration of ColumnCount loop
Next ColumnCount
' Start next iteration of RowCount loop
Next RowCount
'Close destination file
Close #FileNum
End Sub