VBA 将工作表导出为 csv，而不会失去当前工作簿的焦点答案

【问题标题】：VBA Export sheet as a csv without losing focus of my current workbookVBA 将工作表导出为 csv，而不会失去当前工作簿的焦点
【发布时间】：2015-04-22 04:57:02
【问题描述】：

我想将工作表以 csv 格式导出到新目录，但使用工作表的 SaveAs 方法不起作用。

当我使用 SaveAs 时，我“失去焦点”当前工作簿并且当前工作簿现在是 csv 文件（在新目录中）。我想导出工作表并将焦点放在当前工作簿上。

【问题讨论】：

保存你的csv后，你不能“激活”之前的工作簿吗？
如何存储以前的工作簿？我尝试添加：dim myworkbook as workbook set myworkbook = activeworkbook wsSheet.saveas "dir\aa", xlCSV myworkbook.activate 但是最后一行什么都不做

标签： excel vba csv

【解决方案1】：

这对你有用

Sub SaveCSV()
    Sheet1.Copy ' Change to whatever sheet you want to copy
    ActiveWorkbook.SaveAs "MyFileCSV.csv", xlCSV
    ActiveWorkbook.Close False
    ThisWorkbook.Activate
End Sub

【讨论】：

宏必须从您计划保留的工作簿中运行。 Sheet1.Copy 会将工作表复制到新工作簿，并激活目标工作簿、保存、关闭它，然后重新激活运行宏的工作簿（ThisWorkbook）
我还编辑了代码，因此在关闭之前不会再次提示您保存工作簿