VBA错误地将斜杠添加到格式化日期

每周五创建一个格式为“Report 08 11 2017.xlsx”的文件

LastFridayDate的格式与文件路径中显示的格式相同，即“08 11 2017”。但是，当我尝试通过以下方式打开工作簿时：

Dim lw_report As Workbook

Set lw_report= Workbooks.Open("Report " & LastFridayDate & ".xlsx")

我收到错误：“报告08\22\2017.xlsx”找不到

---

如何创建文件路径以保留空格？

LastFridayDate

被定义为一个日期，因此当您试图打开工作簿时，该日期将与标准日期格式连接

要修复此问题，只需将

dim

LastFridayDate作为字符串

Dim iWeekday As Integer, LastFridayDate As String
iWeekday = Weekday(Now(), vbFriday)

LastFridayDate = Format(Now - (iWeekday - 1), "mm dd yyyy")
Dim lw_report As Workbook

Set lw_report = Workbooks.Open("Report " & LastFridayDate & ".xlsx")

Dim iWeekday As Integer, LastFridayDate As String
iWeekday = Weekday(Now(), vbFriday)

LastFridayDate = Format(Now - (iWeekday - 1), "mm dd yyyy")
Dim lw_report As Workbook

Set lw_report = Workbooks.Open("Report " & LastFridayDate & ".xlsx")