Как загрузить файл в OneDrive Business (Sharepoint) с помощью VBA

Question

Я пытаюсь найти способ загрузить файл в Onedrive из VBA в Excel. Я много занимался поиском приемлемых методов, но большинство методов не будут работать для моего сценария, или предлагаемое решение даст ошибку.

Я могу нормально загружать файлы, если я использую UNC-пути или местоположения OneDrive, которые синхронизируются локально (например, «C: \ Users (имя пользователя) \ OneDrive \ File Share»), но мне нужен метод, который позволяет мне нажимать ( загружать) файлы в общий URL-адрес (например, "https://my.sharepoint.com/:f:/r/personal/(email_address)/Documents/SharedFiles?csf=1&e=6WmUIO"). Все пользователи, которым потребуется использовать инструмент, будут иметь доступ к этому общему местоположению в OneDrive.

Я пробовал обычный метод «Сохранить как» в VBA, но это не сработает.

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»

Answer 1

Я только что попробовал это, и он работал нормально:

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

Чтобы получить требуемый путь, перейдите к месту назначения в IE, затем используйте вкладка Библиотека >> Открыть с помощью Проводника , чтобыоткройте место назначения в проводнике Windows: вы можете скопировать туда путь из адресной строки.