Atidarykite ir uždarykite „Excel“ darbaknygę naudodami VBA

Anonim

Šiame straipsnyje sužinosime, kaip uždaryti ir atidaryti „Excel VBA“ metodą, naudojamą atidaryti uždarymo darbaknygę, taip pat uždaryti atvirą darbaknygę.

„Excel“ lape sukuriame komandų mygtuką ir priskiriame makrokomandą.

Norėdami sužinoti, kaip sukurti „Activex“ valdiklį, spustelėkite nuorodą

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

Kaip atidaryti „Excel“ darbaknygę per VBA?

Atlikite toliau nurodytus veiksmus ir kodavimą:-

  • Įdėkite 2 komandų mygtukus.
  • Pirmasis komandos mygtukas, kurį mes naudojame dešiniuoju pelės mygtuku spustelėdami komandų mygtuką.
  • Bus atidarytas VBE puslapis ir nukopijuokite žemiau esantį kodavimą ir įklijuokite jį į VBE puslapį.
  • Norėdami atidaryti darbaknygę, priskirkite žemiau nurodytą makrokomandą.
Sub sOpenWorkbook ()
"apibrėžti failo pavadinimo kintamąjį
Dim csFileName kaip eilutė
„Gaukite failo pavadinimą iš A1 lapo 1 lape
csFileName = ThisWorkbook.Sheets ("Pavyzdys atidaryti ir uždaryti"). Diapazonas ("A1")
“, atidarykite darbo knygą
Darbaknygės. Atidarykite csFileName
„MsgBox csFileName“ ir „atidaryta“
Pabaiga Sub
  • Antrasis komandos mygtukas, kurį mes naudojame dešiniuoju pelės mygtuku spustelėdami komandų mygtuką.
  • Bus atidarytas VBE puslapis ir nukopijuokite žemiau esantį kodavimą ir įklijuokite jį į VBE puslapį.
  • Norėdami atidaryti darbaknygę, priskirkite žemiau nurodytą makrokomandą.
Sub sCloseWorkbook ()
"apibrėžti failo pavadinimo kintamąjį
Dim csFileName kaip eilutė
"Gaukite failo pavadinimą iš A1 lapo 1 lape
csFileName = ThisWorkbook.Sheets ("Pavyzdys atidaryti ir uždaryti"). Diapazonas ("A1")
"uždaryti darbo knygą Darbo knygos (Split (csFileName," \ ") (UBound (Split (csFileName," \ "))))). CloseMsgBox Split (csFileName," \ ") (UBound (Split (csFileName," \ "))) & " uždaryta"
Pabaiga Sub

Abi makrokomandos bus priskirtos komandų mygtukams, turime naudoti žemiau esantį makro kodavimą.

Pasirinkimas aiškus
Antrasis pavyzdys () Const csFileName As String = _
"C: \ Test \ Master.xlsx" darbaknygės. Atidarykite
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). Uždaryti
Pabaiga SubSub sOpenWorkbook ()
'apibrėžti failo pavadinimo kintamąjį
Dim csFileName kaip eilutė
"Gaukite failo pavadinimą iš A1 lapo 1 lape
csFileName = ThisWorkbook.Sheets ("Pavyzdys atidaryti ir uždaryti"). Diapazonas ("A1") 'atidaro darbaknygę
Darbaknygės.Open csFileNameMsgBox csFileName & "atidarytas"
Pabaiga SubSub sCloseWorkbook ()
'apibrėžti failo pavadinimo kintamąjį
Dim csFileName As String “gauti failo pavadinimą iš 1 lapo A1 langelio
csFileName = ThisWorkbook.Sheets ("Pavyzdys atidaryti ir uždaryti"). Diapazonas ("A1")
"uždaryti darbo knygą Darbo knygos (Split (csFileName," \ ") (UBound (Split (csFileName," \ "))))). CloseMsgBox Split (csFileName," \ ") (UBound (Split (csFileName," \ "))) & " uždaryta"
Pabaiga Sub

Pastaba: - Turite paminėti kelią pagal savo failą.