Datum

Titel

20.04.2024 00:08:11

In Ordner nur das Speichern von Dateien erlauben

19.04.2024 21:26:15

mehrfache Texte finden

19.04.2024 19:41:34

Bei VBA Ausführung Anzeige einfrieren

19.04.2024 17:05:40

Zählen von Zeilen, in denen in bestimmten Bereich Daten sind

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

616to620

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Bestimmte Werte aus Textdatei einlesen.

Forumthread: Bestimmte Werte aus Textdatei einlesen.
5 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

30.05.2005 12:36:41

Josef

Hallo!
Ich habe in einem Laufwerk ca. 65000 Dateien (*.dat, *.txt.,*.095 usw.)
Besteht bitte mittels VBA die Möglichkeit
1. in Spalte A : den Dateinamen der Datei einzulesen
2. in Spalte B : aus den geschlossenen Dateien jeweils die erste Zeile oder aus der ersten Zeile den 4. bis 8. Wert einzulesen?
Wie könnte hier bitte eine VBA Lösung aussehen?
Danke
Josef

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bestimmte Werte aus Textdatei einlesen.

30.05.2005 13:04:07

Sven
AW: Bestimmte Werte aus Textdatei einlesen.

30.05.2005 13:05:40

Josef
Kleiner Tipp: Arbeite mit einem Array

30.05.2005 13:22:54

Boris
AW: Kleiner Tipp: Arbeite mit einem Array

31.05.2005 06:30:00

Josef
Den Pfad hast du aber angepasst...?!? oT

01.06.2005 16:33:17

Boris

AW: Bestimmte Werte aus Textdatei einlesen.

30.05.2005 13:04:07

Sven

"aus den geschlossenen Dateien" geht schon mal nicht. Auslesen kannst du mit
Application.Filesearch, ist in der Hilfe ausreichend erklärt.
mfg Sven

AW: Bestimmte Werte aus Textdatei einlesen.

30.05.2005 13:05:40

Josef

Danke
Josef

Kleiner Tipp: Arbeite mit einem Array

30.05.2005 13:22:54

Boris

Hi Josef,
...will sagen: Lies die Dateien erst in einen Array ein und schreibe diesen anschließend in das Tabellenblatt. Das ist um Lichtjahre schneller als jeden Dateinamen sofort in die Zelle zu schreiben - speziell bei deinen 65000 Dateien.
In der Art:
Option Explicit


Sub alle_Dateien()
Dim sPath As String, i As Long, j As Long
Dim arr() As String
sPath = "D:\Eigene Dateien"
With Application.FileSearch
.LookIn = sPath
.Execute
j = .FoundFiles.Count
ReDim arr(j)
For i = 1 To j
arr(i - 1) = .FoundFiles(i)
Next i
End With
Range(Cells(1, 1), Cells(j, 1)) = WorksheetFunction.Transpose(arr())
End Sub

Grüße Boris

AW: Kleiner Tipp: Arbeite mit einem Array

31.05.2005 06:30:00

Josef

Guten Morgen Boris!
Habe es gerade ausprobiert. Funktioniert leider nicht.
auf jeden Fall danke für Deine Hilfe
Josef

Den Pfad hast du aber angepasst...?!? oT

01.06.2005 16:33:17

Boris