Thema Datum  Von Nutzer Rating
Antwort
Rot Ausgabe von letztem Speicherdatum etc.
23.06.2014 15:41:05 Volker
Solved
23.06.2014 17:44:01 Holger
NotSolved
24.06.2014 10:33:12 Gast57766
NotSolved
25.06.2014 15:39:04 Holger
NotSolved
28.06.2014 14:22:29 Volker
NotSolved

Ansicht des Beitrags:
Von:
Volker
Datum:
23.06.2014 15:41:05
Views:
1343
Rating: Antwort:
 Nein
Thema:
Ausgabe von letztem Speicherdatum etc.

Hallo Zusammen,

im Rahmen meiner Diplomarbeit zum Thema Wissensmanagement würde ich gerne ein Makro erstellen, welches mir verschiedene Informationen verschiedener Dateien auflistet.
Bei den Dateien handelt es sich jedoch sowohl um Excel- als auch um Word-Dateien. 

Das Auslesen von Dateiname und -pfad ist kein Problem. Schwieriger gestaltet es sich allerdings bei Ersteller bzw. Autor, letztem Zugriffsdatum und letztem Speicher- bzw. Aktualisierungsdatum. 

Mein Code sieht bisher folgendermaßen aus:

Private Sub CommandButton1_Click()

Dim Blatt As Worksheet
Dim Pfad As String
Dim DatNam As String
Dim i As Integer

Set Blatt = ThisWorkbook.Worksheets("Tabelle1")
Pfad = "D:\Diplomarbeit\Dokumentation CR-Intern\Sonstiges\"
DatNam = Dir(Pfad)
With Blatt
    i = 4
    Do While DatNam <> ""
        
        .Cells(i, 1) = DatNam
        .Cells(i, 2) = Pfad
        '.Cells(i,3) = Autor/Ersteller der Datei auslesen
        '.Cells(i, 4) = Datum des letzten Zugriffs auslesen
        '.Cells(i, 5) = Datum der letzten Aktualisierung/Änderung/Speicherung auslesen
        
        i = i + 1
        DatNam = Dir
    Loop
End With

End Sub


Über Tipps und Hilfe bzgl. meines Problems wäre ich sehr dankbar. 

MfG

Volker


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ausgabe von letztem Speicherdatum etc.
23.06.2014 15:41:05 Volker
Solved
23.06.2014 17:44:01 Holger
NotSolved
24.06.2014 10:33:12 Gast57766
NotSolved
25.06.2014 15:39:04 Holger
NotSolved
28.06.2014 14:22:29 Volker
NotSolved