Odpiranje in zapiranje Excelovega delovnega zvezka z uporabo VBA

Anonim

V tem članku bomo izvedeli o metodi zapiranja in odpiranja v Excelu VBA, ki se uporablja za odpiranje zaprtega delovnega zvezka in tudi zapiranje odprtega delovnega zvezka.

Ustvarimo ukazni gumb v Excelovem listu in dodelimo makro.

Če želite izvedeti, kako ustvariti kontrolnik Activex, kliknite povezavo

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

Kako odpreti Excelov delovni zvezek prek VBA?

Sledite spodnjim korakom in kodiranju:-

  • Vstavite 2 ukazna gumba.
  • Prvi ukazni gumb, ki ga uporabimo za desni klik miške na ukazni gumb.
  • Odpre se stran VBE, ki kopira spodnje kodiranje in prilepi na stran VBE.
  • Če želite odpreti delovni zvezek, dodelite spodnji makro.
Sub sOpenWorkbook ()
'Določite spremenljivko za ime datoteke
Zatemni csFileName kot niz
'dobite ime datoteke iz celice A1 na Sheet1
csFileName = ThisWorkbook.Sheets ("Primer odpiranja in zapiranja"). Obseg ("A1")
'odprite delovni zvezek
Delovni zvezki. Odprite csFileName
MsgBox csFileName & "odprto"
End Sub
  • Drugi ukazni gumb, ki ga uporabimo za desni klik miške na ukazni gumb.
  • Odpre se stran VBE, ki kopira spodnje kodiranje in prilepi na stran VBE.
  • Če želite odpreti delovni zvezek, dodelite spodnji makro.
Sub sCloseWorkbook ()
'Določite spremenljivko za ime datoteke
Zatemni csFileName kot niz
'dobite ime datoteke iz celice A1 na Sheet1
csFileName = ThisWorkbook.Sheets ("Primer odpiranja in zapiranja"). Obseg ("A1")
'zaprite delovni zvezek Delovni zvezki (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "zaprto"
End Sub

Oba makra bosta dodeljena ukaznim gumbom, ki jih moramo uporabiti pod kodiranjem makrov.

Možnost izrecno
Sub sExample () Const csFileName As String = _
Delovni zvezki "C: \ Test \ Master.xlsx". Odprite
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Zapri
End SubSub sOpenWorkbook ()
'Določite spremenljivko za ime datoteke
Zatemni csFileName kot niz
'dobite ime datoteke iz celice A1 na Sheet1
csFileName = ThisWorkbook.Sheets ("Primer odpiranja in zapiranja"). Obseg ("A1") 'odpiranje delovnega zvezka
Delovni zvezki. Odprite csFileNameMsgBox csFileName & "odprto"
End SubSub sCloseWorkbook ()
'Določite spremenljivko za ime datoteke
Dim csFileName As String 'dobite ime datoteke iz celice A1 na Sheet1
csFileName = ThisWorkbook.Sheets ("Primer odpiranja in zapiranja"). Obseg ("A1")
'zaprite delovni zvezekWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "zaprto"
End Sub

Opomba: - Omeniti morate pot glede na datoteko.