Gewusst wie: Schreiben von Visual Basic-Array-Daten in eine Textdatei in Excel

Microsoft Visual Basic für Applikationen (VBA) von Microsoft entwickelt wurde und es wird häufig verwendet, um Routineaufgaben in Microsoft Office-Anwendungen automatisieren. Ein Datenarray in der Programmierung ist eine Variable, die mehrere Elemente zum Speichern von Informationen verfügen kann. Ein Array ist nützlich, wenn Sie sparen 100 Datenpunkte--anstatt 100 verschiedene Variablen, die die Datenpunkte in einer Arrayvariablen gespeichert werden können müssen. In wenigen Schritten können Sie Informationen aus Excel in ein Array speichern und in eine Textdatei zu schreiben.

Anweisungen

1 Starten Sie Microsoft Office Excel, und geben Sie "1" in "A1." Geben Sie "2" in "A2", "3" in "A3" und "4" in "A4."

2 Wählen Sie die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic." Maustaste auf "Microsoft Excel Objekte" und wählen Sie "Einfügen", dann auf "Module".

Typ "Private Sub saveDataArray()" erstellen eine Unterroutine und drücken "Enter."

3 Geben Sie Folgendes ein, um Variablen deklarieren:

Dim TxtFileNum As Integer

Dim dataArray(5) As String

Dim xLoop As Integer

4 Geben Sie Folgendes ein, um eine neue Textdatei erstellen:

Öffnen Sie "C:\myTextFile.txt" für Anfügen als #txtFileNum

Ersetzen Sie "C:\myTextFile.txt" mit dem Dateinamen Ihrer Wahl.

5 Geben Sie Folgendes ein, um durchlaufen die Daten in Excel, und speichern Sie es auf Ihrem Array:

Für xLoop = 1 bis 4

Range("A" & xLoop).Select

dataArray(xLoop) = Range("A" & xLoop).Value

Nächste xLoop

6 Geben Sie Folgendes ein, um das Array durchlaufen und speichern Sie die Daten in der Textdatei:

Für xLoop = 1 bis 4

Print #txtFileNum, dataArray(xLoop)

Nächste xLoop

7 Geben Sie Folgendes ein, um die Textdatei zu schließen:

Schließen #txtFileNum

Mit "F5" Unterroutine ausgeführt.