如何修正VBA宏代码实现跨工作簿按关键词查找单元格？

原代码存在几个关键问题导致功能失效：

• 直接用工作簿名称激活容易出错，未将打开的工作簿赋值给对象变量
• 引用工作表和查找关键词时错误使用字符串字面量（加了引号），没有调用变量存储的实际值
• 依赖Activate/Select操作，代码稳定性差
• 未处理查找不到目标或工作表不存在的异常情况

下面是修正后的完整代码：

Sub FindAcrossWorkbook()
    Dim targetWB As Workbook
    Dim targetWS As Worksheet
    Dim updatedDate As String
    Dim updatedMonth As String
    Dim foundCell As Range
    
    ' 读取当前工作簿的关键词和目标工作表名
    updatedDate = ThisWorkbook.Worksheets("Update logsheet").Range("B11").Value
    updatedMonth = ThisWorkbook.Worksheets("Update logsheet").Range("B12").Value
    
    ' 打开目标工作簿并赋值给对象变量（替换成你的实际文件路径）
    Set targetWB = Workbooks.Open("C:\你的文件路径\nameofworkbook2.xlsx", ReadOnly:=True)
    
    ' 引用目标工作表，增加不存在的异常处理
    On Error Resume Next
    Set targetWS = targetWB.Worksheets(updatedMonth)
    On Error GoTo 0
    
    If targetWS Is Nothing Then
        MsgBox "目标工作表 " & updatedMonth & " 不存在！"
        targetWB.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 在指定区域查找关键词，明确参数避免默认值歧义
    Set foundCell = targetWS.Range("A4:V4").Find( _
        What:=updatedDate, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, ' 精确匹配，需模糊匹配可改为xlPart
        MatchCase:=False)
    
    ' 处理查找结果
    If Not foundCell Is Nothing Then
        MsgBox "找到目标单元格：" & foundCell.Address(False, False) & "（工作表：" & updatedMonth & "）"
        ' 如需选中单元格可取消下方注释，建议尽量避免使用Select
        ' targetWB.Activate
        ' targetWS.Select
        ' foundCell.Select
    Else
        MsgBox "未找到关键词：" & updatedDate
    End If
    
    ' 按需关闭目标工作簿，不需要可注释
    ' targetWB.Close SaveChanges:=False
End Sub

关键修改说明：

• 用对象变量替代激活操作：直接将打开的工作簿、工作表赋值给变量，避免窗口切换导致的错误，代码更高效稳定
• 正确调用变量值：引用工作表和查找关键词时去掉引号，确保使用单元格中读取的实际内容
• 增加异常处理：检查目标工作表是否存在，处理查找不到的情况，避免运行时报错
• 明确Find参数：指定LookIn、LookAt等参数，避免依赖默认值导致的匹配逻辑歧义

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