Excel VBA按单元格引用另存为 400报错与数字签名异常问题

问题复现环境与初始代码 #

当前基于VBA实现的自动另存为逻辑初始版本如下：

Dim Path As String
Dim filename As String
Path = "C:\Users\Documents\General\Clients\IQA Sampling Plans\"
filename = "IQA-" & Range("D2")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xlsx", FileFormat:=51

已确认的异常现象 #

• 宏运行到末尾弹出无明确描述的400错误，错误不影响核心保存逻辑，但弹窗阻断后续代码执行；前期尝试添加断开所有链接的逻辑未解决问题。
• 文件可按规则保存到指定路径，但关闭文件时会强制弹出另存为提示，选择“不保存”不会损坏已生成的文件；工作簿内置的数字签名字段仅支持非xlsm格式，宏执行另存为后系统无法即时识别文件格式转换结果，必须关闭重开才能正常使用签名功能。前期尝试在宏内添加自动关闭重开逻辑，因400错误触发导致后续代码完全无法执行。

前期排查过程 #

• 已在代码首尾添加Application.ScreenUpdating = False、Application.DisplayAlerts = False及对应恢复为True的配置。
• 发现前期仅删除了承载Power Query的工作表，未删除查询本体，补充硬编码删除指定查询的代码后功能短暂恢复正常，仅成功运行2次后400错误复现，回到异常状态：

ActiveWorkbook.Queries("Query1").Delete
ActiveWorkbook.Queries("Query2").Delete

• 补充排查发现设备存在OneDrive多账号登录冲突，目标保存路径位于OneDrive同步目录下，新生成文件打开时会弹出OneDrive登录提示，怀疑账号未正确登录也会触发存盘异常。

根因定位 #

1. 400错误触发原因

• 硬编码删除指定名称Power Query的逻辑鲁棒性不足：若工作簿存在隐藏查询、查询命名动态变化、或查询已加载到Excel数据模型存在残留关联，硬编码删除指定名称查询会触发运行时错误，即使关闭DisplayAlerts也会弹出无描述400报错。
• OneDrive同步锁冲突：目标路径位于多账号登录的OneDrive同步目录下，存盘时OneDrive同步进程会抢占文件句柄，导致VBA存盘操作完成后无法正常释放文件锁，触发后台报错。

2. 存盘后格式识别异常、关闭弹另存为提示原因

• 从xlsm格式模板另存为xlsx格式时，原工作簿的VBA工程、宏格式标记不会随SaveAs操作即时清除，Excel内存中仍将当前打开的文件识别为启用宏的工作簿，与磁盘上存储的xlsx格式不匹配，因此关闭时触发存盘提示，数字签名字段也无法即时识别非宏格式。
• Power Query清除不彻底：若查询已加载到数据模型，仅删除Queries集合下的条目不会清除模型内的Power Query残留引用，导致工作簿状态标记异常。

修复方案 #

注意：执行存盘前请确认D2单元格内容不存在\ / : * ? " < > |等Windows系统非法文件名字符，否则会触发存盘失败

1. 代码逻辑优化 #

替换原有硬编码逻辑，改为遍历清除所有Power Query残留、增加错误兜底、存盘后重置工作簿状态、自动重开文件适配签名功能，修复后完整代码如下：

Sub AutoSaveAsIQA()
    Dim Path As String
    Dim filename As String
    Dim fullPath As String
    Dim qry As WorkbookQuery
    
    ' 基础配置关闭弹窗和屏幕刷新
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    On Error Resume Next ' 错误兜底，避免单个操作失败阻断全流程
    ' 遍历删除所有Power Query，避免硬编码名称匹配失败
    For Each qry In ActiveWorkbook.Queries
        qry.Delete
    Next qry
    
    ' 清除数据模型内残留PQ引用（若存在数据模型）
    If Not ActiveWorkbook.Model Is Nothing Then
        ActiveWorkbook.Model.Refresh
    End If
    
    ' 定义存盘路径
    Path = "C:\Users\Documents\General\Clients\IQA Sampling Plans\"
    filename = "IQA-" & Range("D2").Value
    fullPath = Path & filename & ".xlsx"
    
    ' 执行另存为
    ActiveWorkbook.SaveAs filename:=fullPath, FileFormat:=51
    
    ' 标记工作簿已保存，避免关闭时弹另存为提示
    ActiveWorkbook.Saved = True
    
    ' 等待2秒释放文件句柄，适配OneDrive同步
    Application.Wait Now + TimeValue("00:00:02")
    
    ' 关闭当前已存为xlsx的工作簿，不触发额外保存
    ActiveWorkbook.Close SaveChanges:=False
    
    ' 重新打开刚保存的xlsx文件，确保格式被正确识别，数字签名可正常使用
    Workbooks.Open fullPath
    
    ' 恢复Excel默认配置
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    On Error GoTo 0
End Sub

2. OneDrive冲突处理 #

• 若多账号冲突问题持续，可临时将目标保存路径改为非OneDrive同步的本地目录，确认宏功能完全正常后，再通过手动复制或OneDrive客户端自动同步的方式将文件上传到云端目录，避免同步进程抢占文件句柄。
• 若必须直接保存到OneDrive目录，可在存盘前退出未使用的OneDrive账号，仅保留对应目录所属账号的登录状态，消除账号冲突导致的存盘异常。

内容的提问来源于stack exchange，提问作者Edward Tillen