Öffnen und schließen Sie eine Excel-Arbeitsmappe mit VBA

Anonim

In diesem Artikel lernen wir das Schließen und Öffnen der Methode in Excel VBA kennen, die zum Öffnen der Arbeitsmappe zum Schließen 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 man ein Activex-Steuerelement erstellt, klicken Sie auf den Link

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

Wie öffne ich eine Excel-Arbeitsmappe über VBA?

Folgen Sie den unten angegebenen Schritten und Codierung:

  • Fügen Sie 2 Befehlsschaltflächen ein.
  • Erste Befehlsschaltfläche, die wir verwenden, um mit der rechten Maustaste auf die Befehlsschaltfläche zu klicken.
  • Die VBE-Seite wird geöffnet und kopiert die folgende Codierung und füge sie in die VBE-Seite ein.
  • Um die Arbeitsmappe zu öffnen, weisen Sie das unten genannte Makro zu.
Unter sOpenWorkbook()
' Variable für Dateinamen definieren
Dim csFileName als String
' Dateinamen aus Zelle A1 auf Sheet1 abrufen
csFileName = ThisWorkbook.Sheets("Beispiel Öffnen und Schließen").Range("A1")
'Öffne die Arbeitsmappe
Arbeitsmappen.Open csFileName
MsgBox csFileName & "geöffnet"
End Sub
  • Zweite Befehlsschaltfläche, die wir verwenden, um mit der rechten Maustaste auf die Befehlsschaltfläche zu klicken.
  • Die VBE-Seite wird geöffnet und kopiert die folgende Codierung und füge sie in die VBE-Seite ein.
  • Um die Arbeitsmappe zu öffnen, weisen Sie das unten genannte Makro zu.
Unter sCloseWorkbook()
' Variable für Dateinamen definieren
Dim csFileName als String
' Dateinamen aus Zelle A1 auf Sheet1 abrufen
csFileName = ThisWorkbook.Sheets("Beispiel Öffnen und Schließen").Range("A1")
' Arbeitsmappe schließenWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & " abgeschlossen"
End Sub

Beide Makros werden den Befehlsschaltflächen zugewiesen, wir müssen die untenstehende Makrocodierung verwenden.

Option explizit
Sub sExample()Const csFileName As String = _
"C:\Test\Master.xlsx" Workbooks.Open
csFileNameWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).Schließen
End SubUnter sOpenWorkbook()
' Variable für Dateinamen definieren
Dim csFileName als String
' Dateinamen aus Zelle A1 auf Sheet1 abrufen
csFileName = ThisWorkbook.Sheets("Example Open and Close").Range("A1") ' Arbeitsmappe öffnen
Workbooks.Open csFileNameMsgBox csFileName & "geöffnet"
End SubUnter sCloseWorkbook()
' Variable für Dateinamen definieren
Dim csFileName As String ' Dateinamen aus Zelle A1 auf Sheet1 abrufen
csFileName = ThisWorkbook.Sheets("Beispiel Öffnen und Schließen").Range("A1")
' Arbeitsmappe schließenWorkbooks(Split(csFileName, "\")(UBound(Split(csFileName, "\")))).CloseMsgBox Split(csFileName, "\")(UBound(Split(csFileName, "\"))) & " abgeschlossen"
End Sub

Notiz: - Sie müssen den Pfad zu Ihrer Datei angeben.