Excel VBA macro to save each sheet in a workbook to seperate CSV files.The macro creates seperate CSV file (with sheet name) for each sheet of workbook.
Note: Before you run the below macro, change “C:\test\” in 12th line to your folder path where you want to save the created CSV files for each worksheet.
VBA macro
-
Sub saveSheetsSeperateCSV() Dim sheetsCount sheetsCount = 1 Dim activeSheetName Do If ActiveSheet.Index = Worksheets.Count Then Worksheets(1).Select Else ActiveSheet.Next.Select End If activeSheetName = ActiveSheet.Name ActiveWorkbook.SaveAs Filename:="C:\test\" & activeSheetName & ".csv", _ FileFormat:=xlCSV, CreateBackup:=False sheetsCount = sheetsCount + 1 Loop Until sheetsCount > Worksheets.Count End Sub