excel - 尝试将 XLSM 保存为 CSV 时出现 "method saveas of object _workbook failed"错误

Question

我正在尝试将启用宏的 Excel 工作簿另存为 csv 文件，覆盖旧的文件(下面我必须更改文件夹和工作表的名称，但这似乎不是问题) .

 Sub SaveWorksheetsAsCsv()

 Dim SaveToDirectory As String
 Dim CurrentWorkbook As String
 Dim CurrentFormat As Long

 CurrentWorkbook = ThisWorkbook.FullName
 CurrentFormat = ThisWorkbook.FileFormat
 SaveToDirectory = "\MyFolder\"

 Application.DisplayAlerts = False
 Application.AlertBeforeOverwriting = False

 Sheets("My_Sheet").Copy

 ActiveWorkbook.SaveAs Filename:=SaveToDirectory & "My_Sheet" & ".csv", FileFormat:=xlCSV
 ActiveWorkbook.Close SaveChanges:=False
 ThisWorkbook.Activate

 ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat

 Application.DisplayAlerts = True
 Application.AlertBeforeOverwriting = True

 End Sub

有时会失败

Runtime Error 1004: method saveas of object _workbook failed**)

调试器指出:

 ActiveWorkbook.SaveAs Filename:=SaveToDirectory & "My_Sheet" & ".csv", FileFormat:=xlCSV

我用谷歌搜索，尝试过的一些解决方案是:

• 指定目录是一个字符串
• 避免在文件名或文件夹中使用任何特殊字符(参见 here )
• 将工作表复制粘贴为值，然后将其另存为 .csv(参见 here )
• 使用 .csv 代码号指定文件格式(参见 here)
• 禁用/重新启用部分提醒
• 在 ActiveWorkbook.SaveAs 行中添加其他字段，涉及密码、创建备份等

不过，它可能会连续正确运行最多 50-60 次，然后在某个时候再次失败。

任何建议，除了停止使用 VBA/Excel 来完成此任务，这很快就会发生，但我现在不能。

编辑:感谢德古斯塔夫的建议解决了。我只对 Degustaf 的建议代码做了两处更改:

• ThisWorkbook.Sheets 而不是 CurrentWorkbook.Sheets
• FileFormat:=6 而不是 FileFormat:=xlCSV (显然更强大不同版本的 Excel)

<小时/>

Sub SaveWorksheetsAsCsv()

Dim SaveToDirectory As String
Dim CurrentWorkbook As String
Dim CurrentFormat As Long
Dim TempWB As Workbook

Set TempWB = Workbooks.Add

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
SaveToDirectory = "\\MyFolder\"

Application.DisplayAlerts = False
Application.AlertBeforeOverwriting = False

ThisWorkbook.Sheets("My_Sheet").Copy Before:=TempWB.Sheets(1)
ThisWorkbook.Sheets("My_Sheet").SaveAs Filename:=SaveToDirectory & "My_Sheet" & ".csv", FileFormat:=6
TempWB.Close SaveChanges:=False

ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
ActiveWorkbook.Close SaveChanges:=False

Application.DisplayAlerts = True
Application.AlertBeforeOverwriting = True
End Sub

Answer 1

我通常发现 ActiveWorkbook 是这些情况下的问题。我的意思是，不知何故，您没有选择该工作簿(或任何其他工作簿)，并且 Excel 不知道该怎么做。不幸的是，由于 copy 不返回任何内容(复制的工作表会很好)，这是解决此问题的标准方法。

因此，我们可以将其视为如何将此工作表复制到新工作簿，并获取对该工作簿的引用。我们可以做的是创建新的工作簿，然后复制工作表:

Dim wkbk as Workbook

Set Wkbk = Workbooks.Add
CurrentWorkbook.Sheets("My_Sheet").Copy Before:=Wkbk.Sheets(1)
Wkbk.SaveAs Filename:=SaveToDirectory & "My_Sheet" & ".csv", FileFormat:=xlCSV
Wkbk.Close SaveChanges:=False

或者，在这种情况下还有更好的方法:WorkSheet 支持 SaveAs 方法。无需复制。

CurrentWorkbook.Sheets("My_Sheet").SaveAs Filename:=SaveToDirectory & "My_Sheet" & ".csv", FileFormat:=xlCSV

如果工作簿保持打开状态，但您的代码中已包含该工作簿，我会警告您稍后将工作簿重新保存为其原始名称。