Microsoft Access 掲示板

Ｅｘｃｅｌ出力のVBAを以下のように書きました

Private Sub Excel出力_Click()

'変数宣言

Dim strPath As String

'Excelエクスポート先のファイルパス
strPath = "C:\Users\" & UserName & "○○○リスト" & Format(Now(), "yyyymmdd")

'Excelファイルの出力
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "○○○リスト出力", strPath, False

'Excelファイルをエクスポートした旨を通知する。
MsgBox "○○○リストを出力しました。" & vbCrLf & "C:\Users\" & UserName & "\OUT\", vbInformation

End Sub

を実行すると
実行時エラー’3051’
ファイル’C￥Users¥○○○リスト2022****’を開くか、書き込むことができませんでした。ほかのユーザーが排他的に開いているか、データーの表示と書き込みを行う権限がありません。

とメッセージがでてしまいます
どうしｔら解消できるでしょうか

よろしくお願いします