Я заполняю метаданные библиотеки SharePoint книгой Excel. У меня есть одна сводная страница, которая содержит все метаданные, необходимые для сайта SharePoint. У меня 63 поля, которые я обновляю. Я случайно получаю ошибку «method» value «metaproperty» failed »на 4 строках кода. Есть мысли о том, почему?
Ниже приведен фрагмент кода. Я получаю сообщение об ошибке в последней строке ContentTypeProperties. Я на 99% уверен, что поле метаданных написано правильно.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim rl As Worksheet
Set rl = ThisWorkbook.Worksheets("Reference List Summary")
Dim i As Integer ' 'Used to enable adding rows at later date without having to rewrite every line
i = 1
ThisWorkbook.ContentTypeProperties("Plant Rate").Value = rl.Cells(i + 1, 2).Value
ThisWorkbook.ContentTypeProperties("Plant Rate Units").Value = rl.Cells(i + 2, 2).Value
ThisWorkbook.ContentTypeProperties("Plant Rate (Hydrogen) (kmol/hr)").Value = rl.Cells(i + 3, 2).Value
ThisWorkbook.ContentTypeProperties("Plant Rate (Amm) (kmol/hr)").Value = rl.Cells(i + 4, 2).Value
ThisWorkbook.ContentTypeProperties("Plant Rate (MeOH) (kmol/hr)").Value = rl.Cells(i + 5, 2).Value
ThisWorkbook.ContentTypeProperties("Plant Rate (kmol/hr)").Value = rl.Cells(i + 1, 2).Value
end sub