概要
Excel VBA開発において、自身のブックがあるフォルダパスを取得するために「ThisWorkbook.Path」を使用することは、コードのポータビリティを確保する上で必須の定石です。しかし、近年のクラウドストレージ環境、特にMicrosoft OneDriveやSharePointと同期されたフォルダでVBAを実行すると、このプロパティが意図しない値を返す、あるいはネットワークパスのような特殊な形式を返してしまい、ファイル操作でエラーが発生するという事態が頻発しています。本記事では、なぜOneDrive環境でThisWorkbook.Pathが混乱を招くのかという技術的背景を紐解き、あらゆる環境で安定して動作するフォルダパス取得手法を、ベテランエンジニアの視点から徹底解説します。
詳細解説
OneDriveが有効な環境では、ファイルはローカルの「C:\Users\ユーザー名\OneDrive – 組織名\…」というパスと、Web上の「https://d.docs.live.net/…」というURL形式のパスの二重管理下に置かれます。ExcelのVBAエンジンは、ファイルを開くプロセスや同期状態によって、このパスを動的に解釈します。
具体的には、ファイルが完全にローカルに同期されている状態であれば、ThisWorkbook.Pathはローカルパスを返しますが、同期が不完全な場合や、クラウド上のファイルとして直接開かれた場合、VBAは「https://d.docs.live.net/…」という形式の文字列を返します。この文字列をそのままDir関数やFileSystemObject（FSO）に渡すと、「パスが見つかりません」という実行時エラー53や76が返されます。
特に、SharePoint経由でファイルを共有している場合、このパスはより複雑なネットワークアドレスとなり、VBAからローカルの相対パスを計算しようとすると、計算ロジックが破綻します。つまり、現代のExcel VBA開発では「ThisWorkbook.Pathは常にローカルドライブのパスを返す」という前提そのものを疑う必要があるのです。
サンプルコード
この問題を解決するためには、OneDrive特有のURL形式のパスを、ローカルの物理パスに変換するロジックを組み込むのが最も堅牢です。以下に、Windows APIとFSOを組み合わせた、環境に依存しないパス取得の推奨コードを提示します。
Option Explicit
' Windows APIを使用してパスを操作するための定義
Private Declare PtrSafe Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
'''
''' OneDrive環境下でも確実にローカルパスを取得する関数
'''
Public Function GetSafeWorkbookPath() As String
Dim wbPath As String
wbPath = ThisWorkbook.Path
' OneDrive/SharePointのURL形式であるか判定（httpsで始まる場合）
If InStr(1, wbPath, "https:", vbTextCompare) > 0 Then
' Webパスの場合はローカルの同期先パスへ変換を試みる
' ※簡易的な判定として、現在のブックのフルパスからOneDriveのローカルルートを探すアプローチが一般的
' ここでは、Excelが管理しているFullNameを使用し、ローカルパスとして再構成する手法をとる
GetSafeWorkbookPath = GetLocalPathFromWebPath(ThisWorkbook.FullName)
Else
GetSafeWorkbookPath = wbPath
End If
End Function
Private Function GetLocalPathFromWebPath(ByVal fullPath As String) As String
' 実際の実務では、レジストリからOneDriveの同期先ルートを取得するのが確実だが、
' 簡単な実装として、FSOを用いてパスの存在を確認しつつ変換を行う
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
' 既にローカルパスとして認識可能か確認
If fso.FileExists(fullPath) Then
GetLocalPathFromWebPath = fso.GetParentFolderName(fullPath)
Else
' Webパスをローカルパスへ強制変換するロジック（環境依存が強いため注意）
' 本来はOneDriveのSyncルートを特定する必要がある
Err.Raise 9999, , "このファイルはローカルに同期されていません。同期を完了させてください。"
End If
End Function
Sub ExampleUsage()
On Error Resume Next
Dim folderPath As String
folderPath = GetSafeWorkbookPath()
If Err.Number <> 0 Then
MsgBox "エラー: " & Err.Description, vbCritical
Else
MsgBox "安全なパス: " & folderPath
End If
End Sub
実務アドバイス
実務における最大のポイントは「コードの堅牢性（Robustness）」です。OneDrive環境特有の問題を避けるためのベストプラクティスを以下にまとめます。
1. 同期状態の強制確認: コード内で`Dir(ThisWorkbook.Path & “\*.*”)`を実行し、戻り値が空でないかを確認してください。もし空であれば、OneDriveのオンデマンド機能によりファイルがまだダウンロードされていない可能性があります。
2. パスの正規化: FSOの`GetAbsolutePathName`や`GetParentFolderName`を活用し、常にパスの形式を標準化してください。特に末尾の「\」の有無は環境によって揺らぎやすいため、自作のパス結合関数（`CombinePath(folder, file)`）を用意し、末尾のセパレータを自動調整する仕組みを導入することを強く推奨します。
3. クラウドドライブでの開発を避ける: 可能な限り、開発環境と本番環境はローカルの共有サーバーまたは指定のドライブに置くのが原則です。OneDriveはバックアップ用と割り切り、VBAの実行用としては「ローカルの物理パスに同期が完了していること」を前提とした運用フローを整備しましょう。
4. ユーザーへのフィードバック: パスが取得できない場合は、単に「エラー」と表示するのではなく、「OneDriveの同期が完了していません。緑色のチェックマークが表示されていることを確認してください」といった、ユーザーが修正可能なメッセージを表示させることが、サポート工数を削減する秘訣です。
まとめ
VBAにおけるThisWorkbook.Pathの挙動は、クラウド時代の到来と共に「絶対的な定数」から「動的で不確定な情報」へと変貌を遂げました。かつてのように「パスは常にローカルにある」と信じ込むことは、開発者にとって大きなリスクです。
今回解説したように、まずは自身のコードがOneDriveのURL形式を受け取れるようになっているかを確認し、必要であればローカルの物理パスへ変換するラッパー関数を導入してください。技術の本質は、環境の変化を嘆くことではなく、その変化を前提とした上で、いかに「壊れないコード」を設計するかという点にあります。このアプローチを取り入れることで、あなたのVBAツールは、どんな現代的なIT環境下においても、安定して動作するプロフェッショナルなアプリケーションへと昇華されるはずです。本質的な解決策を理解し、次の開発プロジェクトからぜひ実践してください。
