Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
need assist with save as csv code
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
need assist with save as csv code
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)).C opy 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) wrote in message ups.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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
need assist with save as csv code
Thanks very much Bob,
Works a charm. Cheers paul |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Assist with formula | Excel Worksheet Functions | |||
Please assist... | Excel Worksheet Functions | |||
Can't remember....please assist | Excel Discussion (Misc queries) | |||
Formula Assist | Excel Discussion (Misc queries) | |||
Please assist | Excel Worksheet Functions |