使用VBA的访问从SharePoint

Question

签一个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下降到Excel数据几件，但作为Excel文件在SharePoint我需要签入/签提交更改。

Answer 1

公开赛检查出来，它应该为你工作之前，你的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会自动关闭工作对象。