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

Anonim

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.