有时我们需要读取另一个excel工作簿的数据。所以第一步就是判断工作簿是否有打开。

这里我们用VBA代码判断指定的工作簿是否打开

详细源码：

'判断工作簿是否打开的函数 Function IsWkbOpened(sWkbName As String) As Boolean '    如果目标工作簿已打开则返回TRUE，否则返回FALSE     Dim i As Long     For i = Workbooks.count To 1 Step -1         If Workbooks(i).Name = sWkbName Then             Exit For         End If     Next '    如果工作簿未找到     If i = 0 Then         IsWkbOpened = False     Else         IsWkbOpened = True     End If End Function ' 调用该函数，将“test1.xlsm”作为指定的工作簿名称： Sub IfWkbOpened()     If IsWkbOpened("test1.xlsm") Then         MsgBox "工作簿已打开"     Else         MsgBox "工作簿没有打开"     End If End Sub