Export Multiple Excel Sheets To CSV using VBA
To export multiple Excel sheets to CSV files using VBA, you can use the following code. This code will save each sheet in the active workbook as a separate CSV file in the same folder where the Excel file is located:
Sub ExportSheetsToCSV() Dim ws As Worksheet Dim FilePath As String Dim FileName As String ' Get the folder path where the Excel file is located FilePath = ThisWorkbook.Path ' Loop through all worksheets in the active workbook For Each ws In ThisWorkbook.Worksheets ' Generate a file name based on the sheet name FileName = FilePath & "\" & ws.Name & ".csv" ' Save the sheet as CSV ws.SaveAs FileName:=FileName, FileFormat:=xlCSV Next ws ' Display a message when done MsgBox "Sheets have been exported to CSV files in " & FilePath, vbInformation End Sub
Md Obydullah is a software engineer and full stack developer specialist at Laravel, Django, Vue.js, Node.js, Android, Linux Server, and Ethichal Hacking.