Obsah
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.
'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.
'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.
