Textdatei ergänzen

Forumthread: Textdatei ergänzen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textdatei ergänzen

Textdatei ergänzen

14.10.2007 15:54:33

Klaus

Hallo Excel-Profis.
Ich habe eine Textdatei mit verschiedenen Informationen die durch Semikolon getrennt sind. Mittels VBA sollen nun weitere Informationem am Ende angefügt werden.
Dabei sollen die bereits bestehenden Informationen NICHT erneut in den Arbeitsspeicher geladen werden, um diese zusammen mit den neuen Informationen wieder zu speichen. Bei Textdateien zwischen 50 und 200 MB wird das mit einem betagten PC etwas schwierig ;-)
Gibt es da eine Möglichkeit, ahnlich wie bei Datenbanken in eine Textdatei zu schreiben OHNE diese zuöffnen?
Ich bin für jeden Ansatz dankbar!
Gruss
Klaus

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textdatei ergänzen

15.10.2007 01:28:00

Horst
OK, OK. Trotzdem Danke. o.T.

15.10.2007 01:37:31

Klaus
AW: Textdatei ergänzen

15.10.2007 01:42:02

fcs
AW: Textdatei ergänzen

15.10.2007 01:54:41

Klaus

AW: Textdatei ergänzen

15.10.2007 01:28:00

Horst

Hi,
"...Gibt es da eine Möglichkeit, ahnlich wie bei Datenbanken in eine Textdatei zu schreiben OHNE diese zuöffnen?..."
Nein, nein, nein, drei mal nein.
mfg Horst

OK, OK. Trotzdem Danke. o.T.

15.10.2007 01:37:31

Klaus

AW: Textdatei ergänzen

15.10.2007 01:42:02

fcs

Hallo Klaus,
die einzige Möglichkeit wäre mit "Append" zu arbeiten. Ich hab allerdings keine Ahnung wie stark bei großen Textdateien dabei der Arbeitsspeicher/die Windows-Auslagerungs von dem zu öffnenden Datenkanal beansprucht wird.
Kann dann zum Beispiel wie folgt aussehen.
Gruß
Franz


Sub Test()
Dim strDatei$, Sep$, wks As Worksheet, Zeile As Long, strText
strDatei = "C:\Test\TestDatei.txt"
Sep = ";"
Set wks = ActiveSheet
With wks
Open strDatei For Append As #1
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
'ob Text- oder Value-Eigenschaft der Zellen in die Textdatei geschrieben wird wertabhängig.
'Bei Datum- und Zeitwerten ist Text meist besser, da die Info sonst als _
Dezimalzahl (Excel-internes Datumsformat) gespeichert wird.
strText .Cells(Zeile, 1).Text & Sep & .Cells(Zeile, 2).Text & Sep & .Cells(Zeile, 3).Text
Print #1, strText
Next
Close #1
End Sub