Dateiinfos mit VBA auslesen und in Excel Datei schreiben

22/03/2010 - 12:27 von Steve Thal | Report spam
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...en-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 = i + 1

DatNam = 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/tutorial...-page.aspx
 

Lesen sie die antworten

#1 Michael Franke
27/03/2010 - 17:56 | Warnen spam
Hallo Steve,

On 22 Mrz., 12:27, Steve Thal wrote:
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...rmation...

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 = i + 1

DatNam = 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...-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

Ähnliche fragen