Microsoft Office Tutorials and References
In Depth Information
9.1.3 Schreiben in Textdateien
Sub ZeilenSchreiben()
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle1").Activate
On Error GoTo Fehler
' Datei öffnen zum Schreiben
Open ThisWorkbook.Path & "\aus.txt" _
For Output As 1
Fori=1To5
' Zeile schreiben
Print #1, Cells(i, 1).Value
Next i
' Datei schließen
Close 1
Exit Sub
Fehler:
MsgBox (Err.Description)
End Sub
Das Ergebnis:
Abbildung 9.6
Exportierte Daten
Zur Erläuterung:
Die Datei aus.txt im gleichen Verzeichnis wird mit Hilfe von Open und
Output zum Schreiben geöffnet.
Open
Falls die Datei bereits existiert, wird sie ohne Vorwarnung überschrie-
ben!
Überschreiben
Mit dem Dateimodus Append statt Output könnten Sie dafür sorgen,
dass neue Inhalte ans Ende der Datei angehängt werden.
Append
Die Anweisung Print sorgt für die Ausgabe einer Zeile in die Datei.
Print
Auch nach dem Schreiben muss die Datei mit Close wieder geschlos-
sen werden.
Close
Search JabSto ::




Custom Search