使用 Excel VBA 打开 OneDrive 上的文件

Question

I have an Excel file (File #1) in which I would like the VBA code to open a file on my OneDrive (File #2).

Many people will use File #1, so I want it to open File #2 in the background.

I have created a shared link for File #2. With this link anyone should be able to access the file.

Link: https://1drv.ms/x/s?AmdCer05hKV4geAnbDaOSX9UrTfLHQ?e=5Pm7dL

How do I open this File #2 via VBA code in File #1? I want it to open in Excel, not Excel on-line .

I used this code.

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

When this line of code runs, Excel shuts down and a window opens stating Microsoft Error Reporting.

It then says

"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

Try the following:

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

The above code works fine for me, but maybe you should change your OneDrive path to be something like that: " https://yourcorp.sharepoint.com/sites/yoursite/Shared%20Documents/1stfolder/myfile.xlsx "

I hope it helps:)

Answer 2

I ended up using the below since no other answer on here worked.

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

Answer 3

• Go to the sharepoint site where it is saved. Example:
  https://dieboldnixdorf-my.sharepoint.com/
• Locate the file Select the 3 dots next to the file
• Select Details
• Scroll down to the "Path" section
• Select the copy option
• This will copy a clear path to the file.

Answer 4

If I open it from VBA using the 1drv.ms/... link that it gives to me when I "Share" it, it asks me for a Microsoft login/password that is not my usual Microsoft login. I never found the right password and it's not recoverable.

I solved by using the https://d.docs.live.net/.. . URL I obtain with a?ThisWorkbook.fullname in the VBA window. This works without asking a login/password, likely using the account used by the Excel application.