尝试编写保存代码时出现运行时错误 1004

Question

所以下面的代码以前没有任何问题。基本上，我通过电子邮件将此文档发送给我，代码运行以提取所需的数据，保存到工作簿到指定文件名的指定文件路径，然后代码的下一部分将所有收集的数据放在摘要文档中。

今天，我尝试添加一个警报消息框，以便在满足某些条件时，将向用户提供一条消息，当尝试保存时。当我这样做时，我开始收到运行时 1004 错误，即使我删除了工作表上的 beforesave 事件，我仍然会收到它。它正在使用活动工作簿...然后我在阅读了有关活动工作簿如何导致错误后将其更改为此工作簿。

当我得到这些文档时，我不知道文件名

会是什么，并且只想在运行宏时保存文档并将其应用于指定的文件名。关于为什么我突然收到此错误的任何想法？

'saves incident report to incident report folder
    ThisWorkbook.SaveAs Filename:=("C:Usersashley.grahamField Agent FolderIncident ReportsTest folderTest Incident report folder" & IncidentReport & AgentName & ".xlsm")

Answer 1

尝试添加以下内容：

Dim wb As Workbook
Set wb = Workbooks(ActiveWorkbook.Name)
    wb.SaveAs Filename:=("C:Usersashley.grahamField Agent FolderIncident ReportsTest folderTest Incident report folder" & IncidentReport & AgentName & ".xlsm")