使用 Excel VBA 打开 OneDrive 上的文件

Question

我有一个 Excel 文件（文件 #1），我希望使用 VBA 代码在我的 OneDrive 上打开一个文件（文件 #2）。

许多人会使用 File #1，所以我希望它在后台打开 File #2。

我为文件 #2 创建了一个共享链接。 通过此链接，任何人都应该能够访问该文件。

链接： https://1drv.ms/x/s?AmdCer05hKV4geAnbDaOSX9UrTfLHQ?e=5Pm7dL

如何通过文件 #1 中的 VBA 代码打开文件 #2？ 我想让它在 Excel 打开，而不是 Excel 在线。

我使用了这段代码。

Set wb = Workbooks.Open("https://1drv.ms/x/s!AmdCer05hKV4geAnbDaOSX9UrTfLHQ?e=5Pm7dL")

当这行代码运行时，Excel 关闭并打开 window，说明 Microsoft 错误报告。

然后它说

“Microsoft Excel 出现问题，对于给您带来的不便，我们深表歉意。Microsoft Excel 将尝试恢复您的工作，但最近的更改可能会丢失。”

Answer 1

尝试以下操作：

Sub open_excel_from_one_drive()

sfilename = "https://1drv.ms/x/s!AmdCer05hKV4geAnbDaOSX9UrTfLHQ?e=5Pm7dL"
Set xl = CreateObject("Excel.Sheet")
Set xlsheet = xl.Application.Workbooks.Open(Filename:=sfilename, ReadOnly:=True)

End sub

上面的代码对我来说很好，但也许你应该将你的 OneDrive 路径更改为：“ https://yourcorp.sharepoint.com/sites/yoursite/Shared%20Documents/1stfolder/myfile.xlsx ”

我希望它有帮助:)

Answer 2

我最终使用了以下内容，因为这里没有其他答案。

ActiveWorkbook.FollowHyperlink Address:="https://1drv.ms/x/s?AmdCer05hKV4geAnbDaOSX9UrTfLHQ?e=5Pm7dL"

Answer 3

• Go 到保存它的 sharepoint 站点。 例子：
  https://dieboldnixdorf-my.sharepoint.com/
• 找到文件 Select 文件旁边的 3 个点
• Select 详细信息
• 向下滚动到“路径”部分
• Select 复制选项
• 这将复制一个清晰的文件路径。

Answer 4

如果我使用 1drv.ms/... 链接从 VBA 打开它，当我“分享”它时，它会要求我提供一个 Microsoft 登录名/密码，这不是我通常的 Microsoft 登录名。 我从未找到正确的密码，而且无法恢复。

我通过使用https://d.docs.live.net/..解决了。 URL 我在 VBA window 中使用 a?ThisWorkbook.fullname 获得。这无需询问登录名/密码即可工作，可能使用 Excel 应用程序使用的帐户。