Macro to copy all worksheets into CSV files

[cidfidou]

Hi Excel Masters,

I am writing a new thread to make sure this is clear.

As i am useless in VBA, I am hoping that someone will write or copy an existing code to do the following :

- Save all worksheets of the current workbook into CSV files under the name of each worksheets
- the cherry on top of the cake would be a pop up window letting the user choose the location where to save the csv files (only once for all the worksheets)

As per usual, thanks in advance

 

[Pascal]

Hi,

This will stop the prompts (DisplayAlerts Property): -

Application.DisplayAlerts = False

For Each objSheet In wbSource.Sheets
 objSheet.Copy
 Set wbDest = ActiveWorkbook
 wbDest.SaveAs strSavePath & "/" & objSheet.Name, xlCSV
 wbDest.Close
 Next

Application.DisplayAlerts = True

Regards

 

[cidfidou]

Pascal,

You made my day and even my week end...