Microsoft Access 掲示板

ご無沙汰しています。
また行き詰まりました。アドバイスをよろしくお願いします。

【現在】

『物品』フォルダを作成し、そこにアクセス「物品」ファイルを置いています。
アクセス「物品」ファイル内の「終了」ボタンをクリックすると、
同じフォルダにエクセル「物品要求書」ファイルを作成し、
「抽出クエリ」を「注文出力」タブに書き出しています。

Private Sub 終了_Click()

    Dim FileName As String

    FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) _
                    & "物品要求書.xls"

    DoCmd.TransferSpreadsheet acExport,
            acSpreadsheetTypeExcel9, "注文抽出クエリ",
            FileName, True, "注文出力"

End Sub

【やりたいこと】

『物品』フォルダにもうひとつ『総務部』フォルダを用意して、
そこにエクセル「物品要求書」ファイルを出力したい。

【やってみたこと】

場所指定の「FileName」を修正すれば良いと考えましたが、ここで詰まりました。
ネットで色々と探りましたが、同じ場所のパターンはありますが、
同じ場所のフォルダを指定する方法が見つかりません。

"¥" を "¥総務部¥" にしたり　& "総務部¥" にしたりしてみましたが、
反応がなかったりマイピクチャに出力されたり、よくわかりません……。

ご教授よろしくお願いします。