【问题标题】：Excel adding date to file name format errorExcel将日期添加到文件名格式错误
【发布时间】：2018-12-06 21:32:44
【问题描述】：

我正在尝试使用 VBA 宏来保存工作表并将当前日期添加到文件名中。我不断收到编译错误：参数数量错误或属性分配无效，但我看不出我使用的代码与我在网上找到的用于添加日期的建议代码有何不同到一个文件名。

Sub archciveWIPfile()

    Sheets("WIP").Select
    Sheets("WIP").Copy

    ChDir "X:\VW\WIP Files\currentMonth"
    ActiveWorkbook.SaveAs ("X:\VW\WIP Files\currentMonth\WIP " & Format(Date, 
    "DD-MMM-YYYY") & ".xlsx")
    ActiveWindow.Close

End Sub

【问题讨论】：

我在运行它时没有收到该错误。一件事是将"DD-MM... 拉到与Format(Date, 相同的行。或将其更改为Format(Date, _。（_ 告诉 VBA 表达式在下一行继续。）
据我所知，代码是有效的。哪一行抛出错误？你应该看Excel VBA Introduction Part 5 - Selecting Cells (Range, Cells, Activecell, End, Offset)。

标签： excel vba

【解决方案1】：

括号或换行

ActiveWorkbook.SaveAs "..." 不带括号()。

换行符必须有一个SPACE和一个UNDERSCORE：' _'。

Sub archciveWIPfile()
  Sheets("WIP").Select
  Sheets("WIP").Copy
  ChDir "X:\VW\WIP Files\currentMonth"
  ActiveWorkbook.SaveAs "X:\VW\WIP Files\currentMonth\WIP " _
      & Format(Date, "DD-MMM-YYYY") & ".xlsx"
  ActiveWindow.Close
End Sub

编辑：

BruceWayne 注意到 SaveAs 的参数可以放在括号中（我只是从不这样使用它们）。对不起，错误信息。但是缺少换行符肯定会引发编译错误。

【讨论】：

如果我添加换行符，它仍然适用于我的括号。仅供参考。