Das Archiv des Excel-Forums
Dateien eines Verzeichnis suchen und auflisten
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
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
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
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:
|
| |
| | B | C | | 1 | Title | 1 | | 2 | Subject | 2 | | 3 | Author | 3 | | 4 | Keywords | 4 | | 5 | Comments | 5 | | 6 | Template | 6 | | 7 | Last author | 7 | | 8 | Revision number | 8 | | 9 | Application name | 9 | | 10 | Last print date | 10 | | 11 | Creation date | 11 | | 12 | Last save time | 12 | | 13 | Total editing time | 13 | | 14 | Number of pages | 14 | | 15 | Number of words | 15 | | 16 | Number of characters | 16 | | 17 | Security | 17 | | 18 | Category | 18 | | 19 | Format | 19 | | 20 | Manager | 20 | | 21 | Company | 21 | | 22 | Number of bytes | 22 | | 23 | Number of lines | 23 | | 24 | Number of paragraphs | 24 | | 25 | Number of slides | 25 | | 26 | Number of notes | 26 | | 27 | Number of hidden Slides | 27 | | 28 | Number of multimedia clips | 28 | | 29 | Hyperlink base | 29 | | 30 | Number 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
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
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
Excel-Beispiele zum Thema " Dateien eines Verzeichnis suchen und auflisten"
| Alle Dateien im Verzeichnis öffnen |
 |
Dateien listen |
|
| 400 leere Textdateien anlegen |
|
XL-Dateien in UserForm listen |
|
| XL5/7-Dateien nach XL8 konvertieren |
|
Dateien aus Listbox auslesen und öffnen |
|
| Excel-Dateien eines Ordners listen |
|
Alle Dateien ab einem bestimmten Datum listen |
|
| Alle Dateien eines Verzeichnisses drucken |
|
Textdateien verbinden |
|
| Serie von Dateien in das XL5/7-Format konvertieren |
|
Verzeichnisbaum aufrufen und Dateien in ListBox auflisten |
|
| Dateien einer Ordnerliste in einer Tabelle zusammenstellen |
|
Daten aus allen Dateien eines Verzeichnisses zusammenführen |
|
| Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen |
|
Dateien in einem Verzeichnis und Unterverzeichnissen suchen |
|
| XL-Dateien aus Haupt- und Unterverzeichnissen einlesen |
|
Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern |
|
| Textdateien vergleichen und Unterschiede dokumentieren |
|
Löschen von Dateien beim Schließen einer Arbeitsmappe |
|
| Grafikdateien suchen |
|
Erste Blätter aus allen Dateien eines Verzeichnisses sammeln |
|
| Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen |
|
Textdateien auslesen und in Werte in Zellen eintragen |
|
| Werte nach Gruppen aufteilen und in gesonderten Dateien speichern |
|
Fragen aus Textdateien in UserForm-Label einlesen |
|
| Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben |
|
Alle Dateien löschen, die älter als 30 Tage sind |
|
| Dateien mit Angabe des Dateidatums mit Hyperlink listen |
|
Dateien listen und gekennzeichnete öffnen |
|
| UserForm-TextBoxes-Texte in Textdateien speichern |
|
Tabellenblattinhalte in getrennten Textdateien speichern |
|
| Dateien listen und Blätter in neue Arbeitsmappe kopieren |
|
Bei Doppelklick Textdateien in Editor öffnen |
|
| Dateiliste mit allen xl-Dateien und Hyperlinks erstellen |
|
Aufruf von Textdateien protokollieren |
|
| Textdateien mit einer Zeile in Tabelle einlesen |
|
Alle Textdateien eines Verzeichnisses importieren |
|
| Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen |
|
Dateien suchen |
|
| Dateien mit bestimmtem Inhalt suchen |
|
Verzeichnisbaum anlegen |
|
| Unterverzeichnisse mit Inhalt löschen |
|
Ordner eines Verzeichnisses in ListBox übernehmen |
|
| Dateinamen eines Verzeichnisses als HTML-Datei |
|
Feststellen, ob eine Datei in einem Verzeichnis existiert |
|
| xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen |
|
Ordnernamen eines Verzeichnisses in Zelle einfügen |
|
| Sicherungskopie in einem anderen Verzeichnis erstellen |
|
Verzeichnisbaum aufrufen und Verzeichnis auswählen |
|
| Arbeitsmappen eines Verzeichnisses ändern |
|
Alle Arbeitsmappen eines Verzeichnisses öffnen |
|
| Verzeichniswechsel über VBA |
|
Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen |
|
| Neueste Textdatei eines Verzeichnisses suchen und umbenennen |
|
Vorkommen eines Wortes in Arbeitsmappen eines Verzeichnisse |
|
| Ermittlung des Windows-Temp-Verzeichnisses |
|
Ermittlung des Windows-Verzeichnisses |
|
| Ermittlung des Windows-System-Verzeichnisses |
|
Verzeichnisse gemäß Tabelleneintragen anlegen |
|
| Vorhandensein von Verzeichnissen prüfen und Ordner anlegen |
|
Hierarchisch aufgebautes Inhaltsverzeichnis als HTML-File |
|
| Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen |
|
Unterverzeichnisse eines vorgegebenen Pfades auslesen |
|
| Anwenderverzeichnis auslesen |
|
Zellinhalt suchen und Zelle auswählen |
|
| Suchbegriff über mehrere Tabellenblätter suchen. |
|
Suchen und weitersuchen |
|
| Zahl +/- 1 suchen |
|
Ein Zeichen in einer Formel suchen |
|
| Datum suchen und Wert eintragen |
|
Wert in Tabelle suchen und in UserForm ausgeben |
|
| Letzte Zelle mit Inhalt suchen |
|
Textdatei nach Begriff durchsuchen und Fundzeile importieren |
|
| Wert in Array suchen, ohne jedes Datenfeld abzufragen |
|
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle |
|
| Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren |
|
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen |
|
| Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden |
|
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen |
|
| Suchen von Nachnamen in Zeichenfolgen |
|
Datum suchen und Adresse der Fundzelle ausgeben |
|
| Begriffe in zweiter Tabelle suchen und Werte anfügen |
|
Text aus UserForm-TextBox in Tabelle suchen |
|
| Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen |
|
Suchbegriff in vorhergehenden Tabellen suchen |
|
| Werte aus UserForm-ComboBox suchen und Fundstelle kopieren |
|
Artikelnummern suchen und jeweils letzte Fundstelle listen |
|
| Wörter eines Satzes in Indizliste suchen |
|
Wert aus UserForm-TextBox suchen und Fundstelle kopieren |
|
| Zellwert nach Doppelklick in Tabelle suchen |
|
Suchen in 2. Tabelle und Ersetzen der Quelldaten |
|
| Wert in Tabelle 2 suchen und Fundstellen übertragen |
|
Suchbegriff in Tabelle suchen und Fundzeilen auswählen |
|
| Suchbegriffe aus Tabelle im Excel-WebArchiv suchen |
|
Wert aus ComboBox in TextBox, dann in Tabelle suchen |
|
| Artikelnummer über InputBox suchen und eintragen |
|
Anwendung auf Fesplatte suchen |
|
| Tabelle nach ComboBox-Auswahl durchsuchen |
|
Werte suchen, eintragen und löschen |
|
| Zeile 1 nach Wert der aktiven Zelle durchsuchen |
|
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben |
|
| Wert in zweiter Tabelle suchen und als Kommentar ausgeben |
|
Wert in externer Mappe suchen und mit Format übernehmen. |
|
| Artikelnummern nach Kriterien suchen und Datensätze kopieren |
|
Wert in ComboBox einlesen, suchen, editieren, ausgeben |
|
| Suchen der Nachbarzelle der Zelle mit dem Maximalwert |
|
Begriff suchen und Fundzeilen in anderes Blatt kopieren |
|
| Zahl suchen und an den Fundstellen Zeile einfügen |
|
Name und Vorname suchen, Werte und Fundstellen importieren |
|
| Begriff in der ersten Spalte einer ListBox suchen |
|
Alle Prozeduren und Funktionen auflisten |
|
| VBA-Fehlermeldungen auflisten |
|
Kontextmenüs und ihre Elemente auflisten |
|
| Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten |
|
Bereichsnamen in UserForm-ListBox auflisten und editieren |
|
| Farbindex von 1 bis 56 auflisten |
|
Doppelt vorkommende Werte mit Zelleadresse auflisten |
|
| Doppelte Datensätze farblich markieren und auflisten |
|
Werte aus Matrix in zweitem Blatt auflisten |
|
| Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten |
|
Alle Menü- und Symbolleisten mit Ihren Schaltflächen auflisten |
|
| Zeichenfolge analysieren und Zeichen auflisten |
|
Auflisten von OptionButtons in Kontextmenü |
|
| Bei Google zu einem Suchbegriff gefundene Links auflisten |
|
