Как зарегистрировать файл на sharepoint?

Я написал следующий код для регистрации файлов через VBA на Sharepoint.

Dim strWkbCheckIn As String

strWkbCheckIn = spBASE_URL + spDOC_LIB + "/" + spFILE_NAME

' Determine if workbook can be checked in.
If Workbooks(strWkbCheckIn).CanCheckIn = True Then
   Workbooks(strWkbCheckIn).CheckIn
   MsgBox ("checked in.")
Else
   MsgBox ("This file cannot be checked in ")
End If

Но он показывает следующую ошибку:

Run-time error '9':
Subscript out of range

Я уже проверил, что файл существует на общей точке. Но все еще получаю эту ошибку. Просто дикая догадка, возможно ли, что с тех пор, как файл выдан мне, он не виден программе?


sharepoint vba checkin
person Dimi Ansari    schedule 31.07.2018    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Это должно сделать это за вас.

Sub testing()
    Dim docCheckOut As String
    'docCheckOut = "//office.bt.com/sites/Training/Design Admin/Training Plan/adamsmacro.xlsm"
    docCheckOut = "http://excel-pc:43231/Shared Documents/ExcelList.xlsb"
    Call UseCheckOut(docCheckOut)
    Call UseCheckIn(docCheckIn)
End Sub

Sub UseCheckOut(docCheckOut As String)
     ' Determine if workbook can be checked out.
    If Workbooks.CanCheckOut(docCheckOut) = True Then
        Workbooks.CheckOut docCheckOut
    Else
        MsgBox "Unable to check out this document at this time."
    End If
End Sub

Sub UseCheckIn(docCheckIn As String)
     ' Determine if workbook can be checked out.
    If Workbooks.CanCheckIn(docCheckIn) = True Then
        Workbooks.CheckIn docCheckIn
    Else
        MsgBox "Unable to check in this document at this time."
    End If
End Sub
person ASH    schedule 31.07.2018
comment
Какие ссылки нужны, чтобы это работало? CanCheckIn обычно не является методом рабочей книги.... - person Selkie; 25.10.2019