excel - 尝试通过 Excel VBA 宏将 Excel 工作表另存为 CSV 时出错

Question

在 Windows 7 上使用 Excel 2010。我有一个 VBA 宏，可将 excel 工作簿 (.xlsm) 的第一个工作表保存到 CSV 文件中。这在过去大多是有效的。最近，我收到下图的错误消息，其中指出“运行时错误'1004':Microsoft Excel 无法打开或保存更多文档，因为没有足够的可用内存或磁盘空间。”

所以有几件事:

我的 Google 搜索中的一个常见建议解决方案是将文件的位置设置为受信任的位置。这没有用。

我有足够的磁盘空间。这不可能是问题。

我不确定“可用内存”究竟是什么意思，但如果它以任何方式指的是 Windows 任务管理器中列出的物理内存数字，那么这个数字就是 75%。最终的 CSV 文件本身往往约为 1,500KB。

我总是能够手动将此工作表另存为 CSV，而不会遇到任何错误消息，但是当我通过此 VBA 宏执行此操作时，我会收到错误消息。

Picture of error message

我的 excel VBA 另存为 CSV 宏:

Sub saveAsCSV()
Application.DisplayAlerts = False

ThisWorkbook.Sheets("Sheet1").Copy
ActiveWorkbook.SaveAs Filename:="dummyfilename.csv", FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close

Application.DisplayAlerts = True
End Sub

Answer 1

试试这个，你不必使用Copy或 Activate .如果您的代码在您想要保存为工作簿的工作簿中，您可以使用 ThisWorkbook .感谢@Variatus 确定对路径的需求。

ThisWorkbook.Sheets("Sheet1").SaveAs ThisWorkbook.Path & "/" & "dummyfilename" & ".csv", FileFormat:=6