使用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错误报告。

然后说

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

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”]

我希望这会有所帮助：）