MENU

SharePointへのExcelファイル自動保存をVBAで効率化

SharePoint

SharePoint上のフォルダーにExcelブックを保存する場面は、社内のファイル共有から共同編集まで、多くの業務で活躍します。しかしVBAで保存する際、予期せぬエラーやパス指定に悩まされることもしばしば。本記事では、実務に役立つ解決策を具体例とともに解説します。

目次

VBAで保存する前に、アップロード方法を決める

方法保存先と確認事項
同期フォルダーへ保存SharePointライブラリをOneDriveで同期し、エクスプローラーで見えるローカルパスへ保存。VBAの保存後に同期状態とWebのファイルを確認します。
ExcelからHTTPSの保存先を使うデスクトップExcelでサインインし、同じ保存先へ手動で保存できることを先に確認。共有リンクや一覧画面のURLをファイルパスとして流用しません。
Microsoft Graphで直接アップロード同期を経由しないAPI処理。アクセストークン、対象ライブラリ、必要な権限を設計する別方式です。SaveAsだけでAPI認証を実装したことにはなりません。

この記事のコードはWindowsのデスクトップExcelで、マクロを含む対象の.xlsmブック自身に置く例です。PERSONAL.XLSBやアドインへ置くとThisWorkbookはレポートではなくマクロの格納先を指します。まず対象のコピーで試し、実際の同期先フォルダーを選んでください。同期の準備はSharePointとTeamsのファイルをPCと同期する公式手順で確認できます。

VBAでSharePointフォルダーに保存する意義とメリット

SharePointに保存すると、組織の権限設定に沿ってファイルを共有できます。VBAはブックの保存操作をまとめられますが、閲覧・編集権限やライブラリの設定を自動的に適切な状態へ変更するものではありません。保存先と共有範囲は管理者の運用に合わせます。

メリット1：共同編集とバージョン管理

共同編集の条件は、保存先、Excelの版、サインイン、ファイル形式で確認します。Microsoftの共同編集手順では.xlsx、.xlsm、.xlsbを対象とし、SharePoint Onlineへの保存を案内しています。.xlsmという拡張子だけで共同編集ができないとは判断せず、実際に使うExcelと編集作業の条件を確認します。バージョン履歴は誤った更新の復元にも役立ちます。

メリット2：手動作業の削減による効率化

ボタンから保存処理を呼び出せば、決めた保存先と形式で繰り返し保存できます。ただし、Excelをタスクスケジューラで起動するだけで、無人処理やクラウド反映まで保証されるわけではありません。Microsoftの無人Office自動化に関する説明では、認証や対話ダイアログ、非対話環境の制約が示されています。夜間実行が必要なら、実行環境とライセンス、失敗時の監視を別途設計します。

基本的な保存方法：VBAのSaveAs文を活用

Workbook.SaveAsは保存先と形式を指定するメソッドです。以下は保存ダイアログでSharePointの同期済みローカルフォルダーを選ぶ例です。GetSaveAsFilenameは名前を取得するだけで保存しないため、その後にSaveAsを実行します。キャンセル時は終了し、既存ファイルへの上書きは行わない例にしています。

Sub SaveToSharePoint()
    Dim target As Variant
    On Error GoTo ErrorHandler
    If ThisWorkbook.FileFormat <> xlOpenXMLWorkbookMacroEnabled Then
        MsgBox "この例は対象の.xlsmブックに置いて実行してください。"
        Exit Sub
    End If
    target = Application.GetSaveAsFilename( _
        InitialFilename:="New_Report.xlsm", _
        FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
    If VarType(target) = vbBoolean Then Exit Sub
    If LCase$(Right$(CStr(target), 5)) <> ".xlsm" Then
        MsgBox ".xlsmの名前を指定してください。"
        Exit Sub
    End If
    If InStr(1, CStr(target), "://", vbTextCompare) > 0 Then
        MsgBox "同期済みのローカルフォルダーを選んでください。"
        Exit Sub
    End If
    If Len(Dir$(CStr(target))) > 0 Then
        MsgBox "同名ファイルがあります。別名を選んでください。"
        Exit Sub
    End If
    ThisWorkbook.SaveAs Filename:=CStr(target), _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled
    MsgBox "ローカル保存が完了しました。OneDriveとWeb側の反映を確認してください。"
    Exit Sub
ErrorHandler:
    MsgBox "エラー " & Err.Number & ": " & Err.Description, vbCritical
End Sub

パス指定のポイント

ブラウザーのアドレスバーに表示されるURLは、フォルダー一覧、ビュー、共有リンクなどを指すことがあり、SaveAsの保存先ファイルパスとは限りません。同期方式ではエクスプローラーから実際の同期先フォルダーのパスを取得します。HTTPS方式を使う場合は、同じサインイン状態のExcelで手動保存できる対象かを確認してからコードへ指定します。

注意点：スラッシュの使い方

URLの区切りはスラッシュ、Windowsのローカルパスの区切りはバックスラッシュです。両者を混ぜず、どちらの方式で保存するかを決めます。同期先の組織名・ライブラリ名・ユーザー名は環境ごとに異なるため、以下は置換が必要な形式例です。

指定方式形式例
同期済みローカルパスC:\Users\ユーザー名\組織名\ライブラリ名\New_Report.xlsm

バックアップやコピーをとる場合のSaveCopyAs活用

Workbook.SaveCopyAsは、開いているブックを変更せずにコピーを保存します。SaveAsはブックの保存先や名前を変えるのに対し、SaveCopyAsはコピーの作成に使います。SaveCopyAsにはFileFormat引数がないため、拡張子だけを.xlsxへ変えて形式変換しません。下の例は.xlsmから.xlsmへのコピーで、既に作成済みのバックアップフォルダーを使います。

Sub MakeBackupAndSave()
    Const BACKUP_FOLDER As String = "D:\Backup"
    Dim backupPath As String
    On Error GoTo ErrorHandler
    If ThisWorkbook.FileFormat <> xlOpenXMLWorkbookMacroEnabled Then
        MsgBox "この例は.xlsmブック用です。": Exit Sub
    End If
    If Not CreateObject("Scripting.FileSystemObject").FolderExists(BACKUP_FOLDER) Then
        MsgBox "バックアップフォルダーを確認してください。": Exit Sub
    End If
    backupPath = BACKUP_FOLDER & "\MyWorkbook_" & Format(Now, "yyyymmdd_hhnnss") & ".xlsm"
    If Len(Dir$(backupPath)) > 0 Then
        MsgBox "同名ファイルがあるため保存を中止します。": Exit Sub
    End If
    ThisWorkbook.SaveCopyAs Filename:=backupPath
    MsgBox "コピーを保存しました。元ブックの保存先は変わりません。"
    Exit Sub
ErrorHandler:
    MsgBox "エラー " & Err.Number & ": " & Err.Description, vbCritical
End Sub

運用のコツ

  • バックアップフォルダーを日付ごとに作成して、定期的にSaveCopyAsを実行することで履歴管理を強化できます。
  • SharePointライブラリでバージョン管理が有効な場合でも、あえて手動バックアップを残しておくと、万が一のときに復元が簡単です。
  • マクロファイルの場合は、保存先の形式が xlsm (マクロ有効ブック) であることを常に意識しましょう。

よくあるエラーと対処法

SharePointフォルダーに保存しようとすると、以下のようなエラーに遭遇することがあります。原因と対処法を把握しておくと、運用トラブルを迅速に解消できます。

エラー1：パスが見つからない (エラー76など)

  • 確認: エラー76だけでURLや同期遅延を原因と決めません。同期方式なら指定したローカルフォルダーが存在するか、フォルダー名とユーザーごとの同期先が一致するかを確認します。
  • 対処: エクスプローラーで対象フォルダーを開き、実際のローカルパスをコードと比較します。Webの一覧URLを貼り直す対処とは分けます。フォルダーは事前に作成し、同じ場所へ手動で保存できるか確認します。

エラー2：ファイル形式が合わない、または読み取り専用 (エラー1004など)

  • 確認: エラー1004は保存先へのアクセス、同名ファイル、ファイル形式など複数の条件で確認が必要です。番号だけでマクロや権限が原因とは断定せず、エラーの説明と実際の保存先を記録します。
  • 対処法: マクロを含むファイルは拡張子 .xlsm、かつ FileFormat:=xlOpenXMLWorkbookMacroEnabled を指定する必要があります。また、SharePoint上で編集権限があるか確認してください。

エラー3：同期遅延・ローカルキャッシュの問題

  • 確認: VBAのローカル保存は成功したがWebに見えない場合は、保存エラーと分けてOneDriveの同期状態を確認します。オフラインや同期の一時停止、アクセス権、ライブラリの設定など、表示された状態に沿って調べます。
  • 対処: OneDriveのアイコンで処理中・一時停止・エラーを確認し、ブラウザーで対象ライブラリのファイル名と更新内容を照合します。読み取り専用権限、チェックアウト必須、必須メタデータなど同期に影響する設定は管理者に確認します。保存完了のメッセージだけをアップロード完了の証拠にしません。

実運用で押さえておくべきポイント

SharePointは便利な反面、従来のローカルフォルダーやファイルサーバーとは違った挙動を見せることがあります。以下のポイントを理解しておくと、スムーズな運用が可能です。

1. パスの取得方法を統一する

  • ThisWorkbook.PathがローカルパスかHTTPSか、未保存で空かを確認します。文字列へ機械的にBackupを足しても、存在する保存先にはなりません。
  • 同期方式では実際のローカル同期先を設定として管理します。PCやユーザーが変わったら再確認し、URLとローカルパスを同じ変数の意味で混在させません。

参考コード：実際の同期先パスを定義する

Sub SaveToDefinedPath()
    '必ずエクスプローラーで確認した実際の同期先に置換する
    Const SYNC_FOLDER As String = "C:\Users\ユーザー名\組織名\ライブラリ名\Data"
    Dim savePath As String
    On Error GoTo ErrorHandler
    If ThisWorkbook.FileFormat <> xlOpenXMLWorkbookMacroEnabled Then
        MsgBox "この例は.xlsmブック用です。": Exit Sub
    End If
    If Not CreateObject("Scripting.FileSystemObject").FolderExists(SYNC_FOLDER) Then
        MsgBox "実際の同期先パスへ置換してください。": Exit Sub
    End If
    savePath = SYNC_FOLDER & "\MyMacroFile_" & Format(Now, "yyyymmdd_hhnnss") & ".xlsm"
    If Len(Dir$(savePath)) > 0 Then
        MsgBox "同名ファイルがあるため保存を中止します。": Exit Sub
    End If
    ThisWorkbook.SaveAs Filename:=savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    MsgBox "ローカル保存が完了しました。同期とWeb側の内容を確認してください。"
    Exit Sub
ErrorHandler:
    MsgBox "エラー " & Err.Number & ": " & Err.Description, vbCritical
End Sub

2. バージョン管理とメジャー/マイナー バージョンの運用

  • SharePointライブラリのバージョン履歴と保持の設定は、管理者の運用に合わせて確認します。VBAで同名ファイルを更新するか、日時付きの別名コピーを増やすかも決めておきます。既存履歴を一律に削除する運用にはしません。
  • 「マイナーバージョンをドラフトとして管理する」「承認があるまで公開バージョンに上げない」といった運用をしている場合は、VBAでの保存によって一時的にドラフトバージョンが増えることがあるため注意が必要です。

3. マクロ付きブックの共同編集条件を確認する

  • 公式の共同編集対象には.xlsmも含まれます。読み取り専用になった場合は、拡張子だけで判断せず、権限、使用中のExcel、ファイルの状態を確認します。
  • 集計を行う担当ブックと配布用の結果を分けたい場合は、共同編集の対象と保存タイミングを業務ルールとして決めます。Power Automateなどへの移行は、マクロ処理の代替が実装できるかを確認して検討します。

実際の業務フロー構築例

ここでは、定期的にレポートを生成してSharePointに自動で保存するフローの一例を示します。想定シナリオとして、毎月月初に売上集計ファイルを更新し、SharePoint上の「月次レポート」フォルダーに保存するケースを考えます。

フロー概要

  1. 対象の.xlsmブックをデスクトップExcelで開き、マクロボタンから処理する
  2. 業務ごとに実装したデータ取り込みと集計を完了する（下の保存コードには含みません）
  3. 集計済みの対象ブックを、SharePointの同期済みフォルダーへコピーする
  4. バックアップとして、ローカルにもSaveCopyAsで別途保存

サンプルコード

Sub MonthlyReportAutomation()
    '2つの既存フォルダーを実際の環境へ置換する
    Const SYNC_FOLDER As String = "C:\Users\ユーザー名\組織名\ライブラリ名\MonthlyReports"
    Const BACKUP_FOLDER As String = "D:\Backup"
    Dim reportName As String
    Dim syncPath As String, backupPath As String
    Dim fso As Object
    On Error GoTo ErrHandler
    If ThisWorkbook.FileFormat <> xlOpenXMLWorkbookMacroEnabled Then
        MsgBox "集計済みの対象.xlsmブックで実行してください。": Exit Sub
    End If
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(SYNC_FOLDER) Or Not fso.FolderExists(BACKUP_FOLDER) Then
        MsgBox "同期先とバックアップ先の既存フォルダーを確認してください。": Exit Sub
    End If
    reportName = "MonthlyReport_" & Format(Now, "yyyymmdd_hhnnss") & ".xlsm"
    syncPath = SYNC_FOLDER & "\" & reportName
    backupPath = BACKUP_FOLDER & "\" & reportName
    If fso.FileExists(syncPath) Or fso.FileExists(backupPath) Then
        MsgBox "同名ファイルがあるため保存を中止します。": Exit Sub
    End If
    ThisWorkbook.SaveCopyAs Filename:=backupPath
    ThisWorkbook.SaveCopyAs Filename:=syncPath
    MsgBox "2つのローカルコピーを保存しました。同期後にWeb側を確認してください。"
    Exit Sub
ErrHandler:
    MsgBox "エラー " & Err.Number & ": " & Err.Description & vbCrLf & _
        "片方のコピーだけ作成済みの場合があります。両方の保存先を確認してください。", vbCritical
End Sub

このサンプルが行うのは、集計済みの.xlsmブックのコピー保存です。売上の取り込み・集計・グラフ更新や認証は実装していません。同じThisWorkbookを両方へ保存し、元ブックの保存先を変えません。片方の保存後に失敗する場合もあるため、エラー時は両方の保存先を確認します。

高度な運用：Power Automateとの連携

PCからの同期を使わず直接アップロードする設計では、Microsoft GraphのdriveItemコンテンツアップロードAPIなどを検討できます。APIはBearerトークンと必要なアクセス許可を使うため、VBAのSaveAsとは認証・実装の範囲が異なります。アップロード後の通知や承認は、Power Automateなどのクラウド側フローと役割を分けて設計します。

VBAとPower Automateの使い分け

  • VBA向き: Excelファイルの操作や集計処理など、クライアントアプリケーション内の操作がメインとなる作業。
  • Power Automate向き: SharePoint上のファイル操作や通知、承認ワークフローなど、クラウド上のイベントをトリガーにした自動化。

まとめ：エラーを恐れずSharePoint×VBAを使いこなそう

SharePointへVBAで保存するときは、次の項目を確認します。

  • 保存方式を決める：同期済みローカルパスと、Excelで確認済みのHTTPS保存先を区別する
  • マクロ有効ブックの場合は拡張子に注意：.xlsm + FileFormat:=xlOpenXMLWorkbookMacroEnabled
  • 同期のタイミングに注意：同期クライアントの挙動をチェック
  • 失敗時の確認：エラー番号と説明、対象ブック、ローカルとWebの状態を記録する
  • バックアップ運用：SaveCopyAsやSharePointのバージョン管理を上手く活用

実際の運用では、企業内ポリシーに合わせて権限管理やフォルダー階層の設計をしておくことも大切です。クラウドとローカルを使い分けながら、VBAでの自動保存処理を賢く組み立てることで、毎日の業務が格段に効率アップするでしょう。ぜひ本記事の内容を参考に、エラーを恐れずSharePoint×VBAの活用に挑戦してみてください。

保存形式はXlFileFormatの公式一覧で確認できます。.xlsxはxlOpenXMLWorkbook、.xlsmはxlOpenXMLWorkbookMacroEnabledです。上のコードはWorkbook.FileFormatを確認して.xlsmに限定しています。.xlsx用へ変更する場合は対象ブック・拡張子・FileFormatを揃え、マクロを残す必要があるブックを.xlsxへ変換しないでください。

固定パスのコードで使うFolderExistsは、フォルダーの存在確認です。フォルダーを作成したり、同期や編集権限を確認したりする処理ではありません。

SharePoint
Excel VBA Microsoft 365 SharePoint

この記事を書いた人

佐藤健司のアバター 佐藤健司

実務の現場で詰まりがちなポイントを地図にするITブログ「IT trip」を運営。Windows／Office（Teams・Excel）からSQL、サーバ運用、ガジェットまで、再現性のある手順と“なぜそうなるか”を丁寧に解説します。読んだらすぐ試せること、そして迷った人の次の一歩が見えることを大切にしています。

関連記事

コメント

コメントする

目次