Herbers Excel-Forum - das Archiv

Dateieigenschaften ins Excel importieren ?

Bild

Betrifft: Dateieigenschaften ins Excel importieren ?
von: Thomas Birkel

Geschrieben am: 25.03.2005 09:11:18
Ich würde gerne die Dateieigenschaften sämtlicher Dateien in einem Ordner und ggf. Unterordner ins Excel importieren.
Hat jemand dieses Problem schon gelöst ? Irgendwie reichen meine VBA-Kenntnisse nicht um auf Ordner zuzugreifen.
Vielen Dank für eure Hilfe.
Thomas
Bild

Betrifft: AW: Dateieigenschaften ins Excel importieren ?
von: Rolf Beißner

Geschrieben am: 25.03.2005 10:01:27
Hallo Thomas,
vielleicht hilft dir dieser Beitrag von K.Rola
fG
Rolf
'aus herber forum K.Rola vom 10.11.2004
Option Explicit
Sub Dateieigenschaften()
Const STRFOLDER As String = "C:\Eigene Dateien"
Dim objShell As Object, objFolder As Object
Dim x As Byte, intColumn As Integer, lngRow As Long
Dim varName, arrHeaders(34)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
intColumn = 1
For x = 0 To 33
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(1, intColumn + x) = arrHeaders(x)
Next
Rows(1).Font.Bold = True
lngRow = 2
For Each varName In objFolder.Items
For x = 0 To 33
Cells(lngRow, intColumn + x) = objFolder.GetDetailsOf(varName, x)
Next
lngRow = lngRow + 1
Next
Columns.AutoFit
Application.ScreenUpdating = True
End Sub

Bild

Betrifft: Super, kann ich gut gebrauchen ot
von: Jochen
Geschrieben am: 25.03.2005 12:15:24
ot
 Bild
Excel-Beispiele zum Thema "Dateieigenschaften ins Excel importieren ?"
Textdatei in Tabellenblatt importieren Textdatei nach Begriff durchsuchen und Fundzeile importieren
Diagramm exportieren und in Tabellenblatt importieren Suchbegriffe in UserForm eingeben, Fundstelle importieren
Benannte Bereich aus mehreren Arbeitsmappen importieren Textdatei mit 250.000 Zeilen anlegen und importieren
Name und Vorname suchen, Werte und Fundstellen importieren Grafik importieren und in Zelle zentrieren
Arbeitsblatt aus einer anderen Arbeitsmappe importieren Textdatei über QueryTables importieren