Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Dateieigenschaften in Zellen einfügen

1,755 views
Skip to first unread message

Daniel

unread,
Feb 22, 2004, 3:02:59 PM2/22/04
to
Wie kann ich im Excel den Inhalt der Dateiegenschaften in
Zellen einer arbeitsmappe einfügen.

Frank Kabel

unread,
Feb 22, 2004, 3:13:11 PM2/22/04
to
Hi Daniel

dafür brauchst du VBA (eine benutzerdefinierte Funktion). Füge z.B.:
folgende Funktion in ein modul ein

Function DocProps(prop As String)
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function

Aufrufen kannst Du sie dann in einer Zelle z.B.: wie folgt:
=DocProps("Last save time")

--
Regards
Frank Kabel
Frankfurt, Germany

danie...@bigfoot.de

unread,
Feb 22, 2004, 3:37:37 PM2/22/04
to
Danke, das mit der zuletz gespeicherten Zeit funktioniert.
Leider kann ich die gewünschten Angaben immer noch nicht
herausholen. Ich habe die Eigenschaften in der Exceldatei
gemeint, diese unter <Datei> >Eigenschaften>
<Zusammenfassung>.
Weiss jemand wie die Felder genau heissen um sie so
herauszuholen.

MErci

>-----Originalnachricht-----

>.
>

Frank Kabel

unread,
Feb 22, 2004, 4:06:33 PM2/22/04
to
Hi Daniel
genau analog zu dem oben aufgeführten Also z.B.:
=DocProps("Title")
=DocProps("Author")
etc. Einfach den Aufrufparameter ändern

--
Regards
Frank Kabel
Frankfurt, Germany

Daniel

unread,
Feb 22, 2004, 4:24:05 PM2/22/04
to
Besten Dank
funktioniert einwandfrei

gruss
daniel jakob
bern, schweiz
>-----Originalnachricht-----

>.
>

0 new messages