excel - 使用 Excel VBA 在 OneDrive 上打开文件

Question

我有一个 Excel 文件(文件 #1)，我希望 VBA 代码在其中打开我的 OneDrive 上的文件(文件 #2)。

很多人会使用文件#1，所以我希望它在后台打开文件#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 将关闭并打开一个窗口，说明 Microsoft 错误报告。

然后它说

"There was a problem with Microsoft Excel and we apologize for the inconvenience. Microsoft Excel will attempt to recover your work, but recent changes might be lost."

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”

我希望它有帮助:)