Deschideți și închideți registrul de lucru Excel folosind VBA

Anonim

În acest articol vom învăța despre închiderea și deschiderea metodei în Excel VBA care este utilizată pentru deschiderea registrului de lucru închis și, de asemenea, închiderea registrului de lucru deschis.

Creăm butonul de comandă în foaia Excel și atribuim macro.

Pentru a afla cum să creați control Activex, faceți clic pe link

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

Cum se deschide registrul de lucru Excel prin VBA?

Urmați mai jos pașii și codificarea: -

  • Introduceți 2 butoane de comandă.
  • Primul buton de comandă pe care îl folosim pentru a face clic dreapta cu mouse-ul pe butonul de comandă.
  • Pagina VBE va fi deschisă și va copia codarea de mai jos și se va lipi în pagina VBE.
  • Pentru a deschide registrul de lucru, atribuiți macro-ul menționat mai jos.
Sub sOpenWorkbook ()
'definește variabila pentru numele fișierului
Dim csFileName Ca șir
'obțineți numele fișierului din celula A1 pe Sheet1
csFileName = ThisWorkbook.Sheets ("Exemplu Deschidere și închidere"). Interval ("A1")
'deschideți registrul de lucru
Cărți de lucru. Deschideți csFileName
MsgBox csFileName & "deschis"
Sfârșitul Sub
  • Al doilea buton de comandă pe care îl folosim pentru a face clic dreapta cu mouse-ul pe butonul de comandă.
  • Pagina VBE va fi deschisă și va copia codarea de mai jos și se va lipi în pagina VBE.
  • Pentru a deschide registrul de lucru, atribuiți macro-ul menționat mai jos.
Sub sCloseWorkbook ()
'definește variabila pentru numele fișierului
Dim csFileName Ca șir
'obțineți numele fișierului din celula A1 pe Sheet1
csFileName = ThisWorkbook.Sheets ("Exemplu Deschidere și închidere"). Interval ("A1")
'închideți registrul de lucru Cărți de lucru (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & „închis”
Sfârșitul Sub

Ambele macrocomenzi vor fi atribuite butoanelor de comandă, trebuie să folosim codul macro de mai jos.

Opțiune explicită
Sub sExample () Const csFileName As String = _
Cărți de lucru „C: \ Test \ Master.xlsx”. Deschideți
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Închide
Sfârșitul SubSub sOpenWorkbook ()
'definește variabila pentru numele fișierului
Dim csFileName Ca șir
'obțineți numele fișierului din celula A1 pe Sheet1
csFileName = ThisWorkbook.Sheets ("Exemplu Open and Close"). Range ("A1") 'deschide registrul de lucru
Workbooks.Open csFileNameMsgBox csFileName & "deschis"
Sfârșitul SubSub sCloseWorkbook ()
'definește variabila pentru numele fișierului
Dim csFileName As String 'obține numele fișierului din celula A1 pe Sheet1
csFileName = ThisWorkbook.Sheets ("Exemplu Deschidere și închidere"). Interval ("A1")
'închideți registrul de lucru Cărți de lucru (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & „închis”
Sfârșitul Sub

Notă: - Trebuie să menționați calea conform fișierului dvs.