saving as .CSV file

[Bob T.]

I would like to save a multi-worksheet spreadsheet
to .CSV format. It appears that I have to save each
worksheet as csv format individually. Is there a way to
do it all at once?

Thanks!

 

[Ron de Bruin]

Hi Bob

If you want to use a macro it is easier but not all at once.
If you want a macro example post back

 

[Dave Peterson]

And if you don't want to wait <bg>:

This might give you something to start with:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim newWks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.Copy 'copies to a new workbook
With ActiveSheet
.Parent.SaveAs Filename:="C:\WINDOWS\TEMP\" & .Name, _
FileFormat:=xlCSV
.Parent.Close savechanges:=False
End With
Next wks

End Sub

(adjust the path)


If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

 

[Bob T.]

Thanks to both of you for your replies. I'll give the
macro a shot.