ExcelVBAでSharePointOnlineのExcelを開き、編集保存する方法

本日は、SharePointOnline上に保管したExcelファイルをVBAを使用して開く方法を解説いたします。

クラウドの利用が広がり、社内のファイルサーバーからSharePointOnlineに移行し、
SharePointOnline上のファイルをVBAで開く方法を知りたいと思う方が多いのではないでしょうか。

SharePointOnlineのExcelファイルのリンクを取得する

通常のVBAでファイルを開く方法は、パソコン上のパスを指定します。

SharePointOnline上のファイルを開く場合は、URLを指定します。

URLの取得方法は、下記になります。

まずは、SharePointOnlineを開きます。

該当のファイルをExcelアプリで開きます。
ちなみにExcelファイルは未記入の空ファイルです。

ファイルを選択し右クリック→「開く」→「アプリで開く」　を選択します。

Excelファイルが開きます。
開いたら、メニューから「ファイル」をクリックします。

今開いているSharePointOnline上の「Book1.xlsx」が表示されています。

右クリックし、「パスをクリップボードにコピー」をクリックします。

これでSharePoint上のExcelのURLを取得できました。

Excel VBAでSharePointのファイルを開く方法

取得したURLをVBAに記載します。
WorkBooks.Openを使い、先程のコピーしたURLを貼り付けます。

下記のようなコードを記載しました。
編集もできるか確認するため、A1に値を記入し、saveコマンドで保存してみます。

Sub sharepoint_excel_open()

Workbooks.Open ("https://ドメイン名.sharepoint.com/sites/msteams_643e74/Shared%20Documents/General/Book.xlsx?web=1")

Range("A1").Value = "test1"
ActiveWorkbook.Save
End Sub

実行してみます。

保存できているか確認するために、SharePointOnline上のExcelをブラウザで開きます。

まとめ

本日は、VBAを使用し、SharePointOnline上のExcelを開き、編集、保存する方法について解説いたしました。