Excel 2003 und txt-Import

[The_Strip]

Hi!
Ich habe hier eine reihe von txt-Dateien folgenden Schemas:
Contact: +491234567
Date: 20.09.2006 20:31
blablub
Das hätte ich jetzt gerne in einer Excel-Tabelle und zwar Nummer, Datum, Uhrzeit und Text jeweils in einer extra Spalte. Wenn ich die Dateien mit Excel öffne, macht er das schon so, dass ich mit etwas Weiterbearbeitung dahin kommen würde, aber wie kann ich die einzelnen Tabellen in eine einzige zusammenführen? Er öffnet immer jede Datei einzeln und ich müsste jedesmal bestätigen, wie ichs gerne hätte und dann alles kopieren und einfügen, das muss doch einfacher gehen?!

Danke schon mal, The_Strip

[Corny]

ich hab hierzu mal folgendes script im internet gefunden. Es hängt mehrere Textdateien zu einer zusammen:

'Programm: JoinTextdateien.vbs
'Zweck: Fügt in einem vorgegebenen Verzeichnis alle Dateien zusammen.
'Autor: mfi
'geändert: 29.01.03

'Konstanten
'==========
'Pfad zu den Textdateien:
Const PFAD="C:\Dokumente und Einstellungen\xxx\Desktop\test\"
'Endung der Textdatei:
Const ENDUNG="txt"
'Standardausgabeverzeichnis - und datei:
Const AUSGABE="C:\Dokumente und Einstellungen\xxx\Desktop\test\Ausgabe.txt"
'Variablen
'=========
Private strDatei 'as String
Private fsoDateisystem 'as FileSystemObject
Private i 'as Integer
Private flDateiOut 'as File
Private flDateiIn 'as File
Private fol 'as Folder
Private wsSkriptumgebung 'as Shell

'Objektinitialisierung
Set wsSkriptumgebung = WScript.CreateObject("WScript.Shell")
Set fsoDateisystem = WScript.CreateObject("Scripting.FileSystemObject")
'Output Datei löschen, falls vorhanden
If fsoDateisystem.FileExists(AUSGABE)=true Then
Set flDateiOut=fsoDateisystem.GetFile(AUSGABE)
flDateiOut.Delete
End If
'Den MS-Dos Befehl ausführen.
wsSkriptumgebung.Run ("%comspec% /c copy """ & PFAD & "*." & _
ENDUNG & """ """ & AUSGABE & "")


das ganze in eine textdatei speichern und die dateiendung auf vbs ändern. die pfade musst du natürlich anpassen.

[The_Strip]

Danke, das machts schon mal wesentlich einfacher!