如何用Excel宏设置查找对话框参数并执行查找全部？

需求说明 #

需要编写VBA宏完成以下操作：

• 打开指定工作簿
• 调出「查找」对话框
• 自动配置查找参数：
  • Find what：填入指定文本
  • Within：设置为「工作簿」
  • Look in：设置为「值」
• 执行「查找全部」操作

现有代码仅能打开工作簿并调出查找对话框，无法自动配置参数：

Workbooks.Open ("File path.xlsx")

ActiveWorkbook.Sheets(2).Activate

Application.CommandBars("Edit").Controls("Find...").Execute

解决方案 #

方法1：用Range.Find实现「查找全部」（推荐，稳定可靠） #

直接通过VBA原生API实现查找逻辑，精准控制参数，无需依赖对话框：

Sub FindAllInWorkbook()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim targetText As String
    Dim matchRng As Range
    Dim firstMatchAddr As String
    
    ' 设置要查找的目标文本
    targetText = "你的查找内容"
    
    ' 打开目标工作簿
    Set wb = Workbooks.Open("File path.xlsx")
    
    ' 遍历工作簿内所有工作表
    For Each ws In wb.Worksheets
        ' 初始化查找，配置参数
        Set matchRng = ws.Cells.Find(What:=targetText, _
                                    LookIn:=xlValues, _
                                    LookAt:=xlWhole, _
                                    SearchOrder:=xlByRows, _
                                    MatchCase:=False)
        
        If Not matchRng Is Nothing Then
            firstMatchAddr = matchRng.Address
            ' 循环查找所有匹配项
            Do
                ' 可在此处添加对匹配单元格的操作（比如选中、标记）
                matchRng.Select
                ' 查找下一个匹配项
                Set matchRng = ws.Cells.FindNext(matchRng)
            Loop Until matchRng.Address = firstMatchAddr
        End If
    Next ws
    
    ' 若需要调出已填充参数的查找对话框
    Application.Dialogs(xlDialogFormulaFind).Show _
        targetText, , , , , , True, , , , True
    ' 最后一个参数为True时，自动执行「查找全部」
End Sub

方法2：调出查找对话框并自动填充参数（稳定性较差） #

若必须通过可视化对话框完成操作，可借助SendKeys模拟输入（受系统环境影响大，不推荐）：

Sub ShowFindDialogWithAutoParams()
    Dim targetText As String
    targetText = "你的查找内容"
    
    ' 打开工作簿并激活指定工作表
    Workbooks.Open ("File path.xlsx")
    ActiveWorkbook.Sheets(2).Activate
    
    ' 调出查找对话框
    Application.CommandBars("Edit").Controls("Find...").Execute
    
    ' 等待对话框加载
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 填充查找文本
    SendKeys targetText, True
    ' 展开选项面板
    SendKeys "%O", True
    Application.Wait Now + TimeValue("00:00:01")
    ' 设置Within为工作簿
    SendKeys "%W", True
    ' 设置Look in为值
    SendKeys "%V", True
    ' 执行查找全部
    SendKeys "%A", True
End Sub

注意：SendKeys易受输入法、对话框加载速度影响，可能出现执行异常，优先使用方法1。

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