Ordner mit txt-Dateien in Excel importieren

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

ich habe eine Unmenge von Messdaten die im .txt-Format vorliegen und folgendermaßen aufgebaut sind:

Time,Ampl
-2.001929e-007,0.00881118
-1.991929e-007,0.0056113
-1.981929e-007,-0.00078845
-1.971929e-007,0.00881118
…

Zur vernünftigen Darstellung möchte ich die Datensätze in Excel2007 importieren. Ein Makro, was dieses tut, habe ich schon erstellt.
Hier das Makro:

Sub LII_Datenimport()

ChDir „D:\Eigene Dateien\TiRe-LII\Flammenreaktor\TiRe-LII-Experimente\Fe2O3“
’ Auswahlmaske vorbelegen
FileFilter = „Textdateien (*.txt), *.txt, Alle Dateien (*.*), *.*“
’ Standarddialog Öffnen aufrufen
fname = Application.GetOpenFilename(FileFilter, 1, „Zu importierende txt-Datei…“)
If fname = False Then Exit Sub

’ Hier was wie WorkBooks.Open oder WorkBooks.OpenText anfügen, z.B.:
Workbooks.OpenText Filename:=fname, Origin:=xlMSDOS, StartRow:=6, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1)), DecimalSeparator:=".", ThousandsSeparator _
:=" ", TrailingMinusNumbers:=True

End Sub

Allerdings muss man es für jede txt-Datein neu ausführen…Pro Messkampagne kommen schnell hundert
Messdateien zusammen, so dass das ziemlich mühselig ist!
Am leibsten wäre es mir, wenn ich nur den Ordner auswählen müsste, in dem sich die txt-files befinden, und es wird in einem excel-sheet in Spalte A die Zeitspalte (time) und ,daneben (Spalte B, C, D, …) die Ampl-Spalte der txt-files eingelesen, da die time-Spalte meist für alle Dateien identisch ist! Wenn dann noch in Zeile 1 des neu angelegten Excel-Sheets über der Ampl-Spalte der jeweilige Dateiname des txt-files stehen würde, wäre es perfekt!!!
Ist es möglich das Speichern des neuen Excel-Sheets über den „Speichern unter“-Dialog zu vollziehen?

Über Eure Tips wäre ich mehr als dankbar!!!

Grüße,

Ben

#2

oder so

Sub dateienlesen()
Dim Pfad, fso, f, f1, fc, fo, n, z, x
Pfad = „c:/test“
Set fso = CreateObject(„Scripting.FileSystemObject“)
Set f = fso.GetFolder(Pfad)
n = 1
Set fc = f.Files
For Each f1 In fc
Set fo = fso.OpenTextFile(f1)
Cells(1, n) = f1.Name
z = 0
Do Until fo.AtEndOfStream
z = z + 1
x = fo.readline
Cells(1 + z, n) = Left(x, InStr(x, „,“) - 1)
Cells(1 + z, n + 1) = Mid(x, InStr(x, „,“) + 1, 1000)
Loop
fo.Close
n = n + 2
Next
End Sub