Checking out SharePoint document via macro

[Analyze_This]

Good afternoon everyone,
I'm trying to write a macro to open a workbook in SharePoint, check it out, do my thing (technical term), and then check in/close the workbook. I've managed to get the book open, but I get an error when trying to check out or check in. Any thoughts? Here is the code I'm using:

Sub WorkDamnit()

Workbooks.Open Filename:= _
"http://xxxxxxxxx.xlsx"

'THIS IS SUPPOSED TO CHECK OUT, BUT GIVES ERROR
ExecuteExcel4Macro _
"(""http://xxxxxxxxx.xlsx"",48)"

'HERE IS MY CODE


'SUPPOSED TO CHECK IN, BUT GIVES ERROR
ExecuteExcel4Macro _
"(TRUE,"""",FALSE,0,""http://xxxxxxx.xlsx"",0,0)"

End Sub

 

[michael.james]

Good afternoon everyone,
I'm trying to write a macro to open a workbook in SharePoint, check it out, do my thing (technical term), and then check in/close the workbook. I've managed to get the book open, but I get an error when trying to check out or check in. Any thoughts? Here is the code I'm using:

Sub Work****it()

Workbooks.Open Filename:= _
"http://xxxxxxxxx.xlsx"

'THIS IS SUPPOSED TO CHECK OUT, BUT GIVES ERROR
ExecuteExcel4Macro _
"(""http://xxxxxxxxx.xlsx"",48)"



'HERE IS MY CODE


'SUPPOSED TO CHECK IN, BUT GIVES ERROR
ExecuteExcel4Macro _
"(TRUE,"""",FALSE,0,""http://xxxxxxx.xlsx"",0,0)"

End Sub

--

Yep, this is what you get when you record the check out/check in process. VBA does give you the commands to do this, although in my experience it only works if you check the file out, then open it, then close it, then check it in:


Sub CheckOut()

Dim FileName As String

Workbooks(FileName).CheckOut
WorkBooks(FileName).Open

'Code here

ActiveWorkBook.Close

End Sub


As a default you will now get the normal 'Do you want to save changes?' and 'Do you want to check in now?' prompts, but you can manipulate these via VBA if you want.

HTH

MJ