Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
636to640
636to640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

date last modified

Forumthread: date last modified

date last modified
18.07.2005 15: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: date last modified
18.07.2005 15: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
Anzeige
AW: date last modified
18.07.2005 15: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 15: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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum