文件未保存到VBA中新创建的文件夹中

我有一个宏，它通过路径中的数据创建了一个文件夹，我希望将经理名册的一部分保存在该文件夹中。由于文件夹名称不同，因此需要动态设置

我希望它是这样的：

Dim sPath As String
sPath = "M:\mgr1_TCR_Reports\"
If Len(Dir(sPath & "_" & Format(Date, "mm_dd_yyyy"), vbDirectory)) = 0 Then
 MkDir (sPath & "_" & Format(Date, "mm_dd_yyyy")) 
End If
End Sub

并将其保存为：

.SaveAs Filename:="M:\mgr1_TCR_Reports\" & "_" & Format(Date, "mm_dd_yyyy_") & "\" & Manager, FileFormat:=xlOpenXMLWorkbook, Password:=""
 .Close

但是我一直得到一个运行时1004：文档没有保存在我提供的第二行代码上

---

知道发生了什么事吗？

什么是

Manager

？另外

格式（日期，“mm\u dd\u yyy”）

-您在其中有一个额外的“\uu”。您调试了“M:\mgr1\u TCR\u Reports\”和“&”格式（日期，“mm\u dd\u yyyy”）&“Manager”的值，并检查了它是否如预期的那样？@BigBen Manager是代码其余部分列出的变量。它在一张单独的纸上引用列表中的特定名称。它引用了一列经理，我只想要特定的人。那么额外的“？”@BigBen，啊，这么小的错误呢。是的，它修好了！非常感谢你！