Access Excelを開くときのエラー

##使用ソフト・プログラミング言語
ソフト：Ａｃｃｅｓｓ２０１６
言語：ＶＢＡ

前提・実現したいこと

ＡｃｃｅｓｓのＶＢＡにて指定したファイルパス内の.ｘｌｓｘ拡張子の全ファイルを開くコードを記述いたしました。

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

Ｅｘｃｅｌファイルを開こうとすると、実行エラーが発生してしまいます。
※実在するファイルに対して、ファイルがないというエラーが発生します。

VBA
1実行時エラー１００４：申し訳ございません。○○(ファイル名).xlsxが見つかりません。名前が変更されたか、移動や削除が行われた可能性があります。

該当のソースコード

VBA
1  Dim AppObj As Object    'Excel.Applicationオブジェクトの宣言
2  Dim WBObj As Object     'Excel.Workbookオブジェクトの宣言
3  Dim WsObj As Object      'Excel.WorkSheetオブジェクトの宣言
4  Dim Path, Exf As String
5  Dim i, j As Integer: i = 1: j = 1
6  'Excelファイルのパスを指定
7  Path = "C:\Users\98120071\OneDrive - 三越伊勢丹グループ\ドキュメント\原 吉秀\Pack-Web\"
8  '※　Excelファイルが使用するAccessファイルと同じフォルダにある場合の表記
9  Exf = Dir(Path & "*.xlsx")
10
11  '
12  Do
13    '実行時バインディング
14    Set AppObj = CreateObject("Excel.Application")
15    '編集を実施するワークブックを開く
16    'この行でエラーが発生します。
17    Set WBObj = AppObj.WorkBooks.Open(Exf)
18    WBObj.Save   'ワークブックを保存する
19    WBObj.Close 'ワークブックを閉じる
20    AppObj.Quit
21  'ファイルがなくなるまで繰り返す
22  Loop Until Exf = ""