VBA设置DisplayAlerts=False无法抑制弹窗，从Informatica调用时公式数据复制任务失败求助

看起来你遇到的是Informatica后台调用VBA时，Excel弹窗没被成功抑制的问题，我来帮你梳理下可能的原因和解决方案：

核心问题分析 #

你当前的代码开了两个独立的Excel实例（objExcel和objExcel2），虽然都设置了DisplayAlerts=False，但后台运行时可能存在实例属性未正确生效的情况；另外直接用Copy/Paste操作，可能触发Excel的剪贴板或公式相关警告，这类弹窗有时候光靠DisplayAlerts压不住。

解决方案步骤 #

1. 合并Excel实例，减少不必要的进程

没必要开两个Excel实例，同一个实例下操作两个工作簿更稳定，也能避免多实例的设置遗漏。

2. 补充更多抑制交互的属性

除了DisplayAlerts=False，还要加上ScreenUpdating=False、EnableEvents=False，这些在后台运行时能进一步禁用Excel的交互行为。

3. 改用PasteSpecial替代直接粘贴

直接粘贴可能触发公式匹配、格式警告等弹窗，用PasteSpecial指定粘贴类型（比如值+格式，或者仅公式），能精准控制粘贴行为，避免不必要的警告。

修改后的完整代码 #

Set objExcel = CreateObject("Excel.Application")
' 禁用所有可能的交互和弹窗
objExcel.Visible = False
objExcel.DisplayAlerts = False
objExcel.ScreenUpdating = False
objExcel.EnableEvents = False

' 同一个实例下打开源和目标工作簿
Set objWorkbook = objExcel.Workbooks.Open("<Source path>")
Set objWorkbook2 = objExcel.Workbooks.Open("<Target path>")

Set objWorksheet = objWorkbook.Worksheets("Sheet1")
Set objWorksheet2 = objWorkbook2.Worksheets("Sheet1")

' 复制并指定粘贴类型（这里示例粘贴值和格式，根据需求调整）
objWorksheet.Range("A:L").Copy
objWorksheet2.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' 或者xlPasteFormulas如果需要保留公式

' 清理剪贴板，避免残留触发弹窗
objExcel.CutCopyMode = False

' 保存关闭工作簿
objWorkbook2.Save
objWorkbook2.Close
objWorkbook.Close

' 恢复Excel属性（虽然退出后没用，但好习惯）
objExcel.ScreenUpdating = True
objExcel.EnableEvents = True
objExcel.Quit

额外注意事项 #

• 确保Informatica运行的账号有读写源/目标文件的权限，权限不足也可能触发隐性弹窗（只是后台看不到）
• 如果还是有弹窗，检查是否是文件打开时的保护警告（比如宏禁用、只读提示），可以在Workbooks.Open里加上ReadOnly:=False、IgnoreReadOnlyRecommended:=True参数：

  Set objWorkbook = objExcel.Workbooks.Open("<Source path>", ReadOnly:=False, IgnoreReadOnlyRecommended:=True)
  Set objWorkbook2 = objExcel.Workbooks.Open("<Target path>", ReadOnly:=False, IgnoreReadOnlyRecommended:=True)
  

备注：内容来源于stack exchange，提问作者Raju