Tabelle in Textdatei schreiben
16.11.2006 19:04:13
Krotter
ich möchte eine sehr lange Tabelle in eine Textdatei schreiben. Für bis zu ca. 300 Zeilen klappt das auch wunderbar; aber wie gesagt, die Tabelle ist sehr lang (mehrere tausend Zeilen). Ich verwende folgendes Makro:
Sub TextdateiErstellen()
Dim i As Integer
Dim e As Integer
Dim s As Variant
Sheets("Tabelle1").Activate
Open "C:\Dokumente und Einstellungen\NN\Desktop\Kurse.txt" For Output As #1
For i = 1 To 300
For e = 1 To 3
On Error Resume Next
s = s + Cells(i, e) & ";"
Next e
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
Next i
Close #1
End Sub
Vermutlich läuft die Variable s "über". Wie kann man das Problem beheben?
Danke für Eure Hilfe!
Anzeige