已关闭事件与提示仍弹出保存窗口，VBA导出工作表求助

核心问题排查 #

弹出「另存为」窗口的常见诱因：

• 目标路径不存在或拼写错误，导致SaveAs无法定位到指定目录
• 冗余的代码逻辑引发潜在错误，又被On Error Resume Next掩盖，无法触发明确报错
• 未禁用外部链接更新提示，若工作表包含外部关联数据会触发弹窗

修正后的代码 #

Sub Export_Data()
    Dim ws As Worksheet
    Dim savePath As String
    
    Set ws = ThisWorkbook.Worksheets("EMPLOYEES")
    
    ' 禁用所有可能触发弹窗的Excel设置
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.AskToUpdateLinks = False
    Application.ScreenUpdating = False ' 额外添加，提升代码运行效率
    
    savePath = "C:\Users\PATH\"
    
    ' 检查目标路径是否存在，不存在则自动创建
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 直接将目标工作表复制为新工作簿（无需手动新建工作簿）
    ws.Copy
    ' 此时活动工作簿就是刚生成的新工作簿，直接保存
    ActiveWorkbook.SaveAs Filename:=savePath & "People_Data.xlsx", FileFormat:=51
    ActiveWorkbook.Close SaveChanges:=False ' 已完成保存，无需重复确认
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.AskToUpdateLinks = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True
End Sub

关键修改说明 #

• 简化复制逻辑：用ws.Copy直接生成包含目标工作表的新工作簿，省去手动新建工作簿、删除默认Sheet1的冗余步骤，减少出错概率
• 路径合法性校验：通过Dir函数检查目标路径是否存在，不存在则用MkDir创建，从根源避免因路径错误触发弹窗
• 移除错误掩盖：删掉On Error Resume Next，让代码能暴露真实错误（如权限不足、路径非法），方便精准排查
• 补充链接禁用：添加Application.AskToUpdateLinks = False，避免工作表有外部链接时触发更新提示
• 优化关闭逻辑：新工作簿已完成SaveAs操作，关闭时设SaveChanges:=False，避免重复保存的潜在问题

额外注意事项 #

• 确保savePath是真实存在的合法路径，比如替换为C:\Users\你的用户名\Documents\这类有写入权限的目录
• 若仍出现权限相关问题，检查目标文件夹的写入权限，或更换为个人用户目录

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