Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Viele Textdateien einlesen (nur erste Zeile)

Forumthread: Viele Textdateien einlesen (nur erste Zeile)

Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 09:32:00
Christian
Hallo,
ich habe in einem Verzeichnis 500 Textdateien.
Diese möchte ich gerne mittels Excel-Makro wie folgt einlesen:
In jede Excel Spalte soll die erste Zeile einer Textdatei geschrieben werden,
so das ich nach dem Import in Excel 500 Zeilen habe.
Ist das möglich?
Vielen Dank
Christian

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 09:38:40
Oberschlumpf
Hi Christian
2 Fragen.
1. "In jede Excel Spalte soll....so das ich nach dem Import in Excel 500 Zeilen habe"
Nach dem obigen Zitat hättest du dann 500 Spalten in einer Zeile - soll das so sein?
Oder gilt für dich doch der 2. Zitatteil - wirklich jede erste Zeile der Textdatei in die nächste Zeile der Excel-Tabelle? - dann werden es 500 Zeilen.
2. Soll die erste Zeile aus jeder Textdatei immer nur in die erste Spalte geschrieben werden, oder soll die Zeile aus Textdatei in n viele Spalten aufgeteilt werden? - für letzteres wäre eine Bsp-Zeile aus Textdatei schön und eine Erklärung, wie die Zeile in Spalten aufgeteilt werden soll.
Ciao
Thorsten

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 09:57:14
Christian
Hi Thorsten,
ich brauche nur die erste Zeile (wobei das egal ist, es kann auch die letzte sein) jeder Textdatei
in eine eigene Excel Spalte (die Bearbeitung nehme ich dann selbst vor).
Also A1, A2, A3 usw. in B steht nix und A wird wahrscheinlich sehr breit :-)
Gruß
Christian

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 09:57:00
Christian
Hi Thorsten,
ich brauche nur die erste Zeile (wobei das egal ist, es kann auch die letzte sein) jeder Textdatei
in eine eigene Excel Spalte (die Bearbeitung nehme ich dann selbst vor).
Also A1, A2, A3 usw. in B steht nix und A wird wahrscheinlich sehr breit :-)
Gruß
Christian

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 10:19:57
Oberschlumpf
Hi Christian
Versuch es mal mit diesem Makro:

Sub TxtZeile()
Dim liZeile As Integer, lstrFile As String, lstrZeile As String
liZeile = 1
lstrFile = Dir(ThisWorkbook.Path & "\*.txt")
If lstrFile = "" Then MsgBox "In diesem Verzeichnis sind keine Txt-Dateien": Exit Sub
Do Until lstrFile = ""
Open ThisWorkbook.Path & "\" & lstrFile For Input As #1
Line Input #1, lstrZeile
Range("A" & liZeile).Value = lstrZeile
Close
lstrFile = Dir
liZeile = liZeile + 1
Loop
End Sub


Die leere Excel-Datei mit obigem Makro muss in dem Verzeichnis mit den ganzen Txt-Files gespeichert sein und gestartet werden.
Die Txt-Zeilen werden in das Tabellenblatt eingelesen, in dem du das Makro aufrufst.
Konnte ich helfen?
Ciao
Thorsten

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 10:26:00
Christian
jawohl, das klappt und hilft mir sehr weiter, danke nochmal!
Nun das Sahnehäubchen: Es wäre super wenn links neben dem Datensatz auch noch das Datum der jeweiligen Datei stehen würde ;)
Christian

AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 10:30:42
Oberschlumpf
hmm...
Hi Christian
Warum schreibst du das nicht gleich mit auf?
So kann es nämlich sein, dass der ganze Code umgeschrieben werden muss - wir (ich) helfen ja gerne, aber auch in nem Forum wird überflüssige Arbeit nicht gern gemacht - und wenn mein erster Code umgeschrieben werden muss, ist er ja überflüssig, weil nicht mehr brauchbar.
Vielleicht fällt mir ne Lösung für dein Datum ein - weiss ich noch nich.
Ciao
Thorsten

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 10:47:25
Oberschlumpf
Hi Christian
Versuch es so:

Sub TxtZeile()
Dim liZeile As Integer, lstrFile As String, lstrZeile As String
Dim FSObjekt As Object, FObjekt As Object
liZeile = 1
lstrFile = Dir(ThisWorkbook.Path & "\*.txt")
If lstrFile = "" Then MsgBox "In diesem Verzeichnis sind keine Txt-Dateien": Exit Sub
Do Until lstrFile = ""
Set FSObjekt = CreateObject("Scripting.FileSystemObject")
Set FObjekt = FSObjekt.GetFile(ThisWorkbook.Path & "\" & lstrFile)
Open ThisWorkbook.Path & "\" & lstrFile For Input As #1
Line Input #1, lstrZeile
Range("A" & liZeile).Value = Left(FObjekt.DateLastModified, 8) & " - " &  _
lstrZeile
Close
lstrFile = Dir
liZeile = liZeile + 1
Loop
Set FSObjekt = Nothing
Set FObjekt = Nothing
End Sub


Konnte ich helfen?
Ciao
Thorsten
P.S. besser ist es, gleich sofort alle Anforderungen/Wünsche aufzuführen, um unnötige Arbeiten zu verhindern

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 11:06:00
Christian
Nit dem Datum funktioniert es auch.
Wenn ich den Lauf mit allen Daten laufen lasse (habe eben nur mit 5 getestet), kommt nach ca. 300 Datensätzen ein Laufzeitfehler 62: Einlesen hinter Dateiende.
Die übergebenen Daten weisen folgenden Fehler auf:
liZeile = 1 ok
lstrFile = endet mit 877 Datei gibt es aber nicht
lstrZeile = Inhalt der Datei mit Endung 876

Anzeige
AW: Viele Textdateien einlesen (nur erste Zeile)
31.05.2007 11:49:00
Oberschlumpf
Hi Christian (auch du kannst deine Antworten ruhig mit -Begrüßung Name- beginnen...kommt freundlicher rüber, und so viel Zeit muss sein)
Noch verstehe ich den Fehler nicht.
Wie genau heißen deine Textdateien?
"876.txt" oder "name.876"
Weil du von "Endung" schreibst - mit Endung sind normalerweise die 3 Zeichen im Dateinamen hinter dem Punkt gemeint.
Auf jeden Fall aber läuft der Code so ab:
(beginnend bei lstrFile = Dir(ThisWorkbook.Path & "\*.txt") )
1. der Variable lstrFile wird der Name der ersten txt-Datei im angegebenen Verzeichnis übergeben
2. die Datei wird geöffnet (Open...), die erste Zeile wird eingelesen (Line Input..), die Datei wird geschlossen (Close)
3. mit lstrFile = Dir....erhält die Variable lstrFile den Namen der nächsten txt-Datei aus dem gleichen Verzeichnis
4. Schritt 2 und 3 wiederholen sich so oft, bis die Variable lstrFile den Wert "" erhält. Dann nämlich wurden im zuvor angegebenen Verzeichnis alle txt-Dateien abgearbeitet.
Den Code habe ich getestet, und alles lief wie gewünscht.
Daher verstehe ich den Fehler (noch) nicht.
Beschreib deine txt-Dateien mal bitte etwas genauer.
Name der Datei, Inhalt und Aufbau
Ciao
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Anzeige
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Anzeige
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Import von daten aus txt file
daten

Guten Morgen an alle VBA-Aktivisten
Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
10.10.2008 09:07:22
Thread-ID: 1015499
6 Beiträge
Neuanordnung von Quelldaten aus Spalte in Zeile
Quelldaten

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich habe zwei Excelspalten mit Daten.
Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
Spalte 1___Spalt...
10.10.2008 15:05:18
Thread-ID: 1015600
7 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige