Question

vba代码中，如果引用一张已打开的工作薄，怎么写程序，防止重复打开

Answer 1

给你介绍两种方法：
1、遍历所有工作簿，然后用工作簿名进行比较判断，代码如下
For I = 1 To Workbooks.Count
If Workbooks(I).Name = "要比较的工作簿名称.xlsx" Then Exit For
Next
If I > Workbooks.Count Then Workbooks.Open ("带路径的文件名")
2、设置一个工作簿对象变量，直接将工作簿赋值给变量看结果，代码如下：
Dim Wo As Workbook
On Error Resume Next
Set Wo = Workbooks("要比较的工作簿名称.xlsx")
If Wo Is Nothing Then Workbooks.Open ("带路径的文件名")