SharePoint Metadaten in Excel auslesen
25.05.2020 22:20:54
Martin
ich hatte kürzlich einen Beitrag erstellt, in dem es darum ging, benutzerdefinierte Eigenschaften in Excel auszulesen, die aus durch einen Inhaltstypen aus SharePoint hinzugefügt wurden. Ich hatte es mit CustomDocumentProperties probiert und nur die ID des Inhaltstypen angezeigt bekommen, nach ein paar Anregungen und etwas weiterer Recherche habe ich nun den passenden Code gefunden, den ich euch nicht vorenthalten möchte.
Auf den alten Thread konnte ich leider nicht mehr antworten. Ich habe offenbar die Antwortfrist verpasst und die Antwort auf meine Frage zu spät mitbekommen.
Der Code zeigt alle Inhaltstypen an, die keine Sonderzeichen oder Umlaute enthalten. Im anderen Fall entsteht ein Fehler, den ich vorerst im Code übersprungen habe. Hier muss ich noch etwas tüfteln, ob es ein Möglichkeit gibt, Inhalte mit Sonderzeichen/Umlauten anzuzeigen.
Vielen Dank auch noch an Firmus für die Antwort auf meine erste Frage und die hilfreichen Infos, die mir weitere Anregungen für meine Recherchen gegeben haben, auch, wenn ich letztlich den vorgeschlagenen Code nicht nutzen konnte.
Hier der 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