VBA Sharepoint Metadaten i
14.09.2023 08:51:00
Norbert
Mit dem nachfolgenden Code möchte ich hierzu die Metadaten (z.B. Erstellungsdatum) lesen.
Hierzu nutze ich den folgenden Code:
Sub CustomProp()
Dim p As Object
Dim prop As MetaProperties
Set prop = ActiveWorkbook.ContentTypeProperties
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.ContentTypeProperties
On Error Resume Next
Cells(rw, 8).Value = ActiveWorkbook.ContentTypeProperties(rw).Name
Cells(rw, 9).Value = ActiveWorkbook.ContentTypeProperties(rw).Value
rw = rw + 1
Next
End Sub
Beim Ausführen der Zeile "Set prop = ActiveWorkbook.ContentTypeProperties" erhalte ich bereits einen Fehler:
"Dieses Dokument muss Inhaltstypeigenschaften enthalten"
Frage: Wie kann ich das Problem beheben?