Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien eines Ordners - alphabetischer Reihenfolge

Dateien eines Ordners - alphabetischer Reihenfolge
Holger
Hallo,
der folgende VBA-Code liest eine Zelle aus allen Dateien eines Ordners aus und schreibt diese in einer Datei untereinander, was auch funktioniert.
Leider werden die Dateien in Reihenfolge des Speicherdatums ausgelesen, beginnend mit dem jüngsten.
Wie muss ich das anpassen, damit die Dateien des Ordners in alphabetischer Reihenfolge ausgelesen werden?
Vielen Dank im Voraus für eine hilfreiche Antwort.
Gruß
Holger

Sub datenAusDateien()
Dim strPath As String, strFile As String, strTab As String, strRef As String
Dim lngNext As Long
strPath = "E:\Forum" 'verzeichnis
strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
strTab = "Tabelle1" 'Tabellenname
strRef = "B5" 'Zelladresse
lngNext = 4
strFile = Dir(strPath & "*.xls*", vbNormal)
On Error Resume Next
With Sheets("Planung")
Do While strFile  ""
.Cells(lngNext, 7).Formula = "='" & strPath & "[" & strFile & "]" & strTab & "'!" &  _
strRef
.Cells(lngNext, 7) = .Cells(lngNext, 7).Value
lngNext = lngNext + 1
strFile = Dir
Loop
End With
End Sub

AW: Dateien eines Ordners - alphabetischer Reihenfolge
30.10.2011 11:14:39
Josef

Hallo Holger,
dazu benötigt man eine komplett anderen Code. Warum sortierst du die Spalte anschließend nicht einfach?

« Gruß Sepp »

AW: Dateien eines Ordners - alphabetischer Reihenfolge
30.10.2011 13:27:52
Reinhard
Hallo Sepp,
wieso einen komplett anderen Code?
Holger muß doch nur in der Schleife strFile in eine Hilfsspalte schreiben und nach dieser Spalte 7 sortieren.
Wenn das seine tabellnstrukrur zwerhackt, dann halt erstmal in einem temporären Hilfsblatt die Formeln in a eintragen, StrFile in B und nach B sortieren und in a die Originaltab übertragen.
Sooo langsam ist das nicht.
Oder sehe ich da was falsch?
(Das ist der Grund warum ich nachfrage)
Gruß
Reinhard
Anzeige
AW: Dateien eines Ordners - alphabetischer Reihenfolge
30.10.2011 14:55:54
Josef

Hallo Reinhard,
"komplett anderer Code" bezieht sich auf das auslesen der Dateien.
Man kann mit entsprechendem Code, die Dateien gleich nach einem bestimmten Kriterium sortiert einlesen.

« Gruß Sepp »

Danke dir :-)                o.w.T
31.10.2011 09:11:33
Reinhard

Arraylist.sort-->.ToArray
30.10.2011 11:20:30
ransi
HAllo
Wie man die Dateien in Alphabetischer Reihenfolge ausliest weiß ich nicht.
Aber:
Alle Dateien in eine Arraylist auslesen.
Die Arraylist sortieren.
Die Elemente der Arraylist verformeln.
Schau es dir mal an:

Option Explicit

Sub Test()
    Dim objAL As Object
    Dim objFSO As Object
    Dim strPath
    Dim strFile
    Dim vntFiles As Variant
    Dim L As Long
    Set objAL = CreateObject("System.Collections.Arraylist")
    Set objFSO = CreateObject("Scripting.FilesystemObject")
    
    strPath = "E:\Forum" 'verzeichnis
    With objAL
        For Each strFile In objFSO.getfolder(strPath).Files 'Alle Dateien auslesen
            Select Case LCase(objFSO.getextensionname(strFile))
                Case "xls", "xlsx", "xla", "xlsm" 'nur Excel Dateien betrachten
                    .Add strFile.Path 'Datei in die Arraylist aufnehmen
            End Select
        Next
        .Sort 'ArrayList sortieren
        vntFiles = .toArray 'ArrayList in ein Array wegschreiben
    End With
    
    'Ausgeben
    For L = LBound(vntFiles) To UBound(vntFiles)
        MsgBox vntFiles(L) 'Die Formel bekommst du selber hin ?
    Next
    
    
End Sub


ransi
Anzeige
Und weil ich Esel, dass mit den Formeln ...
30.10.2011 11:53:07
Josef

... nicht gelesen habe, hier der Code von Ransi mit dem einfügen der Formeln.

Sub Test()
  Dim objAL As Object, objFSO As Object, objFile As Object
  Dim strPath As String, strTab As String, strRef As String
  Dim vntFiles As Variant
  Dim lngIndex As Long, lngNext As Long
  
  Set objAL = CreateObject("System.Collections.Arraylist")
  Set objFSO = CreateObject("Scripting.FilesystemObject")
  
  strPath = "E:\Forum" 'verzeichnis
  strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
  strTab = "Tabelle1" 'Tabellenname
  strRef = "B5" 'Zelladresse
  lngNext = 4
  
  With objAL
    For Each objFile In objFSO.getfolder(strPath).Files 'Alle Dateien auslesen
      If LCase(objFSO.getExtensionName(objFile)) Like "xls*" Then .Add objFile.Name
    Next
    .Sort 'ArrayList sortieren
    vntFiles = .toArray 'ArrayList in ein Array wegschreiben
  End With
  
  For lngIndex = LBound(vntFiles) To UBound(vntFiles)
    vntFiles(lngIndex) = "='" & strPath & "[" & vntFiles(lngIndex) & "]" & _
      strTab & "'!" & strRef
  Next
  
  With Sheets("Planung").Cells(lngNext, 7).Resize(UBound(vntFiles) + 1, 1)
    .Formula = Application.Transpose(vntFiles)
    .Value = .Value
  End With
  
  Set objFile = Nothing
  Set objFSO = Nothing
  Set objAL = Nothing
End Sub




« Gruß Sepp »

Anzeige
AW: Und weil ich Esel, dass mit den Formeln ...
30.10.2011 13:47:26
Holger
Der VBA-Code funktioniert... :-)
Vielen Dank an alle die sich an der Lösung beteiligt haben.
PS:
Ich hatte vorher auch schon versucht die Dateien im Explorer anders zu sortieren, ohne Erfolg.
Ein sortieren der Werte nachträglich wäre nur dann sinnvoll, wenn ich nebendran zur Verbindung auch den Dateinamen hätte. Das wären dann 2 Hilfsspalten um die echte Spalte zu füllen. Wäre natürlich auch machbar gewesen,
aber so ists natürlich professionieller.
Vielen Dank nochmal.
AW: Dateien eines Ordners - alphabetischer Reihenfolge
30.10.2011 13:37:16
Daniel
Hi
ich vermute mal die DIR-Funktion liest die Daten in der Reihenfolge, wie du sie zuletzt im Dateiexplorer sortiert hast (bei mir ist die Reihenfolge nämlich alphabetisch.
aber es gibt für diesen Fall eine einfache lösung:
1. Schreibe erstmal die Formeln als Text in die Zellen (beispielsweise durch ein voranstellen von "xxx")
2. Sortiere dann die Texte mit der Sortierfunktion, da der Zellbezug als erstes steht, sollte richtig sortiert werden
3. Wandle dann die Texte in Formeln um, indem du einfach mit ERSETZEN die "xxx" entfernst. Den Rest erledigt dann Excel automatisch, da es die Zellinhalte nun wieder als Formeln erkennt und ensprechend reagiert.
Da du nur einfache Zellbezüge und keine komplexen Formeln hast, sollten keine Sprachprobleme zwischen VBA (englisch) und Excel (deutsch) zu erwarten sein.
hier der Code, die geänderten Zeilen sind Fett:

Sub datenAusDateien()
Dim strPath As String, strFile As String, strTab As String, strRef As String
Dim lngNext As Long
strPath = "d:\daten\excel" 'verzeichnis
strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
strTab = "Tabelle1" 'Tabellenname
strRef = "B5" 'Zelladresse
lngNext = 4
strFile = Dir(strPath & "*.xls*", vbNormal)
On Error Resume Next
With Sheets(1)
Do While strFile  ""
.Cells(lngNext, 7).Formula = "xxx='" & strPath & "[" & strFile & "]"  _
& strTab & "'!" & strRef
.Cells(lngNext, 7) = .Cells(lngNext, 7).Value
lngNext = lngNext + 1
strFile = Dir
Loop
With Range(.Cells(4, 7), .Cells(lngNext - 1, 7))
.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.Replace "xxx=", "=", xlPart
End With
Endd With
End Sub

Gruß Daniel
Anzeige

302 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17