使用 VBA 将未修改的 Excel 工作簿检入 SharePoint 时 Excel 崩溃

Question

我正在开发 vba项目本质上是这样的:

if workbooks.canCheckOut(filename) = true then    
  workbooks.CheckOut(filename)
  set workbookVariable = workboooks.Open(filename)
else    
   ' Pesudocode: Display error message
   '             Quit
end if

' Pseudocode: Do some stuff with workbookVariable.    
If workbookVariable.saved = false then     
    workbookVariable.save
end if

If workbookVariable.canCheckIn then    
    workbookVariable.checkIn
    Set workbookVariable = Nothing
else    
    msgbox "Error message goes here", vbCritical
end if    
' Pseudocode: quit

(编辑:我有“If workbookVariable.Saved = True”；这是不正确的。如果文件已经保存，则保存文件没有意义......所以现在更新以反射(reflect)我真正拥有的内容。)

如果工作簿被修改并保存，一切都会正常运行。它会保存、重新 checkin SharePoint，然后程序正常结束。

但是，如果工作簿没有被修改，当它进入程序的签回部分时，Excel 崩溃，并且我收到一条错误消息:“自动化错误”。

我什至尝试在 checkIn 命令之后放入等待命令，但没有成功......

这是怎么回事？有人能指出我正确的方向吗？

Answer 1

如果未进行任何更改 (workbookVariable.saved = true)，请使用 workbookVariable.CheckIn(False)。您不想 checkin 与原始版本完全相同的修订版本。至少浪费空间。这应该丢弃您的“CheckOut”。请参阅MSDN .

感谢this page感谢指出了本应显而易见的事情。

最后一个好奇点:当您可能不会对其进行更改时，为什么还要检查工作簿？