Excel VBA跨实例工作簿引用问题：无法获取不同进程中已打开工作簿

这个问题我太熟悉了！你遇到的核心痛点是：Workbooks集合仅属于当前运行VBA代码的Excel实例，另一个独立窗口的Excel实例里的工作簿完全不在这个集合范围内，所以直接用Workbooks(nomSuivi)肯定找不到目标文件。

解决方案：用GetObject函数跨实例绑定工作簿 #

GetObject是VBA里专门用来获取已打开文件（不管在哪个实例）的工具，它能直接定位到目标文件对应的Workbook对象，不管它在哪个Excel窗口里运行。

下面是修改后的完整代码，替换你原来的判断逻辑：

Dim suivi As Workbook
Dim filePath As String
filePath = "\\\Éclairage\Demandes\" & nomSuivi '注意用&拼接字符串，避免类型错误

On Error Resume Next '开启错误捕获，尝试获取已打开的工作簿
Set suivi = GetObject(filePath)
On Error GoTo 0 '关闭错误捕获

Dim needClose As Boolean
needClose = False

If suivi Is Nothing Then
    '如果文件没打开，就打开它
    Set suivi = Workbooks.Open(filePath)
    needClose = True
End If

'执行你原来的读取逻辑
TotalRows = suivi.Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
ReDim mandat(1 To TotalRows)
ReDim etat(1 To TotalRows)
For i = 2 To TotalRows
    mandat(i - 1) = suivi.Worksheets("Feuil1").Cells(i, 1).Value
    etat(i - 1) = suivi.Worksheets("Feuil1").Cells(i, 5).Value
Next i

'如果是我们打开的文件，读取完就关闭（避免关闭用户已打开的文件）
If needClose Then
    suivi.Close SaveChanges:=False '根据实际需求设置是否保存
End If

Set suivi = Nothing '释放对象

几个关键细节说明 #

• 替换原有的IsWorkBookOpen判断：GetObject自带了检测文件是否已打开的能力，而且能覆盖所有Excel实例，不需要依赖仅检查当前实例的自定义函数。
• 用&代替+拼接路径：+在VBA中是算术运算符，当字符串与其他类型拼接时容易出错，&才是标准的字符串拼接符。
• 新增needClose标记：确保我们只关闭自己打开的文件，不会误关用户已经在使用的窗口。
• 错误捕获机制：避免因为文件不存在、权限不足等问题导致代码崩溃。

这样修改后，不管目标文件是在当前实例的标签页里，还是在另一个独立的Excel窗口里，都能正常获取到Workbook对象并读取数据啦！

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