vba - Excel:将工作表导出为 CSV 文件的宏，无需离开当前的 Excel 工作表

Question

这里有很多关于创建宏以将工作表保存为 CSV 文件的问题。所有答案都使用另存为，例如 this one来自 super 用户。他们基本上说创建一个像这样的 VBA 函数:

Sub SaveAsCSV()
    ActiveWorkbook.SaveAs FileFormat:=clCSV, CreateBackup:=False
End Sub

这是一个很好的答案，但我想要导出而不是另存为。当执行 SaveAs 时，它给我带来了两个烦恼:

• 我当前的工作文件变成了 CSV 文件。我想继续使用原始 .xlsm 文件，但将当前工作表的内容导出到同名的 CSV 文件中。
• 出现一个对话框，要求我确认是否要重写 CSV 文件。

是否可以将当前工作表导出为文件，但继续在原始文件中工作？

Answer 1

@NathanClement 有点快。然而，这里是完整的代码(稍微复杂一些):

Option Explicit

Public Sub ExportWorksheetAndSaveAsCSV()

Dim wbkExport As Workbook
Dim shtToExport As Worksheet

Set shtToExport = ThisWorkbook.Worksheets("Sheet1")     'Sheet to export as CSV
Set wbkExport = Application.Workbooks.Add
shtToExport.Copy Before:=wbkExport.Worksheets(wbkExport.Worksheets.Count)
Application.DisplayAlerts = False                       'Possibly overwrite without asking
wbkExport.SaveAs Filename:="C:\tmp\test.csv", FileFormat:=xlCSV
Application.DisplayAlerts = True
wbkExport.Close SaveChanges:=False

End Sub