✅ Åbn og luk Excel -projektmappe ved hjælp af VBA

Indholdsfortegnelse

I denne artikel lærer vi om at lukke og åbne metoden i Excel VBA, der bruges til at åbne den tætte projektmappe og også lukke den åbne projektmappe.

Vi opretter kommandoknap i Excel -ark og tildeler makro.

Hvis du vil vide om, hvordan du opretter Activex -kontrol, skal du klikke på linket

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

Sådan åbnes Excel -projektmappe via VBA?

Følg nedenstående givne trin og kodning:-

Indsæt 2 kommandoknapper.
Første kommandoknap bruger vi til at højreklikke med musen på kommandoknappen.
VBE -siden åbnes og kopierer nedenstående kodning og indsætter på VBE -siden.
For at åbne projektmappen tildel nedenstående makro.

Sub sOpenWorkbook ()
'definer variabel for filnavn
Dim csFileName som streng
'hent filnavn fra celle A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Eksempel Åbn og luk"). Område ("A1")
'åbn projektmappen
Arbejdsbøger. Åbn csFileName
MsgBox csFileName & "åbnet"
Afslut Sub

Den anden kommandoknap bruger vi til at højreklikke med musen på kommandoknappen.
VBE -siden åbnes og kopierer nedenstående kodning og indsætter på VBE -siden.
For at åbne projektmappen tildel nedenstående makro.

Sub sCloseWorkbook ()
'definer variabel for filnavn
Dim csFileName som streng
'hent filnavn fra celle A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Eksempel Åbn og luk"). Område ("A1")
'luk workbookWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " lukket"
Afslut Sub

Begge makroer vil tildele kommandoknapperne, vi skal bruge nedenstående makrokodning.

Mulighed eksplicit
Sub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Workbooks.Open
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Luk
Afslut SubSub sOpenWorkbook ()
'definer variabel for filnavn
Dim csFileName som streng
'hent filnavn fra celle A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Eksempel Åbn og luk"). Område ("A1") 'åbner projektmappen
Workbooks.Open csFileNameMsgBox csFileName & "åbnet"
Afslut SubSub sCloseWorkbook ()
'definer variabel for filnavn
Dim csFileName As String 'hent filnavn fra celle A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Eksempel Åbn og luk"). Område ("A1")
'luk workbookWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & " lukket"
Afslut Sub

Bemærk: - Du skal nævne stien i henhold til din fil.