Avage ja sulgege Exceli töövihik VBA abil

Anonim

Selles artiklis õpime Excel VBA sulgemis- ja avamismeetodist, mida kasutatakse suletud töövihiku avamiseks ja avatud töövihiku sulgemiseks.

Loome Exceli lehel käsunupu ja määrame makro.

ActiveX -juhtelemendi loomiseks klõpsake lingil

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

Kuidas avada Exceli töövihik VBA kaudu?

Järgige allpool toodud samme ja kodeerimist:-

  • Sisestage 2 käsunuppu.
  • Esimene käsunupp, mida kasutame hiire paremklõpsamiseks käsunupul.
  • VBE leht avaneb ja kopeerib alloleva kodeeringu ning kleepib selle VBE lehele.
  • Töövihiku avamiseks määrake allpool nimetatud makro.
Alamtööraamat ()
'määratle failinime muutuja
Dim csFileName kui string
'Hankige failinimi lehe 1 lahtrist A1
csFileName = ThisWorkbook.Sheets ("Näite avamine ja sulgemine"). Vahemik ("A1")
'avage töövihik
Töövihikud. Avage csFileName
MsgBox csFileName & "avatud"
End Sub
  • Teine käsunupp, mida kasutame hiire paremklõpsamiseks käsunupul.
  • VBE leht avaneb ja kopeerib alloleva kodeeringu ning kleepib selle VBE lehele.
  • Töövihiku avamiseks määrake allpool nimetatud makro.
Sub sCloseWorkbook ()
'määratle failinime muutuja
Dim csFileName kui string
'Hankige failinimi lehe 1 lahtrist A1
csFileName = ThisWorkbook.Sheets ("Näite avamine ja sulgemine"). Vahemik ("A1")
'sulgege töövihikTöövihikud (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "suletud"
End Sub

Mõlemad makrod määratakse käsunuppudele, peame kasutama allpool makro kodeerimist.

Valik Selge
Alamnäide () Const csFileName kui string = _
"C: \ Test \ Master.xlsx" töövihikud. Avatud
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). Sule
End SubAlamAvatud tööraamat ()
'määratle failinime muutuja
Dim csFileName kui string
'Hankige failinimi lehe 1 lahtrist A1
csFileName = ThisWorkbook.Sheets ("Näide avamine ja sulgemine"). Vahemik ("A1") 'avab töövihiku
Töövihikud. Ava csFileNameMsgBox csFileName & "avatud"
End SubSub sCloseWorkbook ()
'määratle failinime muutuja
Dim csFileName kui string 'saab failinime lehe 1 lahtrist A1
csFileName = ThisWorkbook.Sheets ("Näite avamine ja sulgemine"). Vahemik ("A1")
'sulgege töövihikTöövihikud (Split (csFileName, "\") (UBound (Split (csFileName, "\"))))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "suletud"
End Sub

Märge: - Peate mainima tee vastavalt oma failile.