excel - 如何使用 VBA 将文件上传到 OneDrive Business (Sharepoint)

Question

我正在尝试找到一种将文件从 Excel 中的 VBA 上传到 Onedrive 的方法。
我已经做了很多寻找可接受的方法，但大多数方法不适用于我的场景，或者建议的解决方案会出错。

如果我使用本地同步的 UNC 路径或 OneDrive 位置(例如“C:\Users(username)\OneDrive\File Share”)，我可以很好地上传文件，但我需要一种可以让我推送(上传)文件的方法到共享 URL 位置(例如“https://my.sharepoint.com/:f:/r/personal/(email_address)/Documents/SharedFiles?csf=1&e=6WmUIO”)。所有需要使用该工具的用户都可以访问 OneDrive 中的这个共享位置。

我在 VBA 中尝试了正常的“SaveAs”方法，但这不起作用。

Set Excelwb = ThisWorkbook

Excelwb.SaveAs fileName:="https://my.sharepoint.com/:f:/r/personal/(email_address)/Documents/SharedFiles?csf=1&e=6WmUIO" _
, FileFormat:=xlOpenXMLWorkbook, ConflictResolution:=xlLocalSessionChanges

Excelwb.Saved = True
Excelwb.Close SaveChanges:=False
Application.DisplayAlerts = True

我希望这可以保存文件，但我知道，由于我保存到 URL 而不是本地文件，因此可能需要另一种方法，但我找不到可行的方法。

我得到的错误是:
运行时错误“1004”
对象“_Workbook”的方法“SaveAs”失败

Answer 1

我刚试过这个，效果很好:

Activeworkbook.SaveAs "https://myComany.sharepoint.com/Departments/dept1/Documents/FGH/Text.xlsx"

要获得所需的路径，请在 IE 中浏览到目标位置，然后使用库选项卡 >> 使用资源管理器打开以在 Windows 资源管理器中打开目标:您可以从那里的地址栏中复制路径。