利用excel VBA判断工作簿是否打开

有时我们需要读取另一个excel工作簿的数据。所以第一步就是判断工作簿是否有打开。这里我们用VBA代码判断指定的工作簿是否打开

1511858907245969.png

详细源码： '判断工作簿是否打开的函数
FunctionIsWkbOpened(sWkbNameAsString)AsBoolean
'如果目标工作簿已打开则返回TRUE，否则返回FALSE
DimiAsLong
Fori=Workbooks.countTo1Step-1
IfWorkbooks(i).Name=sWkbNameThen
ExitFor
EndIf
Next
'如果工作簿未找到
Ifi=0Then
IsWkbOpened=False
Else
IsWkbOpened=True
EndIf
EndFunction
'调用该函数，将“test1.xlsm”作为指定的工作簿名称：
SubIfWkbOpened()
IfIsWkbOpened("test1.xlsm")Then
MsgBox"工作簿已打开"
Else
MsgBox"工作簿没有打开"
EndIf
EndSub