How to convert multiple .XLSL sheets to .CSV from a book and export it individually to the desktop?

0

I want to save multiple sheets by the name itself. And that are converted from .xlsx to .csv (separated by commas).

    
asked by anonymous 31.05.2017 / 21:59

1 answer

0

RESOLVED:

Sub guardar()
Dim folha As Worksheet

For Each folha In ActiveWorkbook.Worksheets
folha.SaveAs "C:\Users\" & Environ("Username") & "\Desktop\CSV\" & folha.Name & ".csv", xlCSV

Next
End Sub
    
01.06.2017 / 11:40