Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateieigenschaften ins Excel importieren ?

Dateieigenschaften ins Excel importieren ?
25.03.2005 09:11:18
Thomas
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateieigenschaften ins Excel importieren ?
25.03.2005 10:01:27
Rolf
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

Anzeige
Super, kann ich gut gebrauchen ot
25.03.2005 12:15:24
Jochen
ot
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige