从 Sharepoint 以读写方式打开 Excel 文件答案

【问题标题】：Opening Excel file from Sharepoint as Read-Write从 Sharepoint 以读写方式打开 Excel 文件
【发布时间】：2018-12-04 08:49:59
【问题描述】：

我从 Sharepoint 位置自动打开、编辑、保存和关闭多个 Excel 工作簿。以下代码打开工作簿（path 循环遍历列表以点击每个工作簿名称）：

Workbooks.Open Filename:=path, ReadOnly:=False, Editable:=True

文件以只读模式打开，启用编辑的黄色对话框选项不出现。

我通过宏手动编辑这些工作簿，但我无法在不保存为新文件的情况下将文件保存回 Sharepoint。

我使用的是 Excel 2013。这在大约一年前按预期工作，但我相信 Office 365 可能已经更新。我检查了所有 Excel 工作簿安全选项，默认情况下没有设置为打开只读。

有没有办法通过宏以可编辑模式打开文件，或者至少允许为每个工作簿显示“启用编辑”选项？

【问题讨论】：

您可能必须取消选中信任中心的受保护视图设置中的所有框。或者，您可能必须在 Excel 的“受信任文档”部分中允许信任网络上的文档。我也可能是导致“只读”的共享点安全性。

标签： excel vba sharepoint

【解决方案1】：

我一直在尝试为我的文件解决同样的问题，最终做到了！所以我觉得我也许可以让别人知道。这个古老的线程出现在我的谷歌搜索顶部附近。

为我解决的问题是编辑链接。

来自： https://Company.sharepoint.com/:x:/r/teams/TeamNo/Shared%20Documents/Example/CoolFolder/TheBestExcelFile.xlsm

到： https://Company.sharepoint.com/teams/TeamNo/Shared%20Documents/Example/CoolFolder/TheBestExcelFile.xlsm

请注意，我只使用替换来摆脱 :x:/r/。我觉得我之前应该注意到这一点，但我没有，也没有干预 Workbook.Open 参数让我到任何地方。奇怪的是，默认的链接副本给了你一个带有特殊命令的东西。对于我们公司来说，大多数文件夹都有空格，所以链接中有大量的“%20”，所以我只是阅读了“:x:/r/”。

希望它对某人有所帮助。

为了清楚起见，试试这个：

Sub Example()

'1.) Get filepath from somewhere
FilePath = Replace("https://Company.sharepoint.com/:x:/r/teams/TeamNo/Shared%20Documents/Example/CoolFolder/TheBestExcelFile.xlsm", ":x:/r/", "")

'2.) Open the file
Set StatisticsFile = Workbooks.Open(FileName:=FilePath, Password:="123")

'3.) Do things

'4.) Close the Sheet, save the changes. I simply like it this way, could be done in a single line.
StatisticsFile.Save
StatisticsFile.Close savechanges:=False

End Sub

我注意到了这个解决方案，因为如果我导航到 SaveAs，我仍然可以使用相同的名称手动保存 .xlsx 文件。所以如果你们通过宏打开文件后仍然可以这样做，请尝试类似的解决方案。

【讨论】：

【解决方案2】：

为 Excel-OneDrive-SharePoint 设计的交互是 2016 年应用程序中的新功能，该版本是正常工作的必要条件。

2013 版可以通过调整有关 Office 共同创作配置的 OnDrive“帐户”设置来工作，该配置专门应用于 Excel 和 Word

右键单击任务栏中的 OneDrive 图标以进入设置

祝你好运！

【讨论】：

【解决方案3】：

我知道您的查询是很久以前发布的，但我找到了删除只读阻止程序并通过宏更新 excel 文档的解决方案：

如果您在打开文件的代码后添加“ActiveWorkbook.LockServerFile”，则它会删除只读并正常更新excel。

【讨论】：