Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Einzelne Daten aus einer txt datei untereinander

Einzelne Daten aus einer txt datei untereinander
26.06.2002 15:03:35
Manuel
Hallo Excel-Welt,

ich habe ein problem, wie bekomme ich es hin das ich die einzelnen zeilen der textdatei auch in excel in eine neue Zeile bekommen, also ich meine das wenn ich eine txt einlese und die erste zeile der txt auch in einer zelle in excel wiedergegeben wird und die zweite zeile in die Zelle dadrunter wiedergegeben wird. ich denke das es irgendwie möglich sein muss... aber mir fällt irgendwie keine möglichkeit ein.


Sub Auslesen()
Dim arrFiles As Variant
Dim intCounter As Integer, intCol As Integer
Dim strPath As String, txt As String
strPath = "c:\temp\"
arrFiles = FileArray(strPath, "*.txt")
Close
For intCounter = 1 To UBound(arrFiles)
Cells(intCounter, 1) = arrFiles(intCounter)
Open strPath & arrFiles(intCounter) For Input As #1
intCol = 1
Do Until EOF(1)
Line Input #1, txt
intCol = intCol + 1
Cells(intCounter, intCol) = txt
Loop
Close
Next intCounter
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
If intCounter = 0 Then
ReDim arrDateien(1)
arrDateien(1) = False
End If
FileArray = arrDateien
End Function


Danke schonmal!!!

Manuel

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einzelne Daten aus einer txt datei untereinander
26.06.2002 15:37:44
Michael Scheffler
Hallo,

wo liegt denn Dein Problem. Der Ansatz sieht ja erst mal gut aus.

Bitte erläutern.

Gruß

Micha


Re: Einzelne Daten aus einer txt datei untereinander
27.06.2002 11:41:13
Manuel
Naja, es ist so das ich den datei inhalt nicht nebeneinander zu sehen bekomme, sondern untereinander, d.h. jede Zeile in der txt ist auch eine zelle in der excel tabelle. die Zellen sollen aber untereinander und nicht nebeneinander sein.

kennst du eine lösung?

Manuel

Anzeige

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige