BuiltinDocumentProperties auf fremde Dokumente

04/08/2008 - 15:44 von c-class | Report spam
Hallo,

danke vorab für alle Unterstützung. Mein Problem:

In einer Spalte stehen zahlreiche Dateinamen. Diese Dateien sollen auf
Aktualitàt überprüft werden (Datum der letzten Speicherung) und eine
entsprechende Bemerkung in einer weiteren Spalte gespeichert werden.

Was nicht klappt: BuiltinDocumentProperties auf andere Dateien (also
nicht die gerad geöffnete) anwenden.

Code:
check = path & "\" & file
last_update = check & "." & BuiltinDocumentProperties(12).Value

Die Variable check ist 100% in Ordnung, funktioniert prima.
Warum bekomm ich für last_update jedoch z.B.
c:\Ordner\datei.xls 01.01.2008
anstatt nur 01.01.2008?

Vielen Dank!!!
Nico
 

Lesen sie die antworten

#1 stefan onken
04/08/2008 - 16:18 | Warnen spam
On 4 Aug., 15:44, c-class wrote:
Hallo,

danke vorab für alle Unterstützung. Mein Problem:

In einer Spalte stehen zahlreiche Dateinamen. Diese Dateien sollen auf
Aktualitàt überprüft werden (Datum der letzten Speicherung) und eine
entsprechende Bemerkung in einer weiteren Spalte gespeichert werden.

Was nicht klappt: BuiltinDocumentProperties auf andere Dateien (also
nicht die gerad geöffnete) anwenden.

Code:
check = path & "\" & file
last_update = check & "." & BuiltinDocumentProperties(12).Value

Die Variable check ist 100% in Ordnung, funktioniert prima.
Warum bekomm ich für last_update jedoch z.B.
c:\Ordner\datei.xls 01.01.2008
anstatt nur 01.01.2008?

Vielen Dank!!!
Nico



hallo Nico,
du musst eine Datei erst öffnen, um die BuiltinDocProperties zu lesen,
etwa so:

check = Path & "\" & file
Workbooks.Open check
MsgBox ActiveWorkbook.BuiltinDocumentProperties(12)
ActiveWorkbook.Close False

es geht aber auch ohne öffnen, zB so

check = Path & "\" & file
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(check)
msgbox f.DateLastModified

Gruß
stefan

Ähnliche fragen