代码之家 › 专栏 › 技术社区 › MsAgentM

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

runtime-error vba excel

MsAgentM · 技术社区 · 6 年前

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

今天,我尝试添加一个警报消息框,以便在满足某些条件时,在尝试保存时向用户提供消息。当我这样做的时候,我开始得到一个运行时1004错误,尽管我已经删除了工作表上的beforesave事件,但仍然得到了它。它正在使用ActiveWorkbook。。。在阅读了ActiveWorkbook如何导致错误后,我将其更改为ThisWorkbook。

我不知道获取这些文档时文件名是什么,我只想在运行宏时将文档保存并应用到指定的文件名。你知道我为什么突然犯了这个错误吗?

'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")

1 回复 | 直到 6 年前

user8608712 user8608712 6 年前

尝试添加以下内容:

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")

推荐文章