The Close e metodo aperto in Excel VBA possono essere utilizzati per le cartelle di lavoro di chiusura e apertura. Ricordate, la collezione di cartelle di lavoro contiene tutti gli oggetti cartella di lavoro che sono attualmente aperti.

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. La linea di codice di seguito chiude close-open.xlsm.

Workbooks("close-open.xlsm").Close

  1. La linea di codice sotto chiude la prima apertura cartella di lavoro / creato.

Workbooks(1).Close

  1. La linea codice sotto chiude la cartella di lavoro attiva.

ActiveWorkbook.Close

  1. La riga seguente codice chiude tutte le cartelle attualmente aperte.

Workbooks.Close

  1. La linea di codice qui sotto si apre sales.xlsx.

Workbooks.Open ("sales.xlsx")

Nota: è possibile sales.xlsx aperto solo senza specificare il percorso del file se è memorizzato nella posizione predefinita del file. Per modificare la posizione predefinita, nella scheda File, fare clic su Opzioni, Salva.

  1. È possibile anche utilizzare il metodo GetOpenFilename dell’oggetto Application per visualizzare la finestra di dialogo Apri standard.

Dim MyFile As String

MyFile = Application.GetOpenFilename()

  1. Selezionare un file e fare clic su Apri.

GetOpenFilename Method

Nota: GetOpenFilename in realtà non aprire il file.

  1. Successivamente, è possibile aprire la cartella di lavoro come al solito.

Workbooks.Open (MyFile)