ActiveWorkbook.SaveAs 保存到 SharePoint 时无法完成

Question

我在使用宏控制文件时遇到保存例程关闭的问题，保存任务实际上已完全完成，但“上传到 SharePoint”对话框一直在无休止地运行。

如果我在对话框中单击取消，代码将继续完成并且文件实际上已保存，包括更改。

我已经映射了一个提供对 SharePoint 文件夹的访问的驱动器，例如

R:\The Folder

我在这个文件夹中有一个工作簿，它将数据写入多个文件，要做到这一点，它几乎遵循以下过程。这个例程在单独的工作簿中，在到达这部分之前有很多代码准备数据，但文件只在最后打开和关闭。

Sub OpenDoStuffSaveandClose

Workbooks.Open("R:\FiletoAmend.xlsx") 'mapped drive to a SharePoint folder
ActiveWorkbook.LockServerFile    'to prevent other users updating when I'm working on the file
Range("A10:B20").value = "Help!!"    'code that does stuff to the file
ActiveWorkbook.close True 'The the problem occurs here!

end sub

我试过使用 ActiveWorkBook.SaveAs、ActiveWorkbook.Save 来取消 LockServerFile，每次都是同样的问题

如果我手动开合1-2%的故障率

如果运行代码，一个受控工作簿的失败率为 90%，其他工作簿的失败率为 10%

我担心 SharePoint 和 OneDrive 之间存在一些同步问题，或者在 SharePoint 上运行宏和控制这些文件时发生冲突

为了克服这个问题，我使用了

ActiveWorkbook.AutoSaveOn = False

，但最近这引发了错误并且不再被识别......出乎意料！

有人经历过吗？有人有解决办法吗？

谢谢乔恩

Answer 1

我建议您为此开一个支持工单，支持工程师将能够更好地帮助您。您可以从以下位置筹集支持票：

http://aad.portal.azure.com 或 https://admin.microsoft.com/#/support/requests.