www.Russ-Jesteburg.de > Excel > VBA > Datei

Dokumenteigenschaften auslesen:

' "Eingebaute" Dokumenteigenschaften auslesen und in Tabelle ausgeben
Sub Dokumenteigenschaften_auslesen()
    Dim Nummer As Integer
    For Nummer = 1 To ActiveWorkbook.BuiltinDocumentProperties.count
        Cells(Nummer, 1).Value = _
            ActiveWorkbook.BuiltinDocumentProperties(Nummer).Name
        Cells(Nummer, 2).Value = _
            ActiveWorkbook.BuiltinDocumentProperties(Nummer).Value
    Next
End Sub

Dieser Tipp ist vom 27.10.2004