Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
25.09.2025 16:01:26
VBA - Laufzeitfehler 9105 zu viele Zeichen 255
25.09.2025 14:32:49
Excel-Dateien zusammen führen (Tabellen)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei ergänzen

Forumthread: 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

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige