Breaking News: Grepper is joining You.com. Read the official announcement!

how to change xlsx to csv for many sheet

irhas fatkhullah answered on June 10, 2022 Popularity 6/10 Helpfulness 4/10

answer how to change xlsx to csv for many sheet

how to change xlsx to csv for many sheet

Comment

Sub ExportSheetsToCSV()
                    Dim xWs As Worksheet
                    Dim xcsvFile As String
                    For Each xWs In Application.ActiveWorkbook.Worksheets
                        xWs.Copy
                        xcsvFile = CurDir & "\" & xWs.Name & ".csv"
                        Application.ActiveWorkbook.SaveAs Filename:=xcsvFile, _
                        FileFormat:=xlCSV, CreateBackup:=False
                        Application.ActiveWorkbook.Saved = True
                       Application.ActiveWorkbook.Close
                   Next
               End Sub

Popularity 6/10 Helpfulness 4/10 Language whatever

Source: store.chipkin.com

Tags: whatever xlsx

Link to this answer
Share Copy Link