Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Dateien in eine Tabelle

Mehrere Dateien in eine Tabelle
18.07.2008 11:30:31
chrisss
Hi
Ich habe folgende Frage. Unsere Telefonanlage spukt jeden Tag eine eine txt-Datei mit den täglichen Telefongesprächen aus. D.h. ich habe am Ende des Monats 30 bzw. 31 Dateien in einem Ordner liegen. Nun möchte ich alle Dateien aus diesem Ordner automatisch in eine Tabelle einlesen lassen. Wie kann ich das realisieren?
Vielen Dank
Chris

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Dateien in eine Tabelle
18.07.2008 11:45:00
Tino
Hallo,
mit diesem Code kannst du alle Textdateien aus einem Ordner einlesen.

Sub TXT_In_Excel()
Dim FName$
FName = Dir("C:\Meine TextDateien\*.txt") 'Pfad angeben
While FName  ""
'hier dein Code zum einlesen
FName = Dir()
Wend
End Sub


Für einen Code zum einlesen müsste man den Aufbau einer solchen Textdatei kennen.
Gruß Tino

www.VBA-Excel.de


AW: Mehrere Dateien in eine Tabelle
18.07.2008 11:48:54
chrisss
Vielen Dank für die schnelle Antwort.
Wenn es um den Aufbau der Dateien geht, würden da die Spaltenbeschriftungen reichen?

Anzeige
AW: Mehrere Dateien in eine Tabelle
18.07.2008 11:54:15
Tino
Hallo,
stell doch einen Ausschnitt einer Textdatei unverfälscht hier rein.
Damit kann man besser arbeiten.
Gruß Tino

www.VBA-Excel.de


AW: Mehrere Dateien in eine Tabelle
18.07.2008 12:04:19
chrisss
Hallo
Anbei eine txt-datei im Orginalzustand mit einer Zeile. Leider sind Spaltenbeschriftung und die einzelnen Zeilen in der Text-Datei nicht untereinander. Wenn diese aber in Excel importiert werden, passt es.
https://www.herber.de/bbs/user/53942.txt
Jede einzelne Datei hat unterschiedlich viel Inhalt bzw. Zeilen.

Anzeige
AW: Mehrere Dateien in eine Tabelle
18.07.2008 12:47:38
Tino
Hallo,
hier mal ein Beispiel, die Excel- Datei befindet sich im Ordner der Textdateien.
Zwischen jeder Datei wird eine Leerzeile eingefügt.

Option Explicit
Dim lngRow As Long
Sub TXT_In_Excel()
Dim FName As String
Dim strPfad As String
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Cells.ClearContents
lngRow = 0
strPfad = _
IIf(Right$(ThisWorkbook.Path, 1) = "\", _
ThisWorkbook.Path & "", _
ThisWorkbook.Path & "\")
FName = Dir(strPfad & "*.txt") 'Pfad angeben
While FName  ""
ZeileLesen (strPfad & FName)
lngRow = lngRow + 1
FName = Dir()
Wend
.ScreenUpdating = False
.DisplayAlerts = False
End With
End Sub
Public Function ZeileLesen(DateiPfad As String)
Dim DateiNr As Long
Dim strZeile As String
DateiNr = FreeFile
Open DateiPfad For Input As #DateiNr
Do Until EOF(DateiNr)
Line Input #DateiNr, strZeile
lngRow = lngRow + 1
Cells(lngRow, 1) = strZeile
Cells(lngRow, 1).TextToColumns Destination:=Cells(lngRow, 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False
Loop
Close #DateiNr
End Function


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Mehrere Dateien in eine Tabelle
18.07.2008 12:05:06
joko0803
Hallo,
warum Excel vergewaltigen, wenn so was auf der Eingabeebene so toll geht?
Start > Ausführen > cmd
dann wie folgt eingeben:
z.B. Die Dateien stehen auf c:\temp\Telefon04\
copy c:\temp\Telefon04\*.txt c:\temp\Telefon04\summe.txt
klappt bestens.
John

AW: Mehrere Dateien in eine Tabelle
18.07.2008 12:39:14
chrisss
Das war ja mal ein cooler Tip, Danke

AW: Mehrere Dateien in eine Tabelle
18.07.2008 12:55:00
Tino
Hallo,
habt Ihr immer den kurzen Dos kompatiblen Pfad im Kopf? ;-)
Gruß Tino

www.VBA-Excel.de


152 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige