Question

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

今天，我尝试添加一个警告消息框，以便在满足某些条件时，在尝试保存时会向用户发送消息。当我这样做时，我开始收到运行时1004错误，即使我已经删除了工作表上的beforesave事件，仍然可以得到它。它使用的是ActiveWorkbook ...然后在阅读了ActiveWorkbook如何导致错误之后将其更改为ThisWorkbook。

当我获得这些文档时，我不知道文件名是什么，并且我希望在运行宏时只需保存doc并应用于指定的文件名。关于我为什么突然遇到这个错误的想法？

'saves incident report to incident report folder
    ThisWorkbook.SaveAs Filename:=("C:\Users\ashley.graham\Field Agent Folder\Incident Reports\Test folder\Test Incident report folder\" & IncidentReport & AgentName & ".xlsm")

Answer 1

尝试添加此内容：

Dim wb As Workbook

Set wb = Workbooks(ActiveWorkbook.Name)

    wb.SaveAs Filename:=("C:\Users\ashley.graham\Field Agent Folder\Incident Reports\Test folder\Test Incident report folder\" & IncidentReport & AgentName & ".xlsm")

尝试编码saveas时的运行时错误1004

1 个答案: