заказ и Checkin SharePoint файл

Question

Я получаю сообщение об ошибке выполнения 1004: Метод cancheckout не удалось вблизи cancheckout и

Ошибка компиляции: Метод или член данных не найден в строке

If Workbooks.CanCheckIn(ChkFile) = True Then 

Как решить эту проблему?

Sub ToCheck() 
    Dim xlApp As Excel.Application 
    Dim wb As Workbook 
    Dim ChkFile As String 
    ChkFile = "http://new1....com/Shared%20Documents/file.xlsm" 

    If Workbooks.CanCheckOut(ChkFile) = True Then 'getting error here 
     Workbooks.CheckOut ChkFile 

     Set xlApp = New Excel.Application 
     xlApp.Visible = True 

     Set wb = xlApp.Workbooks.Open(ChkFile, , False) 
    End If 

    ThisWorkbook.Activate 
    Application.Run ("'file.xlsm'!Macro1") 

    ThisWorkbook.Save 

    Workbooks(ChkFile).Activate 

    If Workbooks.CanCheckIn(ChkFile) = True Then 'Getting error here 
     Workbooks(ChkFile).CheckIn 
    End If 
End Sub 

Answer 1

Я пробовал много способ решить эту проблему, наконец, этот метод работал для меня

Dim URL as String 
Dim wb as Workbook 

URL = "http://your.com/path/to/doc.xlsx"   

If Workbooks.CanCheckOut(URL) = True Then 
    Workbooks.CheckOut URL 
    Set wb = Workbooks.Open(URL, , False) 
Else 
    MsgBox ("Unable to checkout document") 
End If