Save individual Excel sheets as CSV

Question

I need to parse Excel work sheets. Now I save each individual work sheet as .csv and it works great. I use OpenCSV to parse the files etc. but to create those .csv files are

Answer 1

As a first answer, here is the code used to save a file to CSV:

ActiveWorkbook.SaveAs "C:\Marthinus.csv", fileformat:=6

More info about SaveAs

Answer 2

Very roughly,

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.SaveAs "C:\docs\" & ws.Name & ".csv", xlCSV
Next

This does not include any error coding nor does it make allowances for sheet names that will lead to illegal file names. It all depends on how robust you need the whole thing to be.