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