Herbers Excel-Forum - das Archiv
Application.FileSearch - Kriterium Autor?
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: Application.FileSearch - Kriterium Autor?
von: Elena
Geschrieben am: 14.10.2003 18:41:25
Hallo zusammen
Ich möchte in einem Ordner nach Dateien eines bestimmten Autors suchen und diese in einem Excel-File ausgeben. Mit meinen beschränkten VBA-Kenntnissen kann ich den Code, den ich gefunden habe und soweit auch gut läuft, nicht anpassen. Kann mir jemand helfen? Oder kann man gar nicht nach dem Autor suchen?
Vielen Dank für Eure Bemühungen
Liebe Grüsse
Elena
Sub DateienAuflisten()
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Const Verzeichnis = "C:\Dokumente und Einstellungen\Elena\Eigene
Dateien\Test\1"
'Verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "C:\test\")
'Verzeichnis = ThisWorkbook.Path
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
.TextOrProperty = "Claudia"
.MatchTextExactly = True
'Hier den DateiTyp einstellen!
.Execute
'MsgBox .FoundFiles.Count
For lngAkt = 1 To .FoundFiles.Count
Cells(lngAkt, 1) = Mid(.FoundFiles.Item(lngAkt), Len(Verzeichnis) + 1)
Next lngAkt
End With
End Sub
PS: sucht so nach Claudia (Autor), aber das geht nur solange kein Dokument im Text Claudia geschrieben hat
Betrifft: BuiltinDocumentProperties
von: andreas e
Geschrieben am: 14.10.2003 19:06:22
hallo elena,
hast Du dir mal die Hilfe zu BuiltinDocumentProperties angesehen ?
vielleicht hilft das ja 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: Application.FileSearch - Kriterium Autor?
von: ChrisL
Geschrieben am: 14.10.2003 19:37:46
Hi Elena
Oder schau mal hier...
https://www.herber.de/forum/archiv/320to324/t321567.htm
Gruss
Chris
Betrifft: AW: Application.FileSearch - Kriterium Autor?
von: Elena
Geschrieben am: 14.10.2003 20:04:17
Vielen Lieben Dank
ich habe bereits versucht mit der BuiltinDocumentProperties-Funktion herumzuspielen. Ich bringe es jedoch nicht fertig.
Weiss jemand wie man dies anwendet?
Liebe Grüsse Elena
Betrifft: AW: Application.FileSearch - Kriterium Autor?
von: ChrisL
Geschrieben am: 15.10.2003 10:34:44
Hi Elena
Hast du dir das letzte Makrobeispiel im Link angesehen. Es werden alle Word-Dateien eines Verzeichnisses inkl. Autor gelistet.
Habe es selber nicht hingebracht, die BuiltInDocumentProperties abzuholen, ohne die Datei zu öffnen, was ein Nachteil ist.
Gruss
Chris