Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
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
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien eines Ordners anzeigen lassen

Dateien eines Ordners anzeigen lassen
26.11.2012 16:43:12
Tim
Hallo an alle,
gibt es eine Möglichkeit per VBA die Dateien eines bestimmten Ordners als Liste anzeigen zu lassen, d.h. man gibt den Pfad eines bestimmten Ordners im Code oder der Tabelle vor und erzeugt dann eine Liste der Dateinamen dieses Ordners in der Tabelle ?
Freue mich über jeden Tipp dazu !
VG und vielen Dank Euch im Voraus,
Tim

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien eines Ordners anzeigen lassen
26.11.2012 16:56:16
UweD
Hallo
so z.B. 
 Sub alle_Dateien_Verzeichnis() '
Dim dlg As FileDialog, TB, SP%, ZE&
Dim Si, Ext$, Datei$
Set TB = Sheets("Tabelle1")
Set dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
SP = 1 ' SpalteA
ZE = 1 'ab Zeile1
If dlg.Show = True Then
For Each Si In dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag
Ext = "*.*"   'oder "*.xls*"
Si = IIf(Right(Si, 1) = "\", Si, Si & "\")
Datei = Dir(Si & Ext)
Do While Len(Datei) > 0
TB.Cells(ZE, SP) = Datei
ZE = ZE + 1
Datei = Dir() ' nächste Datei
Loop
Next
End If
End Sub
Gruß UweD

Anzeige
AW: Dateien eines Ordners anzeigen lassen
26.11.2012 17:01:49
Tim
Hallo Uwe,
vielen Dank für die schnelle Antwort - das ist super ! :-)
Ich brauche genau das immer für den gleichen Pfad / Ordner.
Kann man das irgendwie mit einem vorher festgelegten Pfad und Workbook_Open verbinden, so dass beim Öffnen der Tabelle die Liste automatisch erzeugt wird ?
VG und nochmals danke,
Tim

AW: Dateien eines Ordners anzeigen lassen
27.11.2012 08:15:37
UweD
Hallo
ja, geht auch.
Code muss in "DieseArbeitsmappe"
Private Sub Workbook_Open()
Dim TB, SP%, ZE&
Dim Pfad$, Ext$, Datei$
Pfad = "C:\Temp\"
Ext = "*.*"   'oder "*.xls*"
Set TB = ThisWorkbook.Sheets("Tabelle1")
SP = 1 'SpalteA
ZE = 1 'ab Zeile1
If Pfad  "" Then
With TB
.Columns(SP).ClearContents
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
.Cells(ZE, SP) = Pfad & Datei
ZE = ZE + 1
Datei = Dir() ' nächste Datei
Loop
.Columns(SP).EntireColumn.AutoFit
End With
End If
End Sub

gruß UweD

Anzeige
AW: Dateien eines Ordners anzeigen lassen
27.11.2012 08:48:51
Tim
Hallo Uwe,
vielen Dank dafür !
Das ist klasse und ist genau, wonach ich gesucht hatte - hätte gar nicht gedacht, dass es so auch geht ! :-)
VG und einen schönen Tag noch,
Tim

AW: Dateien eines Ordners anzeigen lassen
27.11.2012 15:56:41
Tim
Hallo Uwe,
ich habe noch einmal eine Nachfrage zu Deinem ersten Code - er funktioniert übrigens bestens:
Gibt es eine Möglichkeit, neben den Dateinamen auch weitere Daten der Dateien in die Tabelle zu übernehmen (in separaten Spalten), z.B. die Dateigröße und/oder das Datum der letzten Dateiänderung ?
VG,
Tim

Probier mal das...
27.11.2012 19:00:12
robert
Hi,
Deinen Pfad musst Du noch eintragen bei "Hier Dein Pfad"
Gruß
robert
Public Sub Dateien()
Const STRFOLDER As String = "Hier Dein Pfad" ' Anpassen
Dim objShell As Object, objFolder As Object
Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
Dim varNAME, arrHeaders(37)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
intColumn = 1
For bytIndex = 0 To 37
arrHeaders(bytIndex) = objFolder.GetDetailsOf(varNAME, bytIndex)
Cells(1, intColumn + bytIndex) = arrHeaders(bytIndex)
Next
Rows(1).Font.Bold = True
lngRow = 2
For Each varNAME In objFolder.Items
If Right(varNAME, 3) = "xls" Then
With ActiveSheet
.Hyperlinks.Add .Cells(lngRow, 1), varNAME.Path, , , varNAME.Name
For bytIndex = 1 To 37
.Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varNAME, bytIndex)
Next
lngRow = lngRow + 1
End With
End If
Next
Columns.AutoFit
Set objShell = Nothing
Set objFolder = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Probier mal das...
27.11.2012 19:11:30
Tim
Hallo Robert,
damit komme ich auf jeden Fall weiter !
Das ist super - vielen vielen Dank dafür ! :-)
VG und einen schönen Abend noch,
Tim

Gutes Gelingen ;-) einen ebensolchen-owT Gruß
27.11.2012 19:19:07
robert

AW: Dateien eines Ordners anzeigen lassen
27.11.2012 08:12:05
Tim
...Problem gelöst - nochmals vielen Dank !
VG,
Tim

Recherche-Archivsuche-Dateien auflisten-owT
26.11.2012 16:56:47
robert

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