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

一度に複数のワークブックを開いている可能性があります。特定のワークブックが現在開かれているかどうかを確認する必要がある場合、VBAはシンプルな解決策を提供します。このガイドでは、ワークブックが開かれているかどうかを迅速に判断するためにVBAコードを使用する方法を紹介します。

Excelでワークブックが開かれているかどうかを確認する

Excelでワークブックが開かれているかどうかを確認する

以下の手順で、Excelでワークブックが開かれているかどうかを確認できます。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックします。

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キーを押してコードを実行します。表示されるKutoolsforExcelダイアログボックスに、確認したいワークブック名を入力し、OKボタンをクリックします。スクリーンショットをご覧ください:

指定されたワークブックが開かれている場合、そのワークブックが開かれていることを知らせるダイアログボックスが表示されます。

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