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

Asked

Viewed 63 times

0

I intend to store multiple sheets on the desktop by their name. And that they are converted from . xlsx to . csv (separated by comma).

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

Browser other questions tagged

You are not signed in. Login or sign up in order to post.