Saving a sheet in a workbook as .csv but not changing workbook name

Hi everyone,

Thanks for your help on my previous question, it has led me to another problem:

I have a workbook called work.xls with three sheets, one of which is called data.

I want to save a copy of data sheet as a csv file called data.csv. This is easily done using the below code. My problem is I do not want the name of the current sheet to change when I have done this. In other words I don't want to save the current workbook as data.csv, but just the sheet "data". The workbook should remain as work.xls.

This is the code that doesnt work properly:

Sheets("Data").Select
Range("A1").Select

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Alex\Desktop\data.csv", FileFormat:= _
xlCSV, CreateBackup:=False

Sheets("Data").Select
Sheets("Data").Copy


ActiveWorkbook.SaveAs Filename:= _
"C:\Data.csv", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

ActiveWindow.Close

Hello Kaak,

Thank you very much for your considered reply - funny enough your method is the exact same way I am doing it. My issue is that I am saving the data.csv every 20 seconds for 8 hours a day (the process runs on a timer to ensure data.csv is always up to date). In this sense the method seems rather inelegant, as you are having to create a new workbook each time etc and the temporary workbook number is Book1 etc... by the end of the day it will be book1500 etc...

This isnt a big deal but I am surprised you cannot use savecopyas function to save a sheet as a csv file!

Is my understanding correct?

Alex

If the workbook is a CSV, then savecopyAs saves a copy as CSV.

--
Regards,
Tom Ogilvy

"gloryofbach" <[email protected]>
wrote in message
news:[email protected]...
>
> Hello Kaak,
>
> Thank you very much for your considered reply - funny enough your
> method is the exact same way I am doing it. My issue is that I am
> saving the data.csv every 20 seconds for 8 hours a day (the process
> runs on a timer to ensure data.csv is always up to date). In this sense
> the method seems rather inelegant, as you are having to create a new
> workbook each time etc and the temporary workbook number is Book1
> etc... by the end of the day it will be book1500 etc...
>
> This isnt a big deal but I am surprised you cannot use savecopyas
> function to save a sheet as a csv file!
>
> Is my understanding correct?
>
> Alex
>
>
> --
> gloryofbach
> ------------------------------------------------------------------------
> gloryofbach's Profile:
http://www.excelforum.com/member.php...o&userid=28322
> View this thread: http://www.excelforum.com/showthread...hreadid=480090
>