VBAを使ったOneDriveへのファイル保存

Question

いつも困ったときには

皆様の解答を参考にさせて頂いております。

今回質問をさせて頂きたいのが

「VBAを使って、EXCELファイルをOneDrive（Sharepoint）へとファイル保存したい」

というものです。

VBAを使ってEXCELを加工したファイルを作成しているのですが

共有をより便利にするために「OneDrive」へと直接ファイルをアップロードすることができればと

考えております。

とあるサイトを参考に「CopyFile」にて対応を行うとしたのですが

「パスが見つかりません」として保存を受け付けてもらえません。

ファイルパスの取得は「同じ階層」のEXCELファイルなどを開き

「ファイル＞情報＞パスのコピー」で取得しています。

conv\_url  = "\\○○○.sharepoint.com\sites\□□\Shared Documents\△△\" & "ファイル名.xlsx" 

local\_full\_path = "C:\テスト.xlsx"

Set fso = CreateObject("Scripting.FileSystemObject")  

If fso.FileExists(local\_full\_path) Then 

    fso.CopyFile local\_full\_path, conv\_url 

End If 

 （￥がバックスラッシュになっています）

Answer 1

> "\○○○.sharepoint.com\sites\□□\Shared Documents\△△" & "ファイル名.xlsx"

SharePoint Online ドキュメント ライブラリには UNC パスでアクセスできませんね。

ライブラリを同期して、同期しているローカルのパスにコピーするのが一番簡単でしょう。

Answer 2

Hebikuzure様

解答をお寄せ頂きましてありがとうございます。

パスによるファイルアップロードは不可能ということで

「ライブラリの同期による対応」を教えて頂きましてありがとうございます。

自動実行処理の一環として上の処理を考えておりました。

以前、自動実行時に「ライブラリの同期」を取れなかったと

記憶をしていたのですが、取る方法があるのか調べさせていただきます。

今回の質問については問題が解決できたといえます。

解答頂きましてありがとうございます。