Parse Functions‎ > ‎

Sheets to CSVs

SPECIFICATIONS:
  1. Save path defined by user
  2. Each sheet is saved to its own CSV file using the sheet name as the file name

CODE

Sub SheetsToCSV()
'Jerry Beaucaire (1/25/2010), updated (8/15/2015)
'Save each sheet to an individual CSV file

Dim ws As Worksheet, fPATH As String

Application.ScreenUpdating = False      'speed up macro
Application.DisplayAlerts = False       'automatically overwrite old files
fPATH = "C:\2015\CSV\"                  'path to save into, remember the final \ in this string

    For Each ws In Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs Filename:=fPATH & ActiveSheet.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
        ActiveWorkbook.Close
    Next ws

Application.ScreenUpdating = True
End Sub
























Nothing says "thanks" like a steak dinner!
PayPal - The safer, easier way to pay online!
Comments