VBA FileSystemObjectのGetFolder onedrive上のフォルダオブジェクトを取得したい

Question

前提・実現したいこと

質問サイトで初めて質問致します。至らない点があると思いますがよろしくお願い致します。
ExcelのVBAを使って、OneDrive上のExcelに値をセットするプログラムを作っています。

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

同期したonedrive上のフォルダオブジェクトを取得したいのですが
FileSystemObjectのGetFolderをコールすると以下のエラーが発生します。
「実行時エラー　’76’　パスが見つかりません。」

該当のソースコード

strPath = ThisWorkbook.Path

'ﾌｧｲﾙ検索をDirからFileSystemObjectに変更
Set objFSO = New FileSystemObject
’フォルダオブジェクト取得　※ここで該当エラーが発生
Set objFolder = objFSO.GetFolder(strPath)
For Each objFile In objFolder.Files
strNum = Mid(objFile.Name, 1, 3)
If IsNumeric(strNum) = True Then
intNum = strNum
Else
intNum = 0
End If
If intMax < intNum Then
intMax = intNum
End If
Next

試したこと

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

Execelバージョン：Microsoft 365

Comments

[dodox86]

objFSO.GetFolder(strPath) のstrPathには、具体的にどのようなPATHの文字列を渡していますか。

[wataidu]

ご連絡頂きありがとうございます。

すみません。開発環境から離れてしまったため、詳細なイメージは記載できませんが、
前半がonedrive同期元のurl、後半が同期先のローカルpcのディレクトリがくっついたパスになっておりました。
イメージ以下となります。
https:***ローカフォルダパス

[dodox86]

URL形式で指定できると、どこかに載っていましたか？
"https:***ローカフォルダパス" ではURLとして恐らくダメなものになっていると思いますし、そもそもが"C:\dir1\dir2\"...のようなフォルダーのPATH指定でないとダメなはずです。

Answer 1

dodox86さんの指摘通りですが、FileSystemObjectはURLを認識しません。

そして、OneDriveの特定の設定が有効になっていると、
OneDrive上に保存されたブックのThisWorkbook.PathはURLを返すため、FileSystemObjectを使用できないということになります。

マクロが自分個人で使用するものであれば、OneDriveの設定を変えれば良いでしょう。
それ以外の方法としては、Shell.Applicationを使用することで、ファイルのパス程度は取得できると思われます(個人で自分のOneDriveで試した限りではできました)。

詳しくは、以下のリンク先を参照してください。

Dir関数を用いてフォルダ内のブック名を表示するプログラムで発生するエラー

Answer 2

dodox86さん、imihitoさんありがとうございます。ローカルパスのみなのですね。調べが足りていませんでした。。
Shell.Applicationで試してみます。