XLS с 512 листов до 512 CSV

Question

У меня есть файл XLS, содержащий 512 листов, я хочу, чтобы каждый лист был в отдельном файле CSV, и я не собираюсь делать это вручную.

Есть идеи?

Answer 1

Sub Macro1()
Dim ws As Worksheet

For Each ws In Worksheets
    ws.SaveAs Filename:= "C:\" & ws.Name, FileFormat:=xlCSV, CreateBackup:=False
Next ws

End Sub

Answer 2

Sub SeparateCSV()

    Dim sh As Worksheet
    Dim wb As Workbook

    For Each sh In ThisWorkbook.Worksheets
        sh.Copy
        Set wb = ActiveWorkbook
        wb.SaveAs sh.Name & ".csv", xlCSV
        wb.Close False
    Next sh

End Sub

Answer 3

Сохраните один лист вручную во время записи с помощью устройства записи макросов, затем оберните (и отредактируйте) код VBA в цикле.