|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Verzeichnis mit Namen, Erstelldatum und Autor in Excel erfassen |
03.08.2016 09:39:04 |
Felix |
|
|
|
03.08.2016 09:41:55 |
Gast31554 |
|
|
|
03.08.2016 09:49:56 |
Gast5199 |
|
|
|
03.08.2016 10:50:50 |
SJ |
|
|
|
03.08.2016 11:25:17 |
Gast68891 |
|
|
|
03.08.2016 11:29:36 |
SJ |
|
|
|
03.08.2016 11:41:28 |
Felix |
|
|
|
03.08.2016 12:16:21 |
SJ |
|
|
|
03.08.2016 12:23:21 |
Felix |
|
|
|
03.08.2016 13:26:12 |
SJ |
|
|
|
03.08.2016 13:39:40 |
Felix |
|
|
Von:
Felix |
Datum:
03.08.2016 09:39:04 |
Views:
1635 |
Rating:
|
Antwort:
|
Thema:
Verzeichnis mit Namen, Erstelldatum und Autor in Excel erfassen |
|
Moin in die Runde! :)
Ich habe auf meinem Laufwerk T: ein größeres Verzeichnis liegen, in welchem sich etliche PDF, Word, Excel und PowerPoint-Files tummeln. Nun möchte ich in Excel eine Tabelle erstellen, in welcher der Name eines jeden Dokuments, das Erstelldatum sowie der Autor (sofern diese Informationen in den Dateien enthalten sind) aufgelistet ist. Auf der Suche im WWW habe ich eine Formel gefunden, welche mir zumindest schon einmal eine namentliche Listung ermöglicht. Diese seht ihr hier:
[Code]Option Explicit
Dim FSO, FO, FU, F, FI
Dim lRow As Long
Dim iCol As Integer
Public Sub Ordner_Dateien_Auflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
GetSubFolders_Files "T:\"
End Sub
Function GetSubFolders_Files(pfad)
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
iCol = iCol + 1
Cells(lRow, iCol) = F.Name
Cells(lRow, iCol).Font.Bold = True
For Each FI In F.Files
Cells(lRow + 1, iCol) = FI.Name
lRow = lRow + 1
Next
GetSubFolders_Files F.Path
Next
iCol = iCol - 1
End Function[/Code]
Leider springt die Listung immer eine Reihe weiter, sobald eine Datei aus einem Unterordner gelistet wird. Wo das in der Formel steht, sehe ich. Wie ich das verändern kann, sodass die Formel funktionstüchtig bleibt, weiß ich wiederum nicht. Angenommen das Problem ist gelöst und die Titel stehen alle untereinander, wie bekomme ich Erstellungsdatum und Autor in die nächsten Reihen der Liste?
Wie Ihr merkt bin ich VBA Neuling und für jede Hilfe dankbar. Die Aufgabe ist mir allein leider noch ein Paar Nummern zu groß.
Viele Grüße |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Verzeichnis mit Namen, Erstelldatum und Autor in Excel erfassen |
03.08.2016 09:39:04 |
Felix |
|
|
|
03.08.2016 09:41:55 |
Gast31554 |
|
|
|
03.08.2016 09:49:56 |
Gast5199 |
|
|
|
03.08.2016 10:50:50 |
SJ |
|
|
|
03.08.2016 11:25:17 |
Gast68891 |
|
|
|
03.08.2016 11:29:36 |
SJ |
|
|
|
03.08.2016 11:41:28 |
Felix |
|
|
|
03.08.2016 12:16:21 |
SJ |
|
|
|
03.08.2016 12:23:21 |
Felix |
|
|
|
03.08.2016 13:26:12 |
SJ |
|
|
|
03.08.2016 13:39:40 |
Felix |
|
|