Herbers Excel-Forum - das Archiv

Files unsortiert einlesen

Bild

Betrifft: Files unsortiert einlesen
von: peteregloff

Geschrieben am: 05.01.2007 12:09:28
Folgendes Programm list alle Datein innnerhalb einem Directory ein - aber leider sortiert nach Filename - wie kann ich die Dateien unsortiert oder nach einem andern Kriterium einlesen??
Sub SU_Open_File()
Dim sPath As String, sFile as string
Application.ScreenUpdating = False
sPath = "C:\PE-TMP\File-Nrn\"
sFile = Dir(sPath & "*.*")      ' 1. File wird eingelesen
Do While sFile <> ""
MsgBox sFile                ' Filename anzeigen
sFile = Dir()               ' nächstes File
Loop
Application.ScreenUpdating = False
End Sub

Bild

Betrifft: AW: Files unsortiert einlesen
von: Ramses

Geschrieben am: 05.01.2007 12:30:19
Hallo
"..wie kann ich die Dateien unsortiert.."
Das einlesen ist abhängig davon wie sie im Explorer dargestellt werden soll.
Wo ist das Problem ?
Was willst du denn eigentlich machen ?
Gruss Rainer
 Bild
Excel-Beispiele zum Thema "Files unsortiert einlesen"
Tabellenblattnamen in ein Listenfeld einlesen Gefilterte Daten in eine ListBox einlesen
Einlesen von Zellinhalten in Variablen 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen
Tabellenblattnamen in eine ListBox einlesen Text aus UserForm-Textbox in Variable einlesen
Blätter in ComboBox-Feld einlesen und auswählen Dateinamen in Tabelle einlesen
Namen einer Arbeitsmappe einlesen