使用Access VBA从Sharepoint签出Excel文档

Chris 发表于 Dev

克里斯

我有一个很奇怪的情况，下面的代码可以成功地将文件从Sharepoint检出到Excel ...

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

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

但是，这如何转换为Access？我总是收到以下代码错误“此文档无法检出”吗？

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文件位于共享点上，因此我需要检出/检入以提交更改。

黑鹰

在签出文档之前用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将自动关闭该工作簿对象。

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。