XLS，512张到512张CSV

Question

我有一个包含512张的XLS文件，我希望将每张工作表放在单独的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代码。