Checkout and checkin sharepoint file

Question

I am getting Runtime error 1004: cancheckout method failed near cancheckout and

Compile error: Method or data member not found in line

If Workbooks.CanCheckIn(ChkFile) = True Then

How do I resolve the issue?

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

Can you access the file any other way (e.g. by pasting the url into a web browser)? — z32a7ul, Apr 01 '17 at 14:35
Are you sure that you want to check in the file at the end of the Sub even if you failed to check it out at the beginning? — z32a7ul, Apr 01 '17 at 14:36

score 1 · Answer 1 · edited Jul 24 '18 at 15:53

1

Try changing ChkFile = "http://new1....com/Shared%20Documents/file.xlsm" to ChkFile = "http://new1....com/Shared Documents/file.xlsm", i.e. replacing %20 for a space since the whole path is already within brackets

edited Jul 24 '18 at 15:53

Leviand

2,745
4
29
43

answered Jul 24 '18 at 13:21

Joao Ramos

11
1

score 0 · Answer 2 · answered Feb 15 '23 at 16:44

0

The CanCheckIn method belongs to an individual Workbook object. You are trying to use it from the Workbooks collection.

Try using this code:

If Workbooks(ChkFile).CanCheckIn = True Then

answered Feb 15 '23 at 16:44

ChipsLetten

2,923
1
11
28

score -1 · Answer 3 · edited Dec 18 '16 at 00:04

-1

I tried a lot of way to resolve this, finally this method worked for me

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

edited Dec 18 '16 at 00:04

Community

1
1

answered Jan 05 '16 at 21:07

excelexpert

11

1

Please format your answer properly as explained in [this help page](http://stackoverflow.com/help/formatting). – Martin Zabel Jan 05 '16 at 21:14
This code is essentially the same as the line that causes error in the OP's Sub. – z32a7ul Apr 01 '17 at 14:38

Checkout and checkin sharepoint file

3 Answers3