VBAでsharepointへファイルをUploadする

Question

前提・実現したいこと

会社のファイル管理がエクスプローラー→sharepointへ移行するに伴い、
VBAで①sharepoint上のファイルをダウンロード→②編集→③編集後のファイルをsharepointへアップロード
という一連の流れを自動化したいのですが、③だけうまく行きません。
③の作業内容：DesktopにあるBook3.xlsxをsharepoint上にBook2.xlsxとしてアップロード。

発生している問題・エラーメッセージ

実行時エラー'52'
ファイル名または番号が不正です。

該当のソースコード

Sub copy()

Dim topath, frompath As String
Dim obj As Object

'path入力
topath = "https://〇〇.sharepoint.com/sites/××/□□/test/Book2.xlsx"
frompath = "C:\Users\△△\Desktop\Book3.xlsx"

Set obj = CreateObject("Scripting.FileSystemObject")

obj.Copyfile frompath, topath

End Sub

試したこと

以下のリンクを参照し、URL→UNCパス変換を行いましたが、下記のエラーが出ました。
「②実行時エラー’76'
パスが見つかりません」
リンク：VBA　Uploadfile

Sub copy()

Dim topath, frompath, topath2 As String
Dim obj As Object

'path入力
topath = "https://〇〇.sharepoint.com/sites/××/□□/test/Book2.xlsx"
frompath = "C:\Users\△△\Desktop\Book3.xlsx"
topath2=ConvertDirectoryPath(topath)

Set obj = CreateObject("Scripting.FileSystemObject")

obj.Copyfile frompath, topath2

End Sub

Function ConvertDirectoryPath(path) As String

    ConvertDirectoryPath = Replace(path, " ", "%20")
    ConvertDirectoryPath = Replace(ConvertDirectoryPath, "/", "\")
    ConvertDirectoryPath = Replace(ConvertDirectoryPath, "https:", "")

End Function

補足情報（FW/ツールのバージョンなど）

ちなみに、topathの「https://〇〇.sharepoint.com/sites/××/□□/test」をIEのアドレスバーに打ち込むと、問題なくそのフォルダに飛んでくれます。

Windows10、Excel2016です。

初心者ですが、御教示のほど宜しくお願いします。

Comments

[radames1000]

topath2はどのような値になっていますか？

[hirozo]

ご質問有難うございます。
topath2=
\\〇〇.sharepoint.com@SSL\DavWWWRoot\sites\××\□□\test\Book2.xlsx
となっています。

[radames1000]

そこにエクセルファイルを置いたあと、そのアドレスをエクスプローラーのアドレス欄に入れるとエクセルが開かれますか？

[hirozo]

エクスプローラー上で、「\\〇〇.sharepoint.com@SSL\DavWWWRoot\sites\××\□□\test\Book2.xlsxにアクセスすることができません」とエラーがでます。
補足ですが、□□のフォルダ名にはスペースが入っており、そこは「スペース＝%20」と表示されております。

Answer 1

SherePointに直接VBAからファイルの読み書きに行けなくなったようなので
「同期」によりOneDriveにフォルダを作成し、
VBAからはそのフォルダを指定すればいいようです。

ただし、同期の際に同期したOneDriveに更新権限が無いとエラーになります。

Answer 2

https://〇〇.sharepoint.com/sites/××/□□/test
は、
FileSystemObjectで操作するときは
\〇〇.sharepoint.com@SSL\DavWWWRoot\sites\××\□□\test
になると思います。

Comments

[hirozo]

ご回答いただき有難うございます。
ご教示の通り、下記のスクリプトを走らせました。

Sub copy()

Dim topath As String
Dim frompath As String
Dim topath2 As String
Dim obj As Object

'path入力
topath = "https:\〇〇.sharepoint.com@SSL\DavWWWRoot\sites\××\□□\test/Book2.xlsx"

frompath = "C:\Users\△△\Desktop\Book3.xlsx"

topath2 = ConvertDirectoryPath(topath)

Set obj = CreateObject("Scripting.FileSystemObject")

obj.Copyfile frompath, topath2※

End Sub

Function ConvertDirectoryPath(path) As String

ConvertDirectoryPath = Replace(path, " ", "%20")
ConvertDirectoryPath = Replace(ConvertDirectoryPath, "/", "\")
ConvertDirectoryPath = Replace(ConvertDirectoryPath, "https:", "")

End Function

すると、※部分にハイライトがかかり
「実行時エラー53
ファイルが見つかりません」
と出ます。

path2の部分をデスクトップ上の任意のフォルダ（ファイルの絶対参照）に設定するとうまくコピーされるので、やはり原因はsharepointのurlだと推測しています。
原因や解決策に関して、ほかに何かあれば是非ご教示頂きたいです。
宜しくお願い致します。