Microsoft Office Tutorials and References
In Depth Information
9.1.4 Export von Datensätzen
9.1.4
Export von Datensätzen
Mit Excel ist auch das Abspeichern von Daten aus einem Tabellenblatt in
einer Textdatei möglich. Ähnlich wie beim Import gilt allerdings: Falls
weitere Programmlogik eingebaut werden muss, kommen Sie nicht an
einem eigenen Exportprogramm vorbei.
Eigenes Export-
programm
Das folgende Programm soll als Grundgerüst für ein solches Export-Pro-
gramm dienen. Es schreibt sogenannte CSV-Dateien. Wie bereits erläu-
tert: Das sind Dateien mit einem Datensatz pro Zeile. Die Daten des
Datensatzes sind durch festgelegte Zeichen (z. B. Semikolon) voneinan-
der getrennt.
CSV-Datei
Das Schreiben von Datensätzen in Textdateien können Sie vereinfachen,
indem Sie vorher die Daten zu einer Zeichenkette mit Trennzeichen
zusammenfügen. Dazu nutzen Sie die bereits bekannte Funktion Join() .
Zunächst die Tabelle:
Join()
Abbildung 9.7
Tabelle, die exportiert werden soll
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
Fori=1To3
Fork=1To5
T(k) = Cells(i, k).Value
Next k
' Zusammengefügte Zeile schreiben
Print #1, Join(T, "#")
Next i
Search JabSto ::




Custom Search