Export of data sets with VBA in Microsoft Excel

With Excel it is also possible to save data from a spreadsheet in a text file. Similar to the import, however, the following applies: If further program logic has to be built in, you cannot avoid your own export program. Own export program The following program should serve as a basic framework for such an export program.
Es schreibt sogenannte CSV-Dateien. Wie bereits erläutert: Das sind Dateien mit einem Datensatz pro Zeile. Die Daten des Datensatzes sind durch festgelegte Zeichen (z. B. Semikolon) voneinander getrennt. CSV-Datei Das Schreiben von Datensätzen in Textdateien können Sie vereinfachen, indem Sie vorher die Daten zu einer String mit Trennzeichen zusammenfügen. Dazu nutzen Sie die bereits bekannte Funktion Join().

Sub DatensaetzeSchreiben()
Dim i As Integer, k As Integer
Dim T(1 To 5) As String
ThisWorkbook.Worksheets("Tabelle2").Activate
On Error GoTo Fehler
' Datei öffnen zum Schreiben
Open ThisWorkbook.Path & "\ausdaten.txt" _
For Output As 1
For i = 1 To 3
For k = 1 To 5
T(k) = Cells(i, k).Value
Next k
' Zusammengefügte Zeile schreiben
Print #1, Join(T, "#")
Next i
' Datei schließen
Close 1
Exit Sub
Fehler:
MsgBox (Err.Description)
End Sub

All data in the table is read in a double loop. After each line, the data of the relevant line is combined with the help of the Join () function and a separator (this time the # character).

Was the explanation to "Export of data sets with VBA in Microsoft Excel"Helpful? Rate now:

Weitere Erklärungen zu Skriptsprachen