Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]

by

I think this is what you want…

Sub SaveWorksheetsAsCsv()

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "H:\test\"

For Each WS In Application.ActiveWorkbook.Worksheets
    WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
'  about overwriting the original file.

End Sub

More Related Contents:

  1. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  2. Want VBA in excel to read very large CSV and create output file of a small subset of the CSV
  3. How to create a separate CSV file from VBA?
  4. Loop through files in a folder using VBA?
  5. How to error handle 1004 Error with WorksheetFunction.VLookup?
  6. How can Excel VBA open file using default application
  7. Create a new sheet for each unique agent and move all data to each sheet
  8. How to compare two entire rows in a sheet
  9. How to make Excel VBA variables available to multiple macros?
  10. Use of symbol # (hash) in VBA Macro
  11. Excel VBA: Can’t get a match, error “Unable to get the Match property of the WorksheetFunction class”
  12. Excel VBA looping through multiple worksheets
  13. When one should use Set [e.g for SpecialCells return value]?
  14. Is there a faster CountIF
  15. Excel VBA How to detect if something was pasted in a Worksheet
  16. Getting error Procedure too large in VBA Macros (Excel)
  17. How to add data validation to a cell using VBA
  18. How to do late binding in VBA?
  19. How to break long string to multiple lines
  20. How to copy a chart from Excel to PowerPoint?
  21. vba paste not working
  22. mac excel vba loop : from list & then export as pdf
  23. Can Advanced Filter criteria be in the VBA rather than a range?
  24. In Excel VBA, what is the way to check if the web page is fully loaded?
  25. Excel Useform: How to hide application but have icon in the taskbar
  26. Reading Web Pages using Excel VBA
  27. Excel VBA: auto click and open file from website
  28. How to have vba execute every 10 minutes?
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment