Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Textdateien in untereinander in eine Mappe

Mehrere Textdateien in untereinander in eine Mappe
27.04.2003 13:38:56
Patrick
Hi
Ich möchte mehrere .txt Dateien in eine Mappe einlesen, wobei das Zeichen "|" als Separator definiert ist. Mit folgendem Makro gehts für eine Datei:

Sub TextImport3()
Dim intRow As Integer, intCol As Integer
Open "c:\temp\100.txt" For Input As #1
Dim txt As String
Do Until EOF(1)
Line Input #1, txt
intRow = intRow + 1
Do Until txt = ""
intCol = intCol + 1
If InStr(txt, "|") Then
Cells(intRow, intCol) = Left(txt, InStr(txt, "|") - 1)
txt = Right(txt, Len(txt) - InStr(txt, "|"))
Else
Cells(intRow, intCol) = txt
txt = ""
End If
Loop
intCol = 0
Loop
Close
End Sub

Wie bringe ich das Makro dazu, dass alle Dateien aus C:\Temp untereinander in die gleiche Mappe eingelesen werden?

Vielen Dank!
Patrick


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mehrere Textdateien in untereinander in eine Mappe
27.04.2003 14:03:35
Ramses

Hallo Patrick,

das sollte so möglich sein.
Das ganze ist geschüttelt, nicht gerührt ( ungetestet ).


Sub Open_All_Textfiles()
Dim i As Long, TotFiles As Long
Dim intRow As Integer, intCol As Integer, txt As String
Dim gefFile As String, dname As String
Dim Suchpfad As String, suchbegriff As String
Dim oldStatus As Variant
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", Application.DefaultFilePath)
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.xls")
If Dateiform = "" Then Exit Sub
Application.ScreenUpdating = True
oldStatus = Application.StatusBar
With Application.FileSearch
    .LookIn = Suchpfad
    .SearchSubFolders = False
    .Filename = Dateiform
    If .Execute() > 0 Then
        TotFiles = .FoundFiles.Count
        Application.StatusBar = "Total " & TotFiles & " gefunden"
        For i = 1 To .FoundFiles.Count
            gefFile = .FoundFiles(i)
                'Hier beginnt dein Code
                Open Suchpfad & "\" & gefFile For Input As #1
                Do Until EOF(1)
                    Line Input #1, txt
                    intRow = intRow + 1
                    Do Until txt = ""
                        intCol = intCol + 1
                        If InStr(txt, "|") Then
                            Cells(intRow, intCol) = Left(txt, InStr(txt, "|") - 1)
                            txt = Right(txt, Len(txt) - InStr(txt, "|"))
                        Else
                            Cells(intRow, intCol) = txt
                            txt = ""
                        End If
                    Loop
                    intCol = 0
                Loop
                Close #1
                'Hier endet dein Code
        Next i
    End If
End With
Application.StatusBar = oldStatus
Application.ScreenUpdating = True
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Mehrere Textdateien in untereinander in eine Mappe
27.04.2003 14:15:02
Patrick

Hi Rainer

Vielen Dank! Leider erhalte ich den Laufzeitfehler 52 (Dateiname oder -nummer falsch):
Open Suchpfad & "\" & gefFile For Input As #1

Hab bis jetzt noch nicht rausgefunden warum. Die Files sind alle dort und den Pfad gebe ich auch richtig an.

Danke & Gruss
Patrick

Kleiner Lapsus :-)
27.04.2003 14:25:45
Ramses

Hallo Patrick

ersetze die zeile

Open Suchpfad & "\" & gefFile For Input As #1

durch

Open gefFile For Input As #1

Gruss Rainer

Re: Kleiner Lapsus :-)
27.04.2003 16:51:37
Patrick

Hoi Rainer

Das wars! Jetzt funzt es tipp topp! Vielen Dank für deine wertvolle Hilfe!
Grüsse
Patrick




Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige