打开状态工作簿无法设置，跨工作簿取数据遇subscript out of range错误求助

嘿，这个问题我太熟了！你遇到的情况本质是打开状态下的工作簿引用逻辑和关闭时不一样，导致代码找不到目标工作簿，才抛出下标越界的错误。

为什么会出现这个问题？ #

当源工作簿处于打开状态时，Excel对它的标识是「工作簿名称」（比如源文件.xlsx），而不是完整路径。如果你代码里用了带路径的字符串（比如Workbooks("C:\我的文件\源文件.xlsx")）来引用它，Excel就会找不到对应的工作簿，直接报错。而关闭源工作簿后，你用路径调用Workbooks.Open()或者通过路径引用时，Excel会直接从磁盘加载文件，这时候路径是有效的，所以代码能正常运行。

几个靠谱的解决办法 #

• 用工作簿名称直接引用（注意不要带路径）
  把代码里带路径的引用改成纯文件名，比如：

  ' 错误写法：带路径引用打开的工作簿
  ' Workbooks("C:\我的文件\源文件.xlsx").Sheets("Sheet1").Range("A1").Copy
  
  ' 正确写法：只用文件名
  Workbooks("源文件.xlsx").Sheets("Sheet1").Range("A1").Copy
  

• 遍历打开的工作簿获取对象（最稳妥）
  担心文件名有重复或者标题栏有后缀（比如Excel会给同名工作簿加(2)）？可以遍历所有打开的工作簿，精准定位目标：

  Dim sourceWB As Workbook
  Dim targetFileName As String
  targetFileName = "源文件.xlsx" ' 你的源工作簿文件名
  
  ' 遍历所有打开的工作簿
  For Each sourceWB In Workbooks
      ' 匹配文件名（如果要忽略大小写可以用UCase函数）
      If sourceWB.Name = targetFileName Then
          Exit For ' 找到目标就跳出循环
      End If
  Next
  
  ' 确认找到后再操作
  If Not sourceWB Is Nothing Then
      ' 这里写你的数据提取逻辑，比如：
      ThisWorkbook.Sheets("目标工作表").Range("A1").Value = sourceWB.Sheets("源工作表").Range("A1").Value
  Else
      MsgBox "源工作簿没打开哦！"
  End If
  

• 自动判断工作簿是否打开
  如果你不确定源工作簿是否打开，可以让代码自动检测：打开了就直接用，没打开就加载它，这样不管源工作簿状态如何都能正常运行：

  Dim sourceWB As Workbook
  Dim sourceFilePath As String
  sourceFilePath = "C:\我的文件\源文件.xlsx" ' 你的源文件完整路径
  
  ' 尝试引用已打开的工作簿
  On Error Resume Next
  Set sourceWB = Workbooks(sourceFilePath)
  On Error GoTo 0
  
  ' 如果没找到，就打开它
  If sourceWB Is Nothing Then
      Set sourceWB = Workbooks.Open(sourceFilePath)
  End If
  
  ' 接下来执行你的数据提取操作
  sourceWB.Sheets("Sheet1").Range("A1:C10").Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
  

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