使用Access VBA从Sharepoint签出Excel文档

我有一个相当奇怪的情况，下面的代码可以成功地将文件从sharepoint签出到Excel

Private sub checkoutfromSP()
Dim loc as String
loc = "Location"

if Workbooks.CanCheckOut(loc) = true then
Workbooks.CheckOut loc
end if

然而，这如何转化为访问？我总是收到错误“此文档无法签出”，代码如下

Dim objXL as Excel.Application
Dim loc as String

loc = "Location"
objXL = new Excel.Application

if objXL.Workbooks.CanCheckOut(loc) = True then
objXL.Workbooks.CheckOut loc
end if

---

通过Access签出的原因是有一些数据需要从Access放入Excel中，但是由于Excel文件位于sharepoint上，我需要签出/签入以提交更改。

在签出之前使用Excel实例打开文档，它应该适合您：

Dim objXL As Excel.Application
Dim objWB As Excel.Workbook 'NEW
Dim loc As String

loc = "Location"

Set objXL = New Excel.Application  'Make sure you use Set here

If objXL.Workbooks.CanCheckOut(loc) = True Then
    Set objWB = objXL.Workbooks.Open(loc)  'NEW
    objXL.Workbooks.CheckOut loc
End If

当您使用行

objWB.CheckIn

检入工作簿时，Excel会自动关闭工作簿对象