如何禁用特定Excel弹窗？Bloomberg导出宏遇格式匹配提示

这个弹窗属于Office系统级安全提示，Application.DisplayAlerts和Application.EnableEvents确实无法管控，给你几个可行的解决思路：

• 修改注册表关闭提示（需管理员权限）
  不同Office版本对应不同注册表路径，新建键值即可禁用扩展名匹配检查：

  • Office 2016/2019/365：路径为HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Security
  • Office 2013：路径为HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Security
    在对应路径下新建DWORD值，命名为ExtensionHardening，设置值为0就能关闭该提示。

• 用VBA API模拟点击“是”
  通过Windows API捕获弹窗窗口，自动发送点击命令。把以下代码加到你的宏模块中，调用AutoClickYes过程即可：

  Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
  Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
  Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
  
  Const BM_CLICK = &HF5
  
  Sub AutoClickYes()
      Dim hwndDialog As LongPtr
      Dim hwndButton As LongPtr
      ' 等待弹窗加载（可根据实际情况调整等待时长）
      Application.Wait Now + TimeValue("00:00:01")
      ' 定位弹窗窗口
      hwndDialog = FindWindow(vbNullString, "Microsoft Excel")
      If hwndDialog <> 0 Then
          ' 定位“是”按钮
          hwndButton = FindWindowEx(hwndDialog, 0, "Button", "&是")
          If hwndButton <> 0 Then
              ' 发送点击指令
              SendMessage hwndButton, BM_CLICK, 0, 0
          End If
      End If
  End Sub
  

  注意：需确保弹窗标题为“Microsoft Excel”、按钮文本为“&是”，不同语言版本需对应调整参数。

• 提前修正文件扩展名
  如果导出文件实际是xlsx格式却被命名为xls，直接修改扩展名后再打开就不会触发提示。比如导出完成后添加这段代码：

  Dim oldPath As String, newPath As String
  oldPath = "C:\你的文件路径\文件名.xls" ' 替换为实际文件路径
  newPath = Replace(oldPath, ".xls", ".xlsx")
  Name oldPath As newPath ' 重命名文件
  Workbooks.Open newPath ' 打开修正后的文件
  

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