Einlesen von Textdateien

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Einlesen von Textdateien
von: Josef
Geschrieben am: 14.11.2003 09:11:15

Guten Morgen!

Ich habe in einem Ordner eine Menge Textdateien.
Ist es bitte möglich, mittels VBA den Namen der Textdateien sowie die erste Zeile in jeder Textdatei in Excel zu importieren?
Für eine Hilfe wäre ich dankbar.

Danke

Josef

Bild


Betrifft: AW: Einlesen von Textdateien
von: Michael
Geschrieben am: 15.11.2003 13:10:02

hi,
ich weiss leider nicht ob das in office 97 funzt
probiers einfach mal aus

cu mic


Sub test()
Set fs = Application.FileSearch
With fs
    .LookIn = "C:\Temp"
    .Filename = "*.txt"
    If .Execute > 0 Then
        MsgBox "Es wurden " & .FoundFiles.Count & _
            " file(s) gefunden"
        For i = 1 To .FoundFiles.Count
            Open .FoundFiles(i) For Input As #(FreeFile)
                    Line Input #1, Textzeile
                    Worksheets(1).Cells(i, 1) = Textzeile
            Close
        Next i
    Else
        MsgBox "Es wurden keine files gefunden"
    End If
End With
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " Einlesen von Textdateien"