Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textdatei ergänzen

Textdatei ergänzen
14.10.2007 13: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
Anzeige
AW: Textdatei ergänzen
14.10.2007 23: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.
14.10.2007 23:37:31
Klaus
.

AW: Textdatei ergänzen
14.10.2007 23: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


Anzeige
AW: Textdatei ergänzen
14.10.2007 23:54:41
Klaus
Hi
Ich danke Dir für den Ansatz. Heute habe ich aber keinen Nerv mehr.
Werde mich aber zurückmelden.
Gruss
Klaus K.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige