Das Archiv des Excel-Forums

Dateien eines Verzeichnis suchen und auflisten

Bild

Betrifft: Dateien eines Verzeichnis suchen und auflisten
von: Rocco

Geschrieben am: 09.10.2003 19:17:21

Hallo zusammen, ich möchte gerne alle Word-Dateien eines bestimmten Verzeichnis auflisten (in Excel oder Word). Die Auflistung erfolgt nach einem bestimmten Kriterium und zwar nach dem Autor. Die Ausgabe sollte eine Liste mit Word-Dokumenten eines bestimmten Autors. Kann mir jemand sagen wie so was funktioniert? Besten Dank im voraus.

gruss rocco
Bild


Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: ChrisL
Geschrieben am: 09.10.2003 19:43:19

Hi Rocco

Da du ein bischen was von VBA verstehst, schau doch einfach mal in der Recherche nach, Stichwort FileSearch oder benutze die Suchfunktion. Wenn du ein passendes Makro hast, müssen wir uns noch auf die Suche nach dem Autorproblem machen, wenn es mir recht ist gibts ein Zusatz, vermutlich '.Autor'.

Gruss
Chris

PS: Bin morgen wieder online


Bild


Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: Karl-Otto Reimann
Geschrieben am: 09.10.2003 20:02:47

Hallo Rocco
(Da muß ich an Rocco Granata denken)

Ich benutz dies, um alle Textdateien in einem Tebellenblatt aufzulisten:


Sub dateien()
Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\vt\boerse\*.*")
Do While Dateiname <> ""
Range("a3").Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub


mfG KO


Bild


Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: andreas e
Geschrieben am: 09.10.2003 20:20:09

Hallo,
es gibt ja : ActiveWorkbook.BuiltinDocumentProperties(XX).Value

nachstehende Liste sagt dir was da bei raus kommt:

 
 BC
1Title1
2Subject2
3Author3
4Keywords4
5Comments5
6Template6
7Last author7
8Revision number8
9Application name9
10Last print date10
11Creation date11
12Last save time12
13Total editing time13
14Number of pages14
15Number of words15
16Number of characters16
17Security17
18Category18
19Format19
20Manager20
21Company21
22Number of bytes22
23Number of lines23
24Number of paragraphs24
25Number of slides25
26Number of notes26
27Number of hidden Slides27
28Number of multimedia clips28
29Hyperlink base29
30Number of characters (with spaces)30
 
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
hilft das weiter ? Gruß Andreas E http://www.skripteundaufgaben.de viele kostenlose Downloads und Links zu EXCEL und mehr http://www.fachforen.de eine Linksammlung zu diversen fachforen

Bild


Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: Rocco
Geschrieben am: 10.10.2003 00:14:15

Besten Dank für Eure Bemühungen,
die version von karl-otto reinmann funktioniert bei mir nicht. ich habe ein geniales tool gefunden, dass jedoch nicht ermöglicht nach autor zu suchen. ich habe versucht dieses vorlage anzupassen. es ist mir jedoch nicht gelungen. nun fage z.b. an chrisL kannst du dir vorstellen wie man diese vorlage (sie unten link) so anpassen kann, dass man nach autor (als kriterium) suchen kann. wäre toll, wenn es klappen würde. besten dank und gruss rocco
link zur vorlage:
http://www.geocities.com/jh2001de/macrosdeutsch.htm ---> und dort Auflisten Ordner


Bild


Betrifft: AW: Dateien eines Verzeichnis suchen und auflisten
von: ChrisL
Geschrieben am: 10.10.2003 11:23:01

Hi Rocco

Kann leider keine Zip Dateien öffnen und mit VBA Programmierung in Word kenne ich mich auch nicht aus, aber versuchs mal hiermit...


Sub WordListe()
Dim sFile As String, sPath As String, zeilennr As Long
Dim FSObjekt As Object, FObjekt As Object
Dim WordApp As Object, WordDoc As Object
Set WordApp = CreateObject("Word.Application")
On Error Resume Next
Application.ScreenUpdating = False
Set FSObjekt = CreateObject("Scripting.FileSystemObject")
sPath = "C:\PFAD"
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
sFile = Dir(sPath)
Do While sFile <> ""
If Right(sFile, 3) = "doc" Then
zeilennr = Range("A65536").End(xlUp).Row + 1
Cells(zeilennr, 1) = sFile
Set FObjekt = FSObjekt.GetFile(sPath & sFile)
Cells(zeilennr, 2) = FObjekt.DateLastModified
Cells(zeilennr, 3) = FObjekt.Size
WordApp.Application.Documents.Open sPath & sFile
Cells(zeilennr, 4) = WordApp.ActiveDocument.BuiltinDocumentProperties(3).Value
sFile = Dir()
End If
Loop
Set WordApp = Nothing
Application.ScreenUpdating = False
End Sub


Die Performance ist allerdings schlecht.

Gruss
Chris


 Bild

Excel-Beispiele zum Thema " Dateien eines Verzeichnis suchen und auflisten"

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download Verzeichnisbaum anlegen download
Unterverzeichnisse mit Inhalt löschen download Ordner eines Verzeichnisses in ListBox übernehmen download
Dateinamen eines Verzeichnisses als HTML-Datei download Feststellen, ob eine Datei in einem Verzeichnis existiert download
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download Ordnernamen eines Verzeichnisses in Zelle einfügen download
Sicherungskopie in einem anderen Verzeichnis erstellen download Verzeichnisbaum aufrufen und Verzeichnis auswählen download
Arbeitsmappen eines Verzeichnisses ändern download Alle Arbeitsmappen eines Verzeichnisses öffnen download
Verzeichniswechsel über VBA download Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen download
Neueste Textdatei eines Verzeichnisses suchen und umbenennen download Vorkommen eines Wortes in Arbeitsmappen eines Verzeichnisse download
Ermittlung des Windows-Temp-Verzeichnisses download Ermittlung des Windows-Verzeichnisses download
Ermittlung des Windows-System-Verzeichnisses download Verzeichnisse gemäß Tabelleneintragen anlegen download
Vorhandensein von Verzeichnissen prüfen und Ordner anlegen download Hierarchisch aufgebautes Inhaltsverzeichnis als HTML-File download
Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen download Unterverzeichnisse eines vorgegebenen Pfades auslesen download
Anwenderverzeichnis auslesen download Zellinhalt suchen und Zelle auswählen download
Suchbegriff über mehrere Tabellenblätter suchen. download Suchen und weitersuchen download
Zahl +/- 1 suchen download Ein Zeichen in einer Formel suchen download
Datum suchen und Wert eintragen download Wert in Tabelle suchen und in UserForm ausgeben download
Letzte Zelle mit Inhalt suchen download Textdatei nach Begriff durchsuchen und Fundzeile importieren download
Wert in Array suchen, ohne jedes Datenfeld abzufragen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download
Suchen von Nachnamen in Zeichenfolgen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Artikelnummern suchen und jeweils letzte Fundstelle listen download
Wörter eines Satzes in Indizliste suchen download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Zellwert nach Doppelklick in Tabelle suchen download Suchen in 2. Tabelle und Ersetzen der Quelldaten download
Wert in Tabelle 2 suchen und Fundstellen übertragen download Suchbegriff in Tabelle suchen und Fundzeilen auswählen download
Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download Wert aus ComboBox in TextBox, dann in Tabelle suchen download
Artikelnummer über InputBox suchen und eintragen download Anwendung auf Fesplatte suchen download
Tabelle nach ComboBox-Auswahl durchsuchen download Werte suchen, eintragen und löschen download
Zeile 1 nach Wert der aktiven Zelle durchsuchen download Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download
Wert in zweiter Tabelle suchen und als Kommentar ausgeben download Wert in externer Mappe suchen und mit Format übernehmen. download
Artikelnummern nach Kriterien suchen und Datensätze kopieren download Wert in ComboBox einlesen, suchen, editieren, ausgeben download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Begriff suchen und Fundzeilen in anderes Blatt kopieren download
Zahl suchen und an den Fundstellen Zeile einfügen download Name und Vorname suchen, Werte und Fundstellen importieren download
Begriff in der ersten Spalte einer ListBox suchen download Alle Prozeduren und Funktionen auflisten download
VBA-Fehlermeldungen auflisten download Kontextmenüs und ihre Elemente auflisten download
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Farbindex von 1 bis 56 auflisten download Doppelt vorkommende Werte mit Zelleadresse auflisten download
Doppelte Datensätze farblich markieren und auflisten download Werte aus Matrix in zweitem Blatt auflisten download
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download Alle Menü- und Symbolleisten mit Ihren Schaltflächen auflisten download
Zeichenfolge analysieren und Zeichen auflisten download Auflisten von OptionButtons in Kontextmenü download
Bei Google zu einem Suchbegriff gefundene Links auflisten download