VBA-Beispiel 073
mail schreiben
mail schreiben

mit VBA Dokumenteigenschaften auslesen

listet alle Dokumenteigenschaften der Exceldatei auf
Sub Dokumenteigenschaften()
'Dokumenteigenschaften auflisten
Dim i As Long

On Error Resume Next
i = 1
For i = 1 To ThisWorkbook.BuiltinDocumentProperties.Count
  Cells(i, 1) = ThisWorkbook.BuiltinDocumentProperties(i).Name
  Cells(i, 2) = ThisWorkbook.BuiltinDocumentProperties(i).Value
Next i

Columns("A:B").AutoFit
End Sub

Download:   vba073.zip