带有512到512 CSV的XLS

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

 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 3

用macroslogging器手动保存一张纸，然后在一个循环中打包（和编辑）VBA代码。