おか。
2020/12/27 (日) 12:51:21
31438@cab8e
FileName = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "¥")) & "総務部¥物品要求書.xls"
赤文字のところを付け加えました。
これでいかかでしょうか?
通報 ...