Öffnen und Schließen Excel-Arbeitsmappe mit VBA
In diesem Artikel erfahren Sie, wie Sie die Methode in Excel VBA schließen und öffnen, die zum Öffnen der geschlossenen Arbeitsmappe und zum Schließen der geöffneten Arbeitsmappe verwendet wird.
Wir erstellen eine Befehlsschaltfläche in einer Excel-Tabelle und weisen ein Makro zu.
Um zu erfahren, wie Sie ein Activex-Steuerelement erstellen, klicken Sie auf „Link„
Wie öffne ich eine Excel-Arbeitsmappe über VBA?
Befolgen Sie die unten angegebenen Schritte und Codierungen: – * Fügen Sie 2 Befehlsschaltflächen ein.
-
Erste Befehlsschaltfläche, mit der wir mit der rechten Maustaste auf die Befehlsschaltfläche klicken.
-
Die VBE-Seite wird geöffnet und kopiert die folgende Codierung und fügt sie in die VBE-Seite ein.
-
Um die Arbeitsmappe zu öffnen, weisen Sie das unten genannte Makro zu.
Sub sOpenWorkbook ()
‚Variable für Dateinamen definieren Dim csFileName As String‘ Dateiname aus Zelle A1 auf Sheet1 abrufen csFileName = ThisWorkbook.Sheets („Beispiel Öffnen und Schließen“). Bereich („A1“)
‚Öffnen Sie die Arbeitsmappe Workbooks.Open csFileName MsgBox csFileName & „opens“
End Sub * Zweite Befehlsschaltfläche, mit der wir mit der rechten Maustaste auf die Befehlsschaltfläche klicken.
-
Die VBE-Seite wird geöffnet und kopiert die folgende Codierung und fügt sie in die VBE-Seite ein.
-
Um die Arbeitsmappe zu öffnen, weisen Sie das unten genannte Makro zu.
Sub sCloseWorkbook ()
‚Variable für Dateinamen definieren Dim csFileName As String‘ Dateiname aus Zelle A1 auf Sheet1 abrufen csFileName = ThisWorkbook.Sheets („Beispiel Öffnen und Schließen“). Bereich („A1“)
‚Schließen Sie die workbookWorkbooks (Split (csFileName, „\“) (UBound (Split (csFileName, „\“))). CloseMsgBox Split (csFileName, „\“) (UBound (Split (csFileName, „\“))) & „Geschlossen“
End Sub Beide Makros werden den Befehlsschaltflächen zugewiesen. Wir müssen die folgende Makrocodierung verwenden.
Option Explicit Sub sExample () Const csFileName As String = _ „C: \ Test \ Master.xlsx“ Workbooks.Open csFileNameWorkbooks (Split (csFileName, „\“) (UBound (Split (csFileName, „\“))). Close End Sub Sub sOpenWorkbook ()
‚Variable für Dateinamen definieren Dim csFileName As String‘ Dateiname aus Zelle A1 auf Sheet1 abrufen csFileName = ThisWorkbook.Sheets („Beispiel Öffnen und Schließen“). Bereich („A1“) ‚Öffnen Sie die Arbeitsmappe Workbooks.Open csFileNameMsgBox csFileName & „geöffnet „
End Sub Sub sCloseWorkbook ()
‚Variable für Dateinamen definieren Dim csFileName As String‘ Dateiname aus Zelle A1 auf Sheet1 abrufen csFileName = ThisWorkbook.Sheets („Beispiel Öffnen und Schließen“). Bereich („A1“)
‚Schließen Sie die workbookWorkbooks (Split (csFileName, „\“) (UBound (Split (csFileName, „\“))). CloseMsgBox Split (csFileName, „\“) (UBound (Split (csFileName, „\“))) & „Geschlossen“
End Sub Hinweis: – Sie müssen den Pfad gemäß Ihrer Datei angeben.
