512 张 XLS 到 512 个 CSV

【问题标题】：XLS with 512 sheets to 512 CSVs512 张 XLS 到 512 个 CSV
【发布时间】：2011-01-25 23:30:09
【问题描述】：

我有一个包含 512 张工作表的 XLS 文件，我想将每张工作表放在单独的 CSV 文件中，我不打算手动执行此操作。

有什么想法吗？

【问题讨论】：

【解决方案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

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案3】：

在使用宏记录器记录时手动保存一张工作表，然后将 VBA 代码包装（和编辑）在一个循环中。

【讨论】：