兄弟，你遇到的这个"Object doesn't support this property or method"报错，在VBA操作多工作簿时太常见了，大概率是对象引用出了问题，我给你列几个最可能的原因和排查方向，再给点修正建议：

最可能的报错原因 #

• 工作簿/工作表引用不明确
  很多人操作多工作簿时习惯用ActiveWorkbook或者Sheets("xxx")，但如果第二个工作簿没被激活，或者同名工作表存在于多个工作簿里，就会导致代码误操作当前激活的工作簿，甚至引用到错误的对象。比如你可能写了Sheets("数据").Range("A:A").Find(...)，但实际应该指定是第二个工作簿的工作表：Workbooks("第二个文件.xlsx").Sheets("数据").Range("A:A").Find(...)

• Find方法返回Nothing后直接操作
  如果在第二个工作簿里没找到匹配的内容，Find方法会返回Nothing，这时候你要是直接去修改它的属性（比如.Value），就会触发这个报错。必须先判断查找结果是否存在：

  Dim findRng As Range
  Set findRng = Workbooks("第二个文件.xlsx").Sheets("Sheet1").Range("A:A").Find(UserForm1.TextBox1.Value)
  If Not findRng Is Nothing Then
      ' 这里写修改逻辑
      findRng.Offset(0,1).Value = UserForm1.TextBox2.Value
  Else
      MsgBox "第二个工作簿里没找到匹配数据"
  End If
  

• 文本框值的类型不匹配
  比如你要查找的是数字类型，但文本框里的内容是字符串，或者反过来，导致Find方法找不到目标，后续操作空对象报错。可以先把文本框内容转成对应类型，比如：

  Dim searchValue As String
  searchValue = Trim(UserForm1.TextBox1.Value) ' 先去掉前后空格
  ' 如果是数字的话：
  ' Dim searchValue As Long
  ' searchValue = CLng(UserForm1.TextBox1.Value)
  

• 工作簿未正确打开或路径错误
  如果你是用Workbooks.Open打开第二个工作簿，可能路径写错了，或者打开时用了只读模式，导致无法修改。要确保打开代码正确：

  Dim wb2 As Workbook
  Set wb2 = Workbooks.Open("C:\你的路径\第二个工作簿.xlsx", ReadOnly:=False)
  

排查步骤建议 #

1. 先在修改第二个工作簿的代码前加上断点（按F9），运行到这里时查看每个对象的状态：比如wb2是否为Nothing，findRng是否存在
2. 把所有对象引用都写明确，绝对不要依赖ActiveWorkbook/ActiveSheet，而是用变量来存储工作簿和工作表对象，比如：

   Dim wb1 As Workbook, wb2 As Workbook
   Dim ws1 As Worksheet, ws2 As Worksheet
   Set wb1 = ThisWorkbook ' 当前运行代码的工作簿
   Set wb2 = Workbooks("目标工作簿.xlsx")
   Set ws1 = wb1.Sheets("数据页1")
   Set ws2 = wb2.Sheets("数据页2")
   

3. 检查你修改第二个工作簿时的代码行，比如是不是把Range对象当成了Worksheet来调用方法，或者用了某个对象不支持的属性（比如误写了findRng.Text而不是findRng.Value）

额外优化建议 #

• 操作多工作簿时，最好关闭屏幕更新，提升速度还能避免界面闪烁：

  Application.ScreenUpdating = False
  ' 你的代码逻辑
  Application.ScreenUpdating = True
  

• 加上错误捕获，方便定位具体报错行：

  On Error GoTo ErrorHandler
  ' 你的代码逻辑
  Exit Sub
  ErrorHandler:
  MsgBox "报错行：" & Erl & vbCrLf & "错误信息：" & Err.Description
  

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