用VBA判斷指定的excel工作簿是否打開

用VBA判斷指定的excel工作簿是否打開

如果要判斷一個指定的工作簿是否打開，可以將下面的VBA代碼放入標(biāo)準(zhǔn)模塊中，然后在子過程中進(jìn)行調(diào)用。

Function IsWkbOpened(sWkbName As String) As Boolean‘如果目標(biāo)工作簿已打開則返回TRUE，否則返回FALSEDim i As Long

For i = Workbooks.Count To 1 Step -1If Workbooks(i).Name = sWkbName ThenExit ForEnd IfNext‘如果工作簿未找到If i = 0 ThenIsWkbOpened = FalseElseIsWkbOpened = TrueEnd IfEnd Function

調(diào)用示例如下，將“Book2.xls”換成指定的工作簿名稱：

Sub IfWkbOpened()If IsWkbOpened("Book2.xls") ThenMsgBox "指定的工作簿已打開"ElseMsgBox "指定的工作簿沒有打開"End IfEnd Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。