特定のブックがExcelで開いているかどうかを検索または確認するにはどうすればよいですか？

一度に複数のワークブックを開くことができます。 特定のワークブックが開いているかどうかを確認または確認するため。 ここでは、VBAを使用してブックが開いているかどうかを確認する方法を紹介します。

ブックがExcelで開いているかどうかを確認します

---

ブックがExcelで開いているかどうかを確認します

ブックがExcelで開いているかどうかを確認するには、次のようにします。

1。 プレス 他の + F11 を開く アプリケーション向け Microsoft Visual Basic 窓。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール.

2.次に、以下のVBAコードをコピーしてエディターに貼り付けます。

VBAコード：ブックが開かれているかどうかを確認します

Sub TrimExcessSpaces()
	Dim xWBName As String
	Dim xWb As Workbook
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	xWBName = Application.InputBox("Workbook Name", xTitleId, "", Type: = 2)
	Set xWb = Application.Workbooks(xWBName)

	If xWb Is Nothing Then
		MsgBox "The Workbook is not open!"
	Else
		MsgBox "The Workbook is open!"
	End If

End Sub

3.次にを押します F5 コードを実行するためのキー。 ポップアップで Kutools for Excel ダイアログボックスで、確認するブック名を入力し、[ OK ボタン。 スクリーンショットを参照してください：

指定したワークブックを開くと、ワークブックが開いていることを通知するダイアログボックスがポップアップ表示されます。

それ以外の場合、指定されたブックが開かれていないと、以下のダイアログボックスが表示されます。