PPT VBA删除内嵌Excel工作表时无法抑制DisplayAlerts告警问题求助

你在PPT VBA环境中调用Excel.Application.DisplayAlerts = False时，修改的是全局Excel应用对象的配置，而PPT图表内嵌的Excel工作簿隶属于独立的嵌入式Excel实例，全局配置并不会作用到这个独立实例上，所以无法抑制删除工作表的确认弹窗。

• 方法1：直接修改内嵌工作簿所属实例的告警配置
  不要调用全局的Excel.Application对象，而是通过你拿到的内嵌工作簿对象ChrtWbk访问它所属的实例，修改该实例的告警开关即可。同时建议补充错误处理，确保无论操作是否成功都能恢复告警配置，避免实例配置异常。
  修正后的FilterRequiredData代码如下：

  Private Sub FilterRequiredData(ChrtWbk As Excel.Workbook, stname As String)
      Dim xlApp As Excel.Application
      Set xlApp = ChrtWbk.Application
      
      ' 保存原始配置，避免修改用户原有设置
      Dim originalAlertState As Boolean
      originalAlertState = xlApp.DisplayAlerts
      
      On Error GoTo ErrHandler
      xlApp.DisplayAlerts = False
      
      ' 先判断工作表存在再执行删除
      Dim targetSheet As Object
      On Error Resume Next
      Set targetSheet = ChrtWbk.Sheets("TempSheet")
      On Error GoTo ErrHandler
      If Not targetSheet Is Nothing Then
          targetSheet.Delete
      End If
      
      ChrtWbk.Sheets.Add(After:=ChrtWbk.Sheets(ChrtWbk.Sheets.Count)).Name = "TempSheet"
      
  ErrHandler:
      ' 恢复原始配置
      xlApp.DisplayAlerts = originalAlertState
      If Err.Number <> 0 Then Err.Raise Err.Number
  End Sub
  

• 方法2：隐藏工作表后再删除（兼容特殊版本场景）
  部分Office版本中如果修改实例配置仍无法抑制弹窗，可以先将目标工作表设置为深度隐藏状态再执行删除，大多数场景下可以跳过确认提示：

  On Error Resume Next
  With ChrtWbk.Sheets("TempSheet")
      .Visible = xlSheetVeryHidden
      .Delete
  End With
  On Error GoTo 0
  

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