Запись значений метаданных в SharePoint онлайн с помощью Excel VBA - разные проблемы - PullRequest
Новая
       21

Запись значений метаданных в SharePoint онлайн с помощью Excel VBA - разные проблемы

0 голосов
/ 11 января 2019

У меня есть макрос VBA в Excel 2016, который используется для сохранения формы в SharePoint в Интернете. Мне нужно, чтобы заполнить пару значений метаданных в библиотеке документов SP с помощью ContentTypeProperties. Я могу сделать это, когда сохраняемый документ - Excel, но я использую файл Excel для создания и сохранения PDF в SharePoint, и я не нахожу, как заполнить эти значения метаданных PDF. Если я загружаю Excel, они там. С PDF они не. Вот макрос: 

Sub SubmitButton_click()
    'SUBMIT APPROVAL button event

    Dim FileSaveInfo As Variant
    Dim SPPath As String
    Dim POName As String
    Dim FullNamePath As String

    'Initialize naming
    SPPath = "https://mycompany.sharepoint.com/sites/Finance/Purchase%20Orders/"
    POName = "PO" & Cells(10, 9).Value & "_"
    POName = POName & Format(Now(), "yyyyMMddHHmm") & ".pdf"
    FullNamePath = SPPath & POName

    'Set SharePoint metadata properties
    With ActiveWorkbook
        .ContentTypeProperties("Level 1 Approver").Value = Cells(11, 14).Value
        .ContentTypeProperties("Level 2 Approver").Value = Cells(12, 14).Value
    End With

    'Upload to SharePoint as PDF
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=FullNamePath, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        From:=1, To:=1, _
        OpenAfterPublish:=False

End Sub

Спасибо за любые идеи.

...