Schreiben Sie eine Textdatei in Excel VBA

Wir sind alle mit einer solchen Situation konfrontiert, in der wir riesige Datenmengen in Excel-Dateien speichern mussten, aber irgendwann hatten wir es mit der Situation zu tun, dass die Größe dieser Datei mit den riesigen Datenmengen so stark anstieg, dass wir sie in einen Text umwandeln mussten Datei. Aus diesem Grund konnten wir weder an dieser Datei arbeiten noch die Datei im Excel-Format speichern. Diese Situation haben wir in vielen Projekten gesehen, in denen wir die Daten aus der Datenbank extrahieren müssen. Das Extrahieren der Daten aus der Datenbank ist möglich, wenn Sie zu diesem Zweck eine Textdatei verwenden. Die Textdatei wird nicht geändert und wir können so viele Daten und Tabellen in einer einzigen Textdatei speichern, ohne die Datei zum Absturz zu bringen. Dazu müssen wir die Excel-Datei in eine Textdatei konvertieren. Obwohl es keine große Aufgabe ist, wenn es sich um eine sich wiederholende Aktivität handelt und die Ausführung sehr viel Zeit in Anspruch nehmen kann.

Um dies zu vermeiden, haben wir einen Prozess in VBA, mit dem wir die Excel-Datei in eine Textdatei konvertieren können, ohne die Daten zu beschädigen. Auf diese Weise können wir eine große Menge von Daten in der Textdatei speichern, indem wir auch die Dateigröße reduzieren und komprimieren.

Das Verständnis des VBA-Codes zum Schreiben der Textdatei ist recht komplex, aber nicht schwer zu verstehen.

Prozess gefolgt:

  • Dateipfad : Geben Sie den Pfad der Datei an, in der sich die Excel-Datei befindet.
  • Modus: Zu welchem ​​Zweck müssen wir die Datei öffnen. Dies kann der Nur-Lese-Modus oder der Schreibzweck sein, oder wir müssen ihn zum Anhängen der Daten verwenden.
  • Dateinummer: Auf diese Weise können wir die Anzahl der für eine Excel-Datei für eine Textdatei verwendeten Zeiten zählen.

Wie schreibe ich eine Textdatei in Excel VBA?

Anhand einiger Beispiele lernen wir, wie man eine Textdatei mit VBA-Code in Excel schreibt.

Sie können diese Excel-Vorlage für VBA-Schreibtextdateien hier herunterladen - Excel-Vorlage für VBA-Schreibtextdateien

Beispiel # 1 - VBA Write Text File

In diesem Beispiel wird gezeigt, wie der Dateispeicherort mit VBA-Code zugeordnet wird, um ihn über das Textdateiformat zu schreiben. Dafür brauchen wir ein Modul.

Schritt 1: Gehen Sie zur Menüoption Einfügen und wählen Sie Modul wie unten gezeigt aus.

Schritt 2: Schreiben Sie nun im geöffneten Modul die Unterkategorie von VBA Write Text, oder wählen Sie einen beliebigen Namen aus.

Code:

 Sub WriteTextFile2 () End Sub

Schritt 3: Deklarieren Sie im ersten Schritt der Codierung die Variable myFile als String (siehe unten).

Code:

 Sub WriteTextFile2 () Dim myFile As String End Sub

Schritt 4: Tragen Sie in die zugewiesene Variable den Speicherort der Datei ein, die von Excel nach Text konvertiert werden soll. Hier haben wir diese Datei als Test mit der Endung benannt. txt wie unten gezeigt.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB-Datei \ April-Dateien \ Endverzeichnis \ Final Input.txt" End Sub

Schritt 5: Wie wir in der Beschreibung der VBA Write-Textdatei gesehen haben, öffnen wir zuerst die Excel-Datei und hängen dann die Daten aus Excel an eine Textdatei mit der folgenden Befehlszeile an.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB-Datei \ April-Dateien \ Endverzeichnis \ Final Input.txt" Öffnen Sie myFile zum Anhängen als # 1 End Sub

Schritt 6: Lassen Sie uns nun einen Text in eine Textdatei einfügen, die wir wie unten gezeigt mit Hilfe von Write # 1 für die erste Tabelle sehen möchten. Wir haben einige zufällige Automarken mit Modellnamen und technischen Daten eingegeben.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB-Datei \ April-Dateien \ Endspeicherort \ Final Input.txt" Öffnen Sie myFile zum Anhängen als # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", End Sub

Schritt 7: Schließen Sie nun die erste Tabelle wie unten gezeigt.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB-Datei \ April-Dateien \ Endspeicherort \ Final Input.txt" Öffnen Sie myFile zum Anhängen als # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", Close # 1 End Sub

Schritt 8: Wir möchten die Nachricht auch sehen, wenn der Vorgang abgeschlossen ist.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = "D: \ VPB-Datei \ April-Dateien \ Endspeicherort \ Final Input.txt" Öffnen Sie myFile zum Anhängen als # 1 Write # 1, "Ford", "Figo", 1000, " miles ", 2000 Write # 1, " Toyota ", " Etios ", 2000, " miles ", Close # 1 MsgBox" Saved "End Sub

Schritt 9: Kompilieren Sie nun den Code und führen Sie ihn aus, indem Sie auf die Schaltfläche Abspielen unterhalb der Menüleiste klicken, wie unten gezeigt. Wenn kein Fehler gefunden wird, wird das Meldungsfeld mit der Meldung " Gespeichert" (siehe unten) angezeigt.

Schritt 10: Gehen Sie nun zu dem Ort, den wir im obigen Code erwähnt haben. Wir werden die Textdatei mit dem Namen Test sehen, wie unten gezeigt.

Um nun zu überprüfen, ob diese Textdatei dieselben Daten enthält, die wir über VBA eingegeben haben, öffnen Sie sie. Wir werden sehen, dass die gleichen Daten eingegeben wurden.

Beispiel # 2 - VBA Write Text File

Es gibt einen anderen Weg zur gleichen Arbeit.

Schritt 1: In diesem Beispiel wird derselbe Code verwendet, den wir oben geschrieben haben, der verwendete Code würde sich jedoch geringfügig ändern. Betrachten wir den gleichen Code wie in Beispiel 1.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = Open myFile For Append As Nr. 1 Write Nr. 1, "Ford", "Figo", 1000, "miles", 2000 Write Nr. 1, "Toyota", "Etios", 2000, "miles", Close # 1 MsgBox "Saved" End Sub

Schritt 2: Wählen Sie nun anstelle des Dateispeicherorts die aktive Arbeitsmappe mit ActiveWorkbook aus (siehe Abbildung unten).

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook. Öffnen Sie myFile zum Anhängen als # 1 Schreiben Sie # 1, "Ford", "Figo", 1000, "Meilen", 2000 Schreiben Sie # 1, "Toyota", "Etios", 2000, "Meilen", Schließen Sie # 1 MsgBox "Gespeichert " End Sub

Schritt 3: Wählen Sie nun den Pfad aus der Dropdown-Liste von ActiveWorkBook .

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path Open myFile For Append As Nr. 1 Write Nr. 1, "Ford", "Figo", 1000, "miles", 2000 Write Nr. 1, "Toyota", "Etios", 2000, "miles", Close # 1 MsgBox "Saved" End Sub

Schritt 4: Wählen Sie dann den Pfad aus, unter dem die Daten in die durch ein kaufmännisches Und-Zeichen getrennte Textdatei eingefügt werden sollen.

Code:

 Sub WriteTextFile2 () Dim myFile As String myFile = ActiveWorkbook.Path & "\ VPB File" Öffne myFile For Append As # 1 Schreibe # 1, "Ford", "Figo", 1000, "miles", 2000 Schreibe # 1, " Toyota ", " Etios ", 2000, " Meilen ", Close # 1 MsgBox" Saved "End Sub

Schritt 5: Kompilieren Sie nun den Code erneut und führen Sie ihn anschließend aus. Nach erfolgreichem Abschluss des Laufs erhalten wir die Nachricht als Gespeichert .

Gehen Sie nun wieder zu dem Pfad, in dem wir diese Datei gespeichert haben, die den Code enthält, und prüfen Sie, ob die Textdatei dort gespeichert ist oder nicht.

Öffnen Sie nun die Datei, um zu prüfen, ob die Daten ordnungsgemäß angehängt wurden oder nicht. Wir werden feststellen, dass die Daten auf ähnliche Weise wie in Beispiel 1 angehängt werden.

Vorteile von Excel VBA Write Text File

  • Wir müssen nicht einmal eine Datei öffnen, um die Daten anzufügen.
  • Wenn die Daten sehr groß sind, können wir die Daten von Excel an Text anhängen, ohne die Datei zu öffnen. Es ist also kein Problem, auch mit der Datei umzugehen.
  • Wenn wir mit dem in Beispiel 2 geteilten Prozess fortfahren, müssen wir nicht einmal den Pfad angeben, unter dem die ausgegebene Textdatei angezeigt werden soll.

Dinge, an die man sich erinnern sollte

  • In dem in Beispiel 1 gezeigten Prozess können wir die Datei an der Stelle platzieren, an der wir die Ausgabe sehen möchten.
  • In dem in Beispiel 2 gezeigten Prozess wird automatisch der Speicherort der Datei mit dem VBA-Code VBA Write Text File berücksichtigt.
  • Wir können die Daten sogar aus jeder Excel-Datei auswählen, die wir in die Textdatei konvertieren möchten.
  • Wir können beliebig viele als Tabelle auswählen und erstellen, die wir in die Textdatei einfügen möchten.

Empfohlene Artikel

Dies ist eine Anleitung zum Schreiben einer VBA-Textdatei. Hier erfahren Sie, wie Sie mit VBA-Code eine Textdatei in Excel schreiben, sowie praktische Beispiele und eine herunterladbare Excel-Vorlage. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA InStr erklärt mit Beispielen
  2. VBA Integer-Datentyp
  3. VBA ISNULL Mit Beispielen erklärt
  4. Transponieren Sie einen Bereich in VBA

Kategorie:

VBA