【Excel VBA】SharePoint上のファイルを読み込みたい。

Question

Excel VBAの初心者です。
現在、Excel VBAでプログラミング？をしています。

あるファイルを読み書きしているのですが、コーディング中と言うこともあり、
そのファイルを自分のpcのデスクトップに置いて、それを操作していました。
しかしながら、実際はSharePoint上のファイルを操作する必要があり、
修正を求められています。

このような場合、どのようにコーディングしなおせば良いかご教示頂けませんでしょうか。
サンプルコードを提示して頂けると非常に助かります。

Answer 1

解決方法が分かりましたので、ご報告します。

(1)
初めに、sharepointでExcelファイルパスを指定する場合、「リンクをコピー」はダメです。
一度、対象のファイルを以下のようにして開きます。
・右クリック
・開く
・アプリで開く

(2)
次に、Excelのメニューバーから、対象ファイルのファイルパスを採取します。
・[ファイル]タブをクリック
・[名前をつけて保存]を選択。
・対象ファイルを右クリックし、[パスをクリップボードにコピー]を選択。

(3)
ファイルパスが「％」を含む値になると思うので、以下のコードでデコードします。
▼URLデコードするユーザー定義関数
Public Function URL_Decode(ByVal strOrg As String) As String

　With CreateObject("ScriptControl")
　　.Language = "JScript"
　　URL_Decode = .CodeObject.decodeURI(strOrg)
　End With
End Function

(4)
ファイルパスの末尾に「?web=1」がある場合、削除する。
例
https://xxx1/xxx2/xxxxxxx.xlsx?web=1
→https://xxx1/xxx2/xxxxxxx.xlsx

(5)
(4)で作成したファイルパスを通常のファイルオープン、クローズの関数で
操作すれば、読み書きできると思います。

Comments

[LAVENDER]

ありがとうございました。
無事にシェアポイントExcelをVBAから開くことができました。

[sanmaserver]

良かったです。私も嬉しいです。

Answer 2

URLをでコードする、末尾のファイル名以降を削除するなど明確な情報をいただきありがとうございます。