XLS с 512 листами до 512 CSV

Question

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

Любая идея?

Answer 1

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 2

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

Answer 3

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