Код VBA для получения библиотеки документов Sharepoint Детали метаданных на основе имени документа

У меня есть код ниже, чтобы открыть конкретный документ библиотеки документов sharepoint 2010 на основе имени файла (библиотека имеет только excelfiles), но я не могу прочитать метаданные этого файла. Я пробовал со встроенными и настраиваемыми свойствами документа, но нет удачи.Код VBA для получения библиотеки документов Sharepoint Детали метаданных на основе имени документа

Sub OpenSharePointFile(StrSharePointUrl As String, strDocLibrary As String, FileNameWithExt As String) 

Application.ScreenUpdating = False 

Dim SPWorkbook As Workbook 
Dim this  As Workbook 
Dim sh   As Shape 


Application.DisplayAlerts = False 
Set SPWorkbook = Workbooks.Open(StrSharePointUrl & strDocLibrary & "\" & FileNameWithExt) 
Application.DisplayAlerts = True 

Set this = ThisWorkbook 
If SPWorkbook Is Nothing Then 
    MsgBox "This product is not available" 
    Exit Sub 
Else 

    'Copy Metadata 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C3").Value = SPWorkbook.BuiltinDocumentProperties("Title") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C4").Value = SPWorkbook.BuiltinDocumentProperties("Business Unit") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C5").Value = SPWorkbook.BuiltinDocumentProperties("ItemNo") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C6").Value = SPWorkbook.BuiltinDocumentProperties("ECO Type") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C7").Value = SPWorkbook.BuiltinDocumentProperties("ItemDescription") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C8").Value = SPWorkbook.BuiltinDocumentProperties("Status") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("C9").Value = SPWorkbook.BuiltinDocumentProperties("CasmasUpdate") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E3").Value = SPWorkbook.BuiltinDocumentProperties("LabelData") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E4").Value = SPWorkbook.BuiltinDocumentProperties("SpqWhActive") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E5").Value = SPWorkbook.BuiltinDocumentProperties("I2of5Label") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E6").Value = SPWorkbook.BuiltinDocumentProperties("TiXHi") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E7").Value = SPWorkbook.BuiltinDocumentProperties("SpecSent") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E8").Value = SPWorkbook.BuiltinDocumentProperties("CasmasToYes") 
    'ThisWorkbook.Sheets(Sht_Input.Name).Range("E9").Value = SPWorkbook.BuiltinDocumentProperties("EcoOwner") 

    'Copy ECO Summary: 
    ThisWorkbook.Sheets(Sht_Input.Name).Range("B12").Value = SPWorkbook.Sheets(Sht_Input.Name).Range("B12").Value 

    'Copy Ref ID 
    ThisWorkbook.Sheets(Sht_Input.Name).Range("D14").Value = SPWorkbook.Sheets(Sht_Input.Name).Range("D14").Value 

    'Copy THIS ITEM 
    SPWorkbook.Sheets(Sht_Input.Name).Range("C14:C74" & lRow).Copy 
    ThisWorkbook.Sheets(Sht_Input.Name).Range("C14").PasteSpecial xlPasteValues 

    'Delete from this workbook if available and Copy Shape if available in Sharepoint 

    If ThisWorkbook.Sheets(Sht_LCEncodingInfo.Name).Shapes.Count = 2 Then 
     For Each sh In ThisWorkbook.Sheets(Sht_LCEncodingInfo.Name).Shapes 
       If sh.Name <> "Picture 1" Then 
        sh.Delete 
       End If 
     Next 
    End If 


    If SPWorkbook.Sheets(Sht_LCEncodingInfo.Name).Shapes.Count = 2 Then 
     For Each sh In SPWorkbook.Sheets(Sht_LCEncodingInfo.Name).Shapes 
       If sh.Name <> "Picture 1" Then 
        sh.Height = 150 ' 138.96 '1.93" 
        sh.Width = 150 ' 228.24 '3.17" 
        sh.Copy 
        Application.Goto ThisWorkbook.Sheets(Sht_LCEncodingInfo.Name).Range("F9") 
        ActiveSheet.Paste 
       End If 
     Next 
     ThisWorkbook.Sheets(Sht_LCEncodingInfo.Name).Range("G2").Select 
    End If 


    'Activate Input sheet 
    ThisWorkbook.Sheets(Sht_Input.Name).Activate 
    ThisWorkbook.Sheets(Sht_Input.Name).Range("C3").Select 

    Application.DisplayAlerts = False 
    SPWorkbook.Close 
    Application.DisplayAlerts = True 


    MsgBox "Product Details fetched." 

End If 

Application.ScreenUpdating = True 

End Sub

источник

2016-01-26 Krishna Kumar

'Я не могу прочитать метаданные этого File' - будет вы уточните, каким образом вы не смогли это сделать? Вы получили сообщение об ошибке? Были ли элементы метаданных возвращать пустую строку или нуль? Какие метаданные вы ожидали? Откуда вы знаете, что файл (ы) имеют метаданные, которые вы ожидаете? – halfer

Какова цель блока кода с комментариями после строки «Копировать метаданные»? – halfer

Я прокомментировал, что «Скопируйте метаданные .. потому что это дало мне массаж с ошибками» Название «дает мне пустое значение, а другие (от бизнес-единицы до EcoOwner) дает мне массаж« Ошибка времени выполнения = 5: недействительный вызов или аргумент процедуры "... Я также пробовал с CustomDocumentProperties, но это также не работает. –

Попробуйте использовать ActiveWorkbook.ContentTypeProperties («Ваше имя столбца»)
вместо SPWorkbook.BuiltinDocumentProperties («Ваше имя столбца»)

источник

2016-02-17 14:35:19 Fred

Код VBA для получения библиотеки документов Sharepoint Детали метаданных на основе имени документа

ответ

Смежные вопросы