括号或换行符

Question

我正在尝试使用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

Answer 1

括号或换行符

tax ，不带括号 ActiveWorkbook.SaveAs "..." 。

换行符必须包含一个()和一个SPACE： UNDERSCORE 。

' _'

编辑：

BruceWayne注意到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的参数可以放在括号中（我永远不会这样使用它们）。很抱歉提供错误信息。但是缺少的换行符肯定会引发编译错误。

Excel将日期添加到文件名格式错误

1 个答案:

括号或换行符