如何用VBA宏自动关闭Excel查找对话框？

你的核心问题是Application.Dialogs(xlDialogFormulaFind).Show是模态方法，代码会卡在这一行直到手动关闭对话框，所以后续的SendKeys根本没机会执行。下面给你三种可行的解决方案：

方案1：提前安排延迟执行SendKeys（简单但稳定性一般） #

在打开对话框前，用Application.OnTime预约一个延迟执行的关闭操作，这样对话框打开后，延迟时间到了就会自动发送Esc键关闭窗口：

Private Sub Workbook_Open()
    ' 预约1秒后执行关闭操作，时间可根据实际调整
    Application.OnTime Now + TimeValue("00:00:01"), "CloseFindDialog"
    ' 打开查找对话框并设置选项（参数对应查找范围、匹配方式等，可根据需求调整）
    Application.Dialogs(xlDialogFormulaFind).Show , 2, 2
End Sub

Sub CloseFindDialog()
    ' 发送Esc键关闭对话框
    SendKeys "{ESC}", True
End Sub

注意：SendKeys受系统焦点影响，如果打开对话框后焦点被其他窗口抢走，可能失效。

方案2：用Windows API直接关闭对话框（稳定可靠） #

通过API查找"查找和替换"窗口，直接发送关闭消息，不受焦点影响：

' 声明API函数（64位Excel需加PtrSafe）
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private 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
Private Const WM_CLOSE = &H10

Private Sub Workbook_Open()
    ' 预约0.5秒后执行关闭操作，确保对话框已完全打开
    Application.OnTime Now + TimeValue("00:00:00.5"), "CloseFindDialogAPI"
    ' 打开查找对话框并设置选项
    Application.Dialogs(xlDialogFormulaFind).Show , 2, 2
End Sub

Sub CloseFindDialogAPI()
    Dim hwndFind As LongPtr
    ' 中文Excel窗口标题为"查找和替换"，英文改为"Find and Replace"
    hwndFind = FindWindow(vbNullString, "查找和替换")
    If hwndFind <> 0 Then
        ' 发送关闭窗口的消息
        SendMessage hwndFind, WM_CLOSE, 0, 0
    End If
End Sub

方案3：无需打开对话框，直接设置默认选项（最优解） #

Excel的查找默认选项其实是继承上次使用的设置，你完全可以通过Range.Find方法直接设置这些属性，不用打开对话框：

Private Sub Workbook_Open()
    With ActiveSheet.Range("A1").Find(What:="", _
        LookIn:=xlValues, ' 对应"查找范围"为值
        LookAt:=xlWhole) ' 对应"单元格匹配"
        ' 无需实际执行查找，仅通过设置参数覆盖默认选项
    End With
End Sub

这种方法最简洁可靠，不会弹出任何窗口，直接修改下次查找的默认规则。

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