小编jon*_*jon的帖子

我有一个与这篇文章非常相似的问题： Save individual Excel sheet as CSV

我的问题的不同之处在于我只需要保存一张纸 这是那个帖子的答案

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.SaveAs "C:\docs\" & ws.Name & ".csv", xlCSV
Next

此代码将每个工作表保存到特定文件夹并将文件命名为与工作表相同的名称。我看到的2个问题：

1- 您当前正在处理的工作簿成为代码保存的最后一个工作表。如果您想继续处理您的工作簿，您必须打开原始文件。如果将新工作簿与正在处理的工作簿分开打开和保存，效果会更好。

2-它保存每个工作表。我只需要保存一个特定的工作表，即Sheet2

我发现了其他代码，但我对 VBA 非常陌生，只知道如何创建宏，将代码复制并粘贴到其中。运行代码时出现错误。

Sub test()

Application.DisplayAlerts = False

ThisWorkbook.Sheets(strSourceSheet).Copy
ActiveWorkbook.SaveAs Filename:=strFullname, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

希望我能朝着正确的方向前进。谢谢！