将单张工作表另存为 CSV 文件答案

【问题标题】：Saving Single Sheet as CSV File将单张工作表另存为 CSV 文件
【发布时间】：2017-07-03 19:57:51
【问题描述】：

我是 VBA 的新手，我试图对这个主题进行一些研究，但没有运气。我有一个包含多张工作表的工作簿，但我只想将工作表 6 作为 CSV 文件保存到某个位置而不打开新文件。我将如何使用链接到按钮之类的东西的 VBA 来解决这个问题？谢谢

【问题讨论】：

“不打开新文件”是什么意思？您可以使用Sheet6.SaveAs "foo.csv", xlCSV，但这将成为您当前编辑的文档，旧文档将关闭。你想保持原来的工作簿打开不是吗？
是的，我正在尝试将一张工作表另存为 CSV 文件以上传到数据库。但我不想关闭原始工作簿。我不希望将书 2 作为 CSV 文件打开。我希望它以相同的名称保存，但有一个 - CSV
This 正在应用于多张纸。你可以只用一张纸。

【解决方案1】：

创建一个按钮并将其链接到此宏：

Sub Sheet6ToCSV()
  Application.ScreenUpdating = False:  Application.EnableEvents = False:  Application.DisplayAlerts = False
  On Error GoTo Cleanup

  Dim fold As String: fold = "C:\SO\"
  Dim fName  As String: fName = "MySheet6"

  Worksheets("Sheet6").Copy
  With ActiveWorkbook
    .SaveAs fold & fName
    .Close False
  End With

Cleanup:
  Application.ScreenUpdating = True:  Application.EnableEvents = True: Application.DisplayAlerts = True
End Sub

【讨论】：