Textdateien- bei Ausgabe . zusammenfassen

Bild

Betrifft: Textdateien- bei Ausgabe . zusammenfassen von: Peter
Geschrieben am: 05.02.2005 12:48:45

Hallo,
es liegen mehere Textdateien mit dem gleichen Aufbau vor.
Ich möcht diese Textdateien mit dem Namen: Probe1.txt, Probe3.txt,Probe4.txt und
Probe5.txt in das Arbeitsblatt "Zusammen" untereinander einlesen.
Die Spaltenüberschrift steht in Spalte 4.

Wer kann helfen?
Peter

Bild


Betrifft: AW: Textdateien- bei Ausgabe . zusammenfassen von: alex
Geschrieben am: 07.02.2005 12:14:23

könnte so funktionieren, wenn ich dich richtig verstanden habe.
keine Ahnung welche trennzeichen verwendet werden, also stehen in diesem BEispiel
die daten alle in einer spalte, kann ja anschließend mit text in spalten bearbeitet werden.

zu öffnene dateien mit
dateiarray = Application.GetOpenFilename(, , , , True)
kann man/sollte man das multiselect einschalten
vba schreibt die dateien in array

schleife über die ausgewählten dateien
zähler2=0
sheets("Zusammen").select
range("A1").select
for i=1 to ubound(Dateiarray)

'Datei1 mit pfad
zähler =0

zähler2=zähler2+1
Open "DATEI1" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1,zeichen1
zähler=zähler +1
activecell.offset(zähler2,0).value=zeichen1 'schreibt daten untereinander in blatt
Loop
Close #1 ' Datei schließen.



next


Bild


Betrifft: AW: Textdateien- bei Ausgabe . zusammenfassen von: alex
Geschrieben am: 07.02.2005 13:00:08

kleiner Fehler
Datei1 muß dateiarray(i) sein


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textdateien- bei Ausgabe . zusammenfassen"