Otvárajte a zatvárajte zošit programu Excel pomocou jazyka VBA

Anonim

V tomto článku sa dozvieme o zatvorení a otvorení metódy v programe Excel VBA, ktorá sa používa na otvorenie zatvoreného zošita a tiež zatvorenie otvoreného zošita.

Vytvoríme príkazové tlačidlo v hárku programu Excel a priradíme makro.

Ak chcete vedieť, ako vytvoriť ovládací prvok Activex, kliknite na odkaz

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

Ako otvoriť zošit programu Excel prostredníctvom VBA?

Postupujte podľa nižšie uvedených krokov a kódovania:-

  • Vložte 2 príkazové tlačidlá.
  • Prvé príkazové tlačidlo, ktorým klikneme pravým tlačidlom myši na príkazové tlačidlo.
  • Stránka VBE sa otvorí a skopíruje nižšie uvedené kódovanie a vloží sa na stránku VBE.
  • Na otvorenie zošita priraďte nižšie uvedené makro.
Sub sOpenWorkbook ()
'definujte premennú pre názov súboru
Dim csFileName ako reťazec
"Získajte názov súboru z bunky A1 v hárku 1
csFileName = ThisWorkbook.Sheets („Príklad otvorenia a zatvorenia“). Rozsah („A1“)
“otvorte zošit
Zošity. Otvorte názov súboru csFileName
MsgBox csFileName a "otvorené"
Koniec pod
  • Druhé príkazové tlačidlo používame na kliknutie pravým tlačidlom myši na príkazové tlačidlo.
  • Stránka VBE sa otvorí a skopíruje nižšie uvedené kódovanie a vloží sa na stránku VBE.
  • Na otvorenie zošita priraďte nižšie uvedené makro.
Sub sCloseWorkbook ()
'definujte premennú pre názov súboru
Dim csFileName ako reťazec
"Získajte názov súboru z bunky A1 v hárku 1
csFileName = ThisWorkbook.Sheets („Príklad otvorenia a zatvorenia“). Rozsah („A1“)
'zatvorte zošitWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " zatvorené"
Koniec pod

Obe makrá sa priradia k príkazovým tlačidlám, musíme použiť nižšie uvedené kódovanie makier.

Možnosť explicitná
Sub sExample () Const csFileName As String = _
Zošity „C: \ Test \ Master.xlsx“. Otvorené
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Zavrieť
Koniec podSub sOpenWorkbook ()
'definujte premennú pre názov súboru
Dim csFileName ako reťazec
"Získajte názov súboru z bunky A1 v hárku 1
csFileName = ThisWorkbook.Sheets ("Example open and close"). Range ("A1") 'open the workbook
Zošity. Otvorené csFileNameMsgBox csFileName & "otvorené"
Koniec podSub sCloseWorkbook ()
'definujte premennú pre názov súboru
Dim csFileName As String 'získa názov súboru z bunky A1 v hárku 1
csFileName = ThisWorkbook.Sheets („Príklad otvorenia a zatvorenia“). Rozsah („A1“)
'zatvorte zošitWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " zatvorené"
Koniec pod

Poznámka: - Musíte uviesť cestu podľa svojho súboru.