I have the following macro to sort and date stamp my data and export it as
text. My query is how to export it as csv. Anyone have any suggestions?

Many thanks

TP

Dim campaign As String
campaign = Range("b3")

Range("A1:DB524").Select
Selection.Copy
Sheets("export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Range("A1:DB524").Select
Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Range("e3") = ""


Dim r As Range, c As Range
Dim sTemp As String

Open "Booking " & campaign & " " & Format(Date, "dd-mm-yy") + "_" +
Format(Time, "hh-mm-ss") & ".txt" For Output As #1




For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c

'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1

Range("A1:DB524").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Main").Select
Range("A1").Select



End Sub

Instead of opening a text file and outputting one line at a time, save it as
CSV

ActiveWorkbook.SaveAs Filename:="C:\myDir\myFile", FileFormat:=xlCSV


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"teepee" wrote in message
...
I have the following macro to sort and date stamp my data and export it as
text. My query is how to export it as csv. Anyone have any suggestions?

Many thanks

TP

Dim campaign As String
campaign = Range("b3")

Range("A1:DB524").Select
Selection.Copy
Sheets("export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Range("A1:DB524").Select
Cells.Replace What:="0", Replacement:="", LookAt:=xlPart, SearchOrder:=
_
xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Range("e3") = ""


Dim r As Range, c As Range
Dim sTemp As String

Open "Booking " & campaign & " " & Format(Date, "dd-mm-yy") + "_" +
Format(Time, "hh-mm-ss") & ".txt" For Output As #1




For Each r In Selection.Rows
sTemp = ""
For Each c In r.Cells
sTemp = sTemp & c.Text & Chr(9)
Next c

'Get rid of trailing tabs
While Right(sTemp, 1) = Chr(9)
sTemp = Left(sTemp, Len(sTemp) - 1)
Wend
Print #1, sTemp
Next r
Close #1

Range("A1:DB524").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
Sheets("Main").Select
Range("A1").Select



End Sub

"Bob Phillips" wrote in message
...
Instead of opening a text file and outputting one line at a time, save it
as CSV

ActiveWorkbook.SaveAs Filename:="C:\myDir\myFile", FileFormat:=xlCSV

Yes but then it wouldn't be time stamped and I couldn't carry on working in
the original file

"Bob Phillips" wrote in message
...
Instead of opening a text file and outputting one line at a time, save it
as CSV

ActiveWorkbook.SaveAs Filename:="C:\myDir\myFile", FileFormat:=xlCSV

Sorry I'm talking rubbish. Yes that's much better. Thanks for the reality
check 8-)