Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

date last modified

date last modified
18.07.2005 13:01:07
David
hallo zusammen,
ich versuche gerade mir über ein makro die dokumentinformation "datelastmodified" in die fusszeile zu kopieren und komme mit der dazu angegebenen excel-hilfe nicht ganz so klar. man muss doch vorher die funktion showfileinfo benutzen, oder?
kennt sich irgendjemand damit aus? bin auch gern bereit das problem etwas umfangreicher zu beschreiben...
viele grüße
david

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: date last modified
18.07.2005 13:29:53
Heinz
Hallo David,
sieh dir mal dies an:

Sub DateiEigenschaften()
Dim rw%, p As Variant, i%
rw = 1
For Each p In ActiveWorkbook.BuiltInDocumentProperties
On Error Resume Next
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p
rw = rw + 1
On Error GoTo 0
Next
End Sub

Gruß
Heinz
AW: date last modified
18.07.2005 13:30:03
Heiko
Hallo David,
bei mir in EXCEL 2003 sieht das Beispiel so aus und läuft wunderbar, davon brauchst du dann ja nur den Teil mit s = s & "Last Modified: " & f.DateLastModified
'Aufruf mit

Sub LMD()
ShowFileAccessInfo (ActiveWorkbook.FullName)
End Sub

' Makro für das einlesen der Infos.

Sub ShowFileAccessInfo(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
MsgBox s, 0, "File Access Info"
End Sub

Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: date last modified
18.07.2005 13:44:43
David
Hallo Heiko,
nach einem ersten Versuch scheint es zu funktionieren. Genau diese ersten 3 Zeilen (Sub LMD ()) haben mir gefehlt.
Danke!!
Gruß David

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige