U ovom ćemo članku naučiti o metodi zatvaranja i otvaranja u Excelu VBA koja se koristi za otvaranje zatvorene radne knjige, a također i o zatvaranju otvorene radne knjige.
Izrađujemo naredbeni gumb u Excel listu i dodjeljujemo makronaredbu.
Da biste saznali kako stvoriti Activex kontrolu, kliknite vezu
https://www.exceltip.com/tips/activex-controls-in-microsoft-excel-2010.html
Kako otvoriti radnu knjigu programa Excel putem VBA?
Slijedite dolje navedene korake i kodiranje:-
- Umetnite 2 naredbena gumba.
- Prvi naredbeni gumb koji koristimo za desni klik miša na naredbeni gumb.
- VBE stranica će se otvoriti i kopirati donje kodiranje i zalijepiti na VBE stranicu.
- Za otvaranje radne knjige dodijelite dolje spomenutu makronaredbu.
'Definirajte varijablu za naziv datoteke
Dim csFileName As String
'get file file from cell A1 on Sheet1
csFileName = ThisWorkbook.Sheets ("Primjer otvaranja i zatvaranja"). Raspon ("A1")
'otvorite radnu knjižicu
Radne knjige.Otvorite csFileName
MsgBox csFileName & "otvoren"
Kraj podm
- Drugi naredbeni gumb koji koristimo za desni klik miša na naredbeni gumb.
- VBE stranica će se otvoriti i kopirati donje kodiranje i zalijepiti na VBE stranicu.
- Za otvaranje radne knjige dodijelite dolje spomenutu makronaredbu.
'Definirajte varijablu za naziv datoteke
Dim csFileName As String
'get file file from cell A1 on Sheet1
csFileName = ThisWorkbook.Sheets ("Primjer otvaranja i zatvaranja"). Raspon ("A1")
'zatvori radnu knjiguWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " zatvoreno"
Kraj podm
Obje makronaredbe dodijelit će se naredbenim gumbima, koje moramo upotrijebiti ispod za kodiranje makronaredbi.
Opcija EksplicitnoSub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Radne knjige. Otvorite
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Zatvori
Kraj podmPod sOpenWorkbook ()
'definirati varijablu za naziv datoteke
Dim csFileName As String
'preuzmite naziv datoteke iz ćelije A1 na listu 1
csFileName = ThisWorkbook.Sheets ("Primjer otvaranja i zatvaranja"). Raspon ("A1") 'otvorite radnu knjigu
Radne knjige. Otvorite csFileNameMsgBox csFileName & "otvorite"
Kraj podmSub sCloseWorkbook ()
'definirati varijablu za naziv datoteke
Dim csFileName As String 'dobijte naziv datoteke iz ćelije A1 na Sheet1
csFileName = ThisWorkbook.Sheets ("Primjer otvaranja i zatvaranja"). Raspon ("A1")
'zatvorite radnu knjiguWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " zatvoreno"
Kraj podm
Bilješka: - Morate spomenuti put prema vašoj datoteci.