Erstelldatum einer Datei auslesen mit VBA
Schritt-für-Schritt-Anleitung
Um das Erstelldatum einer Datei mit VBA auszulesen, kannst du die folgenden Schritte befolgen:
-
Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke
ALT + F11 in Excel.
-
Erstelle ein neues Modul:
- Rechtsklick im Projektfenster auf "VBAProject (DeinWorkbookName)" >
Einfügen > Modul.
-
Füge den folgenden VBA-Code ein:
Sub AuslesenErstelldatum()
Dim erstellt As Variant
erstellt = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
MsgBox "Das Erstelldatum ist: " & erstellt
End Sub
-
Führe das Makro aus:
- Drücke
F5 oder klicke auf Run.
Dieser Code verwendet die BuiltinDocumentProperties-Eigenschaft, um das Erstelldatum einer Datei auszulesen. Stelle sicher, dass du eine passende Excel-Version verwendest, um Komplikationen zu vermeiden.
Häufige Fehler und Lösungen
Alternative Methoden
Eine weitere Methode, um das Erstelldatum auszulesen, ist der Einsatz von Windows-Skripting. Hier ein Beispiel, wie du das mit VBA umsetzen kannst:
Sub AuslesenDateiErstelldatum()
Dim fso As Object
Dim Datei As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Datei = fso.GetFile(ActiveWorkbook.FullName)
MsgBox "Das Erstelldatum ist: " & Datei.DateCreated
End Sub
Dieses Skript verwendet das FileSystemObject, um auf die Dateieigenschaften zuzugreifen.
Praktische Beispiele
-
Erstelldatum in eine Zelle schreiben:
Du kannst das Erstelldatum direkt in eine bestimmte Zelle deiner Arbeitsmappe schreiben:
Sub ErstelldatumInZelle()
Dim erstellt As Variant
erstellt = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
Worksheets("Tabelle1").Range("A1").Value = erstellt
End Sub
-
Änderungsdatum auslesen:
Wenn du das Änderungsdatum einer Datei auslesen möchtest, kannst du den folgenden Code verwenden:
Sub AuslesenAenderungsdatum()
Dim aenderung As Variant
aenderung = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
MsgBox "Das Änderungsdatum ist: " & aenderung
End Sub
Tipps für Profis
- Fehlerbehebung: Setze Haltepunkte im Code und benutze das Lokalfenster, um die Eigenschaften der Variablen zu inspizieren. Das hilft dir, besser zu verstehen, wo der Fehler liegt.
- Dokumenteneigenschaften ansehen: Nutze den Befehl
Debug.Print ActiveWorkbook.BuiltinDocumentProperties im Direktfenster, um alle verfügbaren Dokumenteneigenschaften anzuzeigen.
FAQ: Häufige Fragen
1. Kann ich das Erstelldatum auch für andere Dateitypen auslesen?
Ja, das Prinzip bleibt dasselbe, jedoch musst du sicherstellen, dass die Datei die entsprechenden Eigenschaften hat.
2. Warum funktioniert der Befehl nicht in meiner Excel-Version?
Stelle sicher, dass du die richtige Syntax verwendest und überprüfe, ob die Dokumenteneigenschaften gespeichert sind. Möglicherweise gibt es Unterschiede zwischen den Excel-Versionen.