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

Question

我正在尝试找到一种方法将文件从 VBA 上传到 Excel 中的 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 资源管理器中打开目标：您可以从那里的地址栏复制路径。

Answer 2

也许这会帮助有人拔头发。确保 SharePoint URL 中的和 spaces 被 %20 替换。示例“新文件夹”应为“New%20Folder，或从文件夹名称中删除 space。

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

How do I upload a file to OneDrive Business (Sharepoint) with VBA

excel

vba

onedrive