从 SharePoint Online 打开 Office 365 Workbooks.open 打开空白文件答案

【问题标题】：Office 365 Workbooks.open from SharePoint Online opens blank file从 SharePoint Online 打开 Office 365 Workbooks.open 打开空白文件
【发布时间】：2019-12-04 00:16:20
【问题描述】：

我们公司在半年更新频道上使用 Office 365 Pro Plus。最近我们从版本 1708 更新到了 1803。

我们使用了一些自动化宏，而不是从我们的 SharePoint 在线租户中打开文件。自更新以来，Workbooks.open("https://xxxxxx.sharepoint.com/sites/.../xxx.xlsx") 的调用现在每次都会提示输入 O365 用户和密码，并且不要使用用作 Excel 帐户的那个。

它会打开一个“空白”工作簿（见截图）：

本地文档上的Workbooks.open() 仍然像以前一样工作，只有从SP Online 打开文件有这个问题。

我尝试在计算机上切换到每月频道，但问题仍然存在。使用链接手动打开文件是有效的。

这是我们正在使用的示例代码：

Sub Transfert_SST_Copy()

Dim Tbl As ListObject
Dim NewRow As ListRow
Dim Data As ListRow
Dim Wb As Workbook

Set Wb = Workbooks.Open(Filename:="https://xxxxx.sharepoint.com/:x:/r/sites/XXX/AMTB%20RFQ%20costing/00%20General/Overview%20RFQs/Cost%20computations%20simple%20overview/2018%20AMTB_Cost_computations_overview_simple.xlsm?d=w8929b5112ed7496bb25d82b0bfc472c5&csf=1&e=PADrRt", ReadOnly:=False)
' Here Excel opens a "Blank" Workbook, so everything after that is giving an error
Set Tbl = Range("CostCalcOverview").ListObject
Set NewRow = Tbl.ListRows.Add(AlwaysInsert:=True)

NewRow.Range.Offset(0, 1).Resize(1, ThisWorkbook.Worksheets("Transfert").Range("A275:AW275").Count).Value = ThisWorkbook.Worksheets("Transfert").Range("A275:AW275").Value

End Sub

【问题讨论】：

标签： vba excel sharepoint

【解决方案1】：

您好，我也遇到了同样的问题 - 这对我来说很容易，因为这似乎很容易！问题在于您的文件名链接。

 Set Wb = Workbooks.Open(Filename:="https://xxxxx.sharepoint.com/:x:/r/sites/XXX/AMTB%20RFQ%20costing/00%20General/Overview%20RFQs/Cost%20computations%20simple%20overview/2018%20AMTB_Cost_computations_overview_simple.xlsm?d=w8929b5112ed7496bb25d82b0bfc472c5&csf=1&e=PADrRt", ReadOnly:=False)

当您单击“共享”或“复制链接”时，您使用的文件名链接直接来自 SharePoint，但对我来说解决此问题的方法是在 Desktop Excel 中实际打开 SharePoint 文件。然后单击文件。然后您会看到显示文件名的“信息”页面 - 如果您直接查看文件名下方（上面显示“保护工作簿”的位置），看起来就像面包屑链接（SharePoint 中的文件夹名称由 >> 分隔） -单击该部分，然后单击“复制路径到剪贴板”

用这个替换你代码中的文件名链接，它会起作用！

【讨论】：