Come trovare o verificare se una specifica cartella di lavoro è aperta o meno in Excel?

Potresti avere più cartelle di lavoro aperte contemporaneamente. Se hai bisogno di verificare se una specifica cartella di lavoro è attualmente aperta, VBA offre una soluzione semplice. Questa guida ti mostrerà come utilizzare un codice VBA per determinare rapidamente se una cartella di lavoro è aperta o meno.

Verifica se una cartella di lavoro è aperta o meno in Excel

Verifica se una cartella di lavoro è aperta o meno in Excel

Puoi procedere come segue per verificare se una cartella di lavoro è aperta o meno in Excel.

1. Premi Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo.

2. Successivamente, copia e incolla il seguente codice VBA nell'editor.

Codice VBA: verifica se una cartella di lavoro è aperta

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. Ora premi il tasto F5 per eseguire il codice. Nella finestra di dialogo KutoolsforExcel che appare, inserisci il nome della cartella di lavoro che desideri controllare e poi clicca sul pulsante OK. Vedi screenshot:

Se la cartella di lavoro specificata è aperta, verrà visualizzata una finestra di dialogo che ti informa che la cartella di lavoro è aperta;

Altrimenti, vedrai la seguente finestra di dialogo se la cartella di lavoro specificata non è aperta.