VBA 移動到 Office 365 后的 SaveAs 問題

Question

遷移到 Office 365 后，我在 Excel 2010 下編寫的宏遇到問題。簡而言之 - 我有一個宏存儲在一個存儲在共享驅動器中的中央文件中，該文件從不同的 SharePoint 文件夾打開多個文件，粘貼一些數據在每個和保存。 為此，我使用：

Set WB = Workbooks.Open (filename:=path, UpdateLinks:=0)
[some code]
WB.SaveAs Filename=:path

這在 excel 2010 下非常好，現在我明白了

運行時錯誤 1004。

此外，當我在 SaveAs 方法崩潰后完全停止宏並嘗試手動保存時 - 整個 excel 立即崩潰並重新啟動。我嘗試在這種情況下搜索 excel 代之間的差異，但我什么也沒找到。 我還嘗試添加更多屬性 - 文件打開和保存方法，如readonly:=false, ignorereadonlyrecommendation:=true, file format:=xlworbookdefault等，沒有效果。 我還注意到，當宏崩潰時，盡管在Workbooks.open方法中包含readonly:=false ，但應該保存和關閉的文件仍處於ReadOnly中 - 就好像這被完全忽略了一樣。

感謝任何幫助，這個工具是我日常工作的關鍵，到目前為止升級到新的 excel 讓一切變得更糟：[

Answer 1

好的，我找到了答案 - 顯然它與從服務器打開文件（Sharepoint 部分）有關，因此需要一行新代碼，即：

ActiveWorkbook.LockServerFile

我以前在 Excel 2010 上從未使用過它，直到現在才知道它存在