need assist with save as csv code

[husky101@yahoo.com]

I have this following code
What I require is at the activeCell.SpecialCells(xlLastCell)
for it to add the next blank row to the selection.
I am having some difficulty with this.
any assistance will be greatly appreciated.
Paul

Sub SaveAsCSV()
'This macro will SAVE AS to C:\Trees folder, which must exist before
macro runs

'
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:="C:\Trees\" & "UP" & Format(Now,
"yymmddhhmm") & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False


End Sub

[Leith Ross]

Hello Husky101,

Unless the system you are port the csv files varies from Excel's csv format, why not have Excel do the file conversion by choosing .csv when save the file. You could save yourself a lot of time and trouble.

Hope this helps,
Leith Ross

[Bob Phillips]

Husky,

Please try this

Sub SaveAsCSV()
'This macro will SAVE AS to C:\Trees folder, which must exist before
macro runs

'
Range("A2").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell).Offset(1,0)).Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:="C:\Trees\" & "UP" & Format(Now,
"yymmddhhmm") & ".csv", FileFormat:=xlCSV, _
CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False


End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


<husky101@yahoo.com> wrote in message
news:1106114416.244659.10000@c13g2000cwb.googlegroups.com...
> I have this following code
> What I require is at the activeCell.SpecialCells(xlLastCell)
> for it to add the next blank row to the selection.
> I am having some difficulty with this.
> any assistance will be greatly appreciated.
> Paul
>
> Sub SaveAsCSV()
> 'This macro will SAVE AS to C:\Trees folder, which must exist before
> macro runs
>
> '
> Range("A2").Select
> Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
> Selection.Copy
> Workbooks.Add
> ActiveSheet.Paste
> Application.CutCopyMode = False
>
> ActiveWorkbook.SaveAs Filename:="C:\Trees\" & "UP" & Format(Now,
> "yymmddhhmm") & ".csv", FileFormat:=xlCSV, _
> CreateBackup:=False
> ActiveWorkbook.Close SaveChanges:=False
>
>
> End Sub
>

[husky101@yahoo.com]

Thanks very much Bob,
Works a charm.

Cheers paul