Apri e chiudi la cartella di lavoro di Excel utilizzando VBA

Anonim

In questo articolo impareremo a chiudere e aprire il metodo in Excel VBA che viene utilizzato per aprire la cartella di lavoro chiusa e anche chiudere la cartella di lavoro aperta.

Creiamo il pulsante di comando nel foglio Excel e assegniamo la macro.

Per sapere come creare il controllo Activex clicca sul link

https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html

Come aprire la cartella di lavoro di Excel tramite VBA?

Segui i passaggi e la codifica indicati di seguito: -

  • Inserisci 2 pulsanti di comando.
  • Primo pulsante di comando che usiamo per fare clic con il tasto destro del mouse sul pulsante di comando.
  • La pagina VBE si aprirà e copierà la codifica sottostante e la incollerà nella pagina VBE.
  • Per aprire la cartella di lavoro, assegnare la macro menzionata di seguito.
Sub sOpenWorkbook()
'definire la variabile per il nome del file
Dim csFileName As String
' ottieni il nome del file dalla cella A1 su Foglio1
csFileName = ThisWorkbook.Sheets("Esempio di apertura e chiusura").Range("A1")
'apri la cartella di lavoro
Cartelle di lavoro. Apri csFileName
MsgBox csFileName & "aperto"
Fine sottotitolo
  • Secondo pulsante di comando che usiamo per fare clic con il tasto destro del mouse sul pulsante di comando.
  • La pagina VBE si aprirà e copierà la codifica sottostante e la incollerà nella pagina VBE.
  • Per aprire la cartella di lavoro, assegnare la macro menzionata di seguito.
Sub sCloseWorkbook()
'definire la variabile per il nome del file
Dim csFileName As String
' ottieni il nome del file dalla cella A1 su Foglio1
csFileName = ThisWorkbook.Sheets("Esempio di apertura e chiusura").Range("A1")
' chiude la cartella di lavoroWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & " Chiuso"
Fine sottotitolo

Entrambe le macro verranno assegnate ai pulsanti di comando, dobbiamo utilizzare la codifica macro di seguito.

Opzione esplicita
Sub sExample()Const csFileName As String = _
Cartelle di lavoro "C:\Test\Master.xlsx".Apri
csFileNameWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).Chiudi
Fine sottotitoloSub sOpenWorkbook()
'definire la variabile per il nome del file
Dim csFileName As String
' ottieni il nome del file dalla cella A1 su Foglio1
csFileName = ThisWorkbook.Sheets("Example Open and Close").Range("A1") ' apre la cartella di lavoro
Cartelle di lavoro.Open csFileNameMsgBox csFileName & "open"
Fine sottotitoloSub sCloseWorkbook()
'definire la variabile per il nome del file
Dim csFileName As String ' ottieni il nome del file dalla cella A1 su Foglio1
csFileName = ThisWorkbook.Sheets("Esempio di apertura e chiusura").Range("A1")
' chiude la cartella di lavoroWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & " Chiuso"
Fine sottotitolo

Nota: - Devi menzionare il percorso in base al tuo file.