Öppna och stäng Excel -arbetsbok med VBA

Anonim

I den här artikeln lär vi oss att stänga och öppna metoden i Excel VBA som används för att öppna den stänga arbetsboken och även stänga den öppna arbetsboken.

Vi skapar kommandoknapp i Excel -blad och tilldelar makro.

För att veta om hur du skapar Activex -kontroll, klicka på länken

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

Hur öppnar jag Excel -arbetsbok via VBA?

Följ nedan angivna steg och kodning:-

  • Sätt in 2 kommandoknappar.
  • Första kommandoknappen som vi använder för att högerklicka med musen på kommandoknappen.
  • VBE -sidan öppnas och kopierar nedanstående kodning och klistrar in på VBE -sidan.
  • För att öppna arbetsboken tilldelas nedan nämnda makro.
Sub sOpenWorkbook ()
'definiera variabel för filnamn
Dim csFileName som sträng
'få filnamn från cell A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Exempel Öppna och stäng"). Område ("A1")
'öppna arbetsboken
Workbooks.Open csFileName
MsgBox csFileName & "öppnat"
Avsluta Sub
  • Andra kommandoknappen använder vi för att högerklicka med musen på kommandoknappen.
  • VBE -sidan öppnas och kopierar nedanstående kodning och klistrar in på VBE -sidan.
  • För att öppna arbetsboken tilldelas nedan nämnda makro.
Sub sCloseWorkbook ()
'definiera variabel för filnamn
Dim csFileName som sträng
'få filnamn från cell A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Exempel Öppna och stäng"). Område ("A1")
'stäng arbetsbokenWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "stängd"
Avsluta Sub

Båda makron kommer att tilldela kommandoknapparna, vi måste använda nedanför makrokodning.

Alternativ Explicit
Sub sExample () Const csFileName As String = _
"C: \ Test \ Master.xlsx" Workbooks.Open
csFileNameWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). Stäng
Avsluta SubSub sOpenWorkbook ()
'definiera variabel för filnamn
Dim csFileName som sträng
'få filnamn från cell A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Exempel Öppna och stäng"). Område ("A1") 'öppna arbetsboken
Workbooks.Open csFileNameMsgBox csFileName & "öppnade"
Avsluta SubSub sCloseWorkbook ()
'definiera variabel för filnamn
Dim csFileName As String 'få filnamn från cell A1 på Sheet1
csFileName = ThisWorkbook.Sheets ("Exempel Öppna och stäng"). Område ("A1")
'stäng arbetsbokenWorkbooks (Split (csFileName, "\") (UBound (Split (csFileName, "\")))). CloseMsgBox Split (csFileName, "\") (UBound (Split (csFileName, "\"))) & "stängd"
Avsluta Sub

Notera: - Du måste nämna sökvägen enligt din fil.