Saving Individual Worksheets in .CSV format

[MikeCitizens]

Hello,

We have an excel spreadsheet with several worksheet tabs. I need a macro that we can save individual worksheets to .cvs format

All of my attempts have failed. Im very new at using vb and macros.

This is what I have

Sub SPOT_CSV ()
Windows("AMRATES&quot.Activate
Worksheets ("RATEFEED&quot.Activate
SaveAs Filename:="T:\Spot.CSV", FileFormat:=xlCSV
End Sub


This obviously doesn't work.

Can Anyone help me with this? I would greatly appreciate it.

Mike

 

[JeffTullin]

This bit of code will save all the sheets individually.
It uses the sheet name as part of the filename, so you may want to play about a little:


's will hold a reference to each sheet in turn
Dim s As Variant

For Each s In Workbooks(1).Sheets
'MsgBox s.Name
s.Select ' makes the sheet active, so you can see
'it happening
ActiveWorkbook.SaveAs FileName:= _
"C:\" & s.Name & ".csv", FileFormat:=xlCSV _
, CreateBackup:=False
Next





This version does it without switching the sheets visibly:

Dim s As Variant
For Each s In Workbooks(1).Sheets

s.SaveAs FileName:= _
"C:\" & s.Name & ".csv", FileFormat:=xlCSV _
, CreateBackup:=False
Next