Apri e Chiudi cartella di lavoro Excel con VBA
In questo articolo impareremo come chiudere e aprire il metodo in Excel VBA utilizzato per aprire la cartella di lavoro chiusa e anche chiudere la cartella di lavoro aperta.
Creiamo pulsante di comando in foglio Excel e assegniamo macro.
Per sapere come creare il controllo Activex, fare clic su link: / tips-activex-controls-in-microsoft-excel-2010 [link]
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 utilizziamo per fare clic con il pulsante destro del mouse sul pulsante di comando.
-
La pagina VBE si aprirà e copierà la codifica sottostante e incollerà nella pagina VBE.
-
Per aprire la cartella di lavoro, assegnare la macro indicata di seguito.
Sub sOpenWorkbook ()
‘definisce la variabile per il nome del file Dim csFileName As String’ ottiene il nome del file dalla cella A1 sul foglio1 csFileName = ThisWorkbook.Sheets (“Example Open and Close”). Range (“A1”)
‘apre la cartella di lavoro Workbooks.Open csFileName MsgBox csFileName & “aperto”
End Sub * Secondo pulsante di comando che utilizziamo per fare clic con il pulsante destro del mouse sul pulsante di comando.
-
La pagina VBE si aprirà e copierà la codifica sottostante e incollerà nella pagina VBE.
-
Per aprire la cartella di lavoro, assegnare la macro indicata di seguito.
Sub sCloseWorkbook ()
‘definisce la variabile per il nome del file Dim csFileName As String’ ottiene il nome del file dalla cella A1 sul foglio1 csFileName = ThisWorkbook.Sheets (“Example Open and Close”). Range (“A1”)
‘chiudi la cartella di lavoroWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). CloseMsgBox Split (csFileName, “\”) (UBound (Split (csFileName, “\”))) & “chiuso”
End Sub Entrambe le macro verranno assegnate ai pulsanti di comando, dobbiamo usare la seguente codifica macro.
Opzione Explicit Sub sExample () Const csFileName As String = _ “C: \ Test \ Master.xlsx” Workbooks.Open csFileNameWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). Close End Sub Sub sOpenWorkbook ()
‘definire la variabile per il nome del file Dim csFileName As String’ ottenere il nome del file dalla cella A1 sul foglio1 csFileName = ThisWorkbook.Sheets (“Example Open and Close”). Range (“A1”) ‘apre la cartella di lavoro Workbooks.Open csFileNameMsgBox csFileName & “aperto “
End Sub Sub sCloseWorkbook ()
‘definisce la variabile per il nome del file Dim csFileName As String’ ottiene il nome del file dalla cella A1 sul foglio1 csFileName = ThisWorkbook.Sheets (“Example Open and Close”). Range (“A1”)
‘chiudi la cartella di lavoroWorkbooks (Split (csFileName, “\”) (UBound (Split (csFileName, “\”)))). CloseMsgBox Split (csFileName, “\”) (UBound (Split (csFileName, “\”))) & “chiuso”
End Sub Nota: – Devi menzionare il percorso in base al tuo file.
