Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
336to340
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einlesen von Textdateien

Einlesen von Textdateien
14.11.2003 09:11:15
Josef
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einlesen von Textdateien
15.11.2003 13:10:02
Michael
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige