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" <nomail@nomail.com> wrote in message
news:481488cc$1@newsgate.x-privat.org...
>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" <bob.ngs@somewhere.com> wrote in message
news:%23cm30uHqIHA.552@TK2MSFTNGP06.phx.gbl...
> 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" <bob.ngs@somewhere.com> wrote in message
news:%23cm30uHqIHA.552@TK2MSFTNGP06.phx.gbl...
> 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-)