Dateiinfos mit VBA auslesen und in Excel Datei schreiben

[unknown]

Hallo,



kann mir als Amateur hier noch jemand weiter helfen und das Script von oben erweitern um die Information "zuletzt gespeichert von"?

Das Script findet sich in diesem Beitrag: http://www.eggheadcafe.com/software/aspnet/32973292/-dateiinformationen-au.aspx

Hier der Auszug:

Do While DatNam <> ""

.Cells(i, 2) =DatNam

.Cells(i, 3) =Int(FileDateTime(Pfad & DatNam))

.Cells(i, 4) =FileDateTime(Pfad & DatNam) -

Int(FileDateTime(Pfad & DatNam))

.Cells(i, 5) =FileLen(Pfad & DatNam)

'.Cells(i, 6) ='neuer Eintrag zur Angabe des Ordners

(?)

'.Cells(i, 7) ='NEUER EINTRAG MIT "ZULETZT GESPEICHTER VON"

i =3D i + 1

DatNam =3D Dir

Loop



Soweit ich herausgefunden habe findet sich die Info in BuiltinDocumentProperties - aber leider wei? ich nicht, wie ich das hir korrekt einsetzte. Vielen Dank!



Stefan



Submitted via EggHeadCafe - Software Developer Portal of Choice
Measuring SharePoint Page Rendering
http://www.eggheadcafe.com/tutorials/aspnet/c0a9ac9e-53cd-442f-8981-9d5f236c2be5/measuring-sharepoint-page.aspx

[Michael Franke]

Hallo Steve,

Post by unknown
Hallo,
kann mir als Amateur hier noch jemand weiter helfen und das Script von oben erweitern um die Information "zuletzt gespeichert von"?
Das Script findet sich in diesem Beitrag:http://www.eggheadcafe.com/software/aspnet/32973292/-dateiinformation...
Do While DatNam <> ""
.Cells(i, 2) =DatNam
.Cells(i, 3) =Int(FileDateTime(Pfad & DatNam))
.Cells(i, 4) =FileDateTime(Pfad & DatNam) -
Int(FileDateTime(Pfad & DatNam))
.Cells(i, 5) =FileLen(Pfad & DatNam)
'.Cells(i, 6) ='neuer Eintrag zur Angabe des Ordners
(?)
'.Cells(i, 7) ='NEUER EINTRAG MIT "ZULETZT GESPEICHTER VON"
i =3D i + 1
DatNam =3D Dir
Loop
Soweit ich herausgefunden habe findet sich die Info in BuiltinDocumentProperties - aber leider wei? ich nicht, wie ich das hir korrekt einsetzte. Vielen Dank!
Stefan
Submitted via EggHeadCafe - Software Developer Portal of Choice
Measuring SharePoint Page Renderinghttp://www.eggheadcafe.com/tutorials/aspnet/c0a9ac9e-53cd-442f-8981-9...

den Wert von "Last Author" erhältst Du mit
"ActiveWorkbook.BuiltinDocumentProperties(7).Value" (ActiveWorkbook
ggf. anpassen). Vergleiche hierzu http://www.office-loesung.de /
ftopic14371_0_0_asc.php (3. Treffer zum Stichwort
BuiltinDocumentProperties bei Google).

Gruß, Michael