Hur hittar eller kontrollerar jag om en specifik arbetsbok är öppen eller inte i Excel?

Du kan öppna flera arbetsböcker samtidigt. För att ta reda på eller kontrollera om en specifik arbetsbok är öppen eller inte. Här presenterar vi dig hur du använder en VBA för att kontrollera om en arbetsbok är öppen eller inte.

Kontrollera om en arbetsbok är öppen eller inte i Excel

Kontrollera om en arbetsbok är öppen eller inte i Excel

Du kan göra på följande sätt för att kontrollera om en arbetsbok är öppen eller inte i Excel.

1. tryck på andra + F11 att öppna Microsoft Visual Basic för applikationer fönster. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna.

2. Kopiera sedan och klistra in VBA-koden nedan i redigeraren.

VBA-kod: hitta om en arbetsbok öppnas

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. Tryck nu på F5 för att köra koden. I pop-up KutoolsforExcel dialogrutan, ange namnet på arbetsboken du vill kontrollera och klicka sedan på OK knapp. Se skärmdump:

Om den angivna arbetsboken öppnas kommer den att dyka upp i en dialogruta som berättar att arbetsboken är öppen.

Annars får du en dialogruta nedan om den angivna arbetsboken inte öppnas.