Excel VBA-Arbeitsmappe Öffnen

Im Alltag wird am häufigsten eine Excel-Arbeitsmappe geöffnet, wenn Sie mit Excel arbeiten. Sie können nicht in Excel arbeiten, ohne die Excel-Arbeitsmappen oder die Excel-Datei zu öffnen. In diesem Artikel geht es darum, wie wir mit Hilfe von VBA eine Excel-Arbeitsmappe öffnen können.

Methoden zum Öffnen von Exel-Arbeitsmappen in VBA

Es gibt zwei Methoden zum Öffnen von Excel-Arbeitsmappen in VBA. In diesem Artikel werden beide Methoden behandelt.

Sie können diese VBA-Arbeitsmappe Open Excel-Vorlage hier herunterladen - VBA-Arbeitsmappe Open Excel-Vorlage

Methode 1 - Excel VBA Workbooks.open-Methode

Die erste Methode in der VBA ist die Verwendung der eingebauten Funktion Workbooks.open . Es gibt 15 optionale Argumente in der Funktion "Workbooks.open", und das Abdecken aller 15 Argumente wird viel Zeit in Anspruch nehmen. Wir werden also nur versuchen, einige Grundlagen von Workbooks.open zu verstehen und herauszufinden, wie wir diese Funktion in VBA verwenden können, um die Workbooks zu öffnen.

Der erste Schritt bei dieser Methode besteht darin, den Dateinamen der Excel-Arbeitsmappen zu kennen. Unten finden Sie die Anweisung zum Öffnen der Arbeitsmappen. "Arbeitsmappen." Datei_Name "öffnen

Oder

Arbeitsmappen.Open Filename: = ”File_Name”

Der "Dateiname" ist der Name der Arbeitsmappen, die Sie öffnen möchten. Sie müssen hier jedoch vorsichtig sein, da Sie den vollständigen Pfad, in dem die Datei gespeichert ist, und den Namen der Datei mit der Dateierweiterung (.XLS, .XLSX, .xlsm usw.) angeben müssen. Wir können das folgende Makro als Beispiel nehmen, um diese Funktion zu verstehen.

Beispiel

Angenommen, Sie möchten eine Excel-Datei mit dem Namen "Testdatei" öffnen, die auf dem Laufwerk D des Computers gespeichert ist. Erstellen Sie ein Makro in einer Excel-Makro-fähigen Arbeitsmappe. Führen Sie die folgenden Schritte aus, um die Excel VBA Workbooks.open-Methode zu verwenden.

Schritt 1: Klicken Sie auf Datei.

Schritt 2: Klicken Sie auf Optionen .

Schritt 3: Klicken Sie auf Band anpassen .

Schritt 4: Stellen Sie sicher, dass das Feld Entwickler wie folgt markiert ist, und klicken Sie auf OK.

Schritt 5: Sobald Sie die Entwicklerregisterkarte haben, klicken Sie auf Visual Basic (siehe Abbildung unten).

Nachdem Sie auf Visual Basics geklickt haben, müssen Sie mit dem Codieren Ihres Makros beginnen.

Schritt 6: Geben Sie den folgenden Code in das VBA-Modul ein.

Code:

 Sub Open_workbook () End Sub

Dieser Code enthält den Namen für Ihre Arbeitsmappe.

Schritt 7: Geben Sie den Code ein, mit dem die im Laufwerk D des Computers gespeicherte Arbeitsmappe geöffnet werden kann.

Code:

 Sub Open_workbook () Workbooks.Open Filename: = "D: \ Test File.xlsx" End Sub

Schritt 8: Führen Sie den Code aus, indem Sie die Taste F5 drücken oder auf die Wiedergabetaste klicken. Nach dem Ausführen des Makros wird die Excel-Datei automatisch geöffnet. Wie Sie im obigen Code sehen können, öffnet das Makro die Excel-Datei mit dem Namen "Test File.xlsx", die auf dem Laufwerk D des Computers gespeichert ist. Der oben erwähnte Pfad ist recht einfach, da keine Ordner und Unterordner zum Abrufen der Arbeitsmappen vorhanden sind.

Dies wird zu einer Herausforderung, da sich viele Benutzer nicht an den Pfad erinnern. Wenn sich der Pfad der Datei, in der sie gespeichert ist, ein wenig ändert, funktioniert das Makro nicht. Das Makro funktioniert auch dann nicht, wenn sich der Name der Datei um einen Buchstaben ändert. Wenn sich der Pfad / Name der Datei ändert, müssen Sie den VBA-Code des Makros ändern. Dies macht den Job mühsam und ist auch nicht fehlerfrei. Um sicherzustellen, dass Ihr Makro fehlerfrei ausgeführt wird, verwenden wir die zweite Methode, die einfach zu handhaben ist und auch dann keine Fehler ausgibt, wenn Sie sich nicht an den Pfadnamen erinnern oder wenn sich der Name der Datei ändert .

Methode 2 - Offenen Dateinamen abrufen

Wie Sie wissen, sind bei der Methode First für die Änderung des Pfads und des Dateinamens beide Herausforderungen zu bewältigen. Diese Methode bietet die Möglichkeit, auf Ihrem Computer zu dem Speicherort zu navigieren, an dem Ihre Datei gespeichert ist, und die bestimmten Arbeitsmappen zu öffnen, die Sie öffnen möchten.

Diese Methode funktioniert tatsächlich in zwei Teilen.

Der erste Teil dieser Methode ist Application.GetOpenFileName. In diesem Teil können Sie Ihren Computer durchsuchen und den Pfad auswählen, in dem Ihre Datei gespeichert ist. Der erste Teil öffnet nicht die Datei, die Sie öffnen möchten.

Der zweite Teil ist das Öffnen der Datei, für die Sie noch von der ersten Methode abhängig sein müssen (VBA Workbooks.open-Methode). Es gibt 5 Argumente in der Application.GetOpenFileName, aber es werden nur die Grundlagen betrachtet, wie wir es in der ersten Methode getan haben. Versuchen wir nun, diese Methode anhand eines Beispiels zu verstehen.

Beispiel

Angenommen, Sie möchten die im Laufwerk D des Computers gespeicherte „Testdatei“ öffnen, dann müssen Sie nur die folgenden Schritte ausführen.

Schritt 1: Befolgen Sie Schritt 1, der im ersten Beispiel zum Öffnen des Visual Basic-Editors oder zum Öffnen des Visual Basic-Editors auf der Registerkarte "Entwickler" erwähnt wurde.

Schritt 2: Geben Sie den folgenden Code ein, der den Namen für Ihr Makro enthält.

Code:

 Sub Open_workbook_example2 () End Sub

Schritt 3: Geben Sie den folgenden Code ein. Diese Anweisung deklariert den Dateinamen als Variable, da hier kein Pfad oder Dateiname angegeben wird, da er sich von Zeit zu Zeit ändern kann.

Code:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant End Sub

Schritt 4: Geben Sie den folgenden Code ein. Diese Anweisung öffnet das folgende Dialogfeld und Sie können die Ordner durchsuchen, um zu dem Pfad zu gelangen, in dem die Datei gespeichert ist. Außerdem wird die Excel-Datei beim Browsen angezeigt, da wir einen Filter für die Excel-Dateien eingerichtet haben.

Code:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") End Sub

Schritt 5: Geben Sie den folgenden Code ein. Diese Anweisung lautet If Then und wird verwendet, wenn die Datei .Name ungleich false ist. Öffnen Sie dann die ausgewählte Excel-Datei.

Code:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") If Myfile_Name False Then Workbooks.Open Filename: = Myfile_Name End Sub

Schritt 6: Geben Sie den folgenden Code ein. Diese Anweisung schließt die If then-Bedingung im Makro.

Code:

 Sub Open_workbook_example2 () Dim Myfile_Name As Variant Myfile_Name = Application.GetOpenFilename (FileFilter: = "Excel Files (*. Xl *), *. Xl *)") If Myfile_Name False Then Workbooks.Open Subname: = Myfile_Name End If End

Schritt 7: Führen Sie nun den Code aus, indem Sie die Taste F5 drücken oder auf die Wiedergabetaste klicken. Das Dialogfeld zum Durchsuchen der Datei wird geöffnet. Navigieren Sie zu dem Desktop, auf dem Ihre Datei gespeichert ist. Jetzt können Sie die Datei im Laufwerk D sehen. Wählen Sie die Datei aus und klicken Sie auf Öffnen.

Wie wir gerade in unserem Beispiel gesehen haben, müssen wir uns keine Gedanken mehr über den Dateinamen und den Pfadnamen machen, unter dem die Datei gespeichert ist. Wir können einfach zu dem Ordner navigieren, in dem unsere Datei gespeichert ist, und die Datei auswählen, die wir öffnen möchten. Daraus lässt sich leicht schließen, dass diese Methode im Vergleich zur ersten Methode wesentlich effizienter ist.

Dinge, an die man sich erinnern sollte

  • Stellen Sie sicher, dass der Pfadname und der Dateiname korrekt sind, während Sie die erste Methode verwenden. Das Makro funktioniert nicht, wenn sich der Pfad oder der Dateiname durch Buchstaben oder Leerzeichen ändert.
  • Stellen Sie sicher, dass die Filter, die in dem Code in der 2. Methode erwähnt werden, korrekt sind. Es gibt viele Excel-Formate, die aufgrund eines Filters möglicherweise nicht angezeigt werden.
  • Stellen Sie sicher, dass die Deklaration und der Code in der VBA richtig sind, um Fehler zu vermeiden.

Empfohlene Artikel

Dies ist eine Anleitung zu VBA Workbook Open. Hier werden zwei verschiedene Methoden zum Öffnen einer Arbeitsmappe mit Excel VBA-Code sowie praktische Beispiele und eine herunterladbare Excel-Vorlage erläutert. Sie können sich auch die folgenden Artikel ansehen, um mehr zu erfahren -

  1. Vollständiger Leitfaden zur VBA-Arbeitsmappe
  2. HYPERLINK-Formel in Excel
  3. Öffnen Sie Dateien mit VBA FileDialog
  4. Beispiele für Excel-Tabellen

Kategorie:

VBA