Excel宏另存为日期

Question

我有一个Macro ，可以使用我的主工作簿并保存一堆带有不同标签的不同副本。

一本工作簿的部分示例：

Range("E1:G1").Select
    ActiveCell.FormulaR1C1 = "099 Commercial"
    ChDir "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails"
    ActiveWindow.View = xlNormalView
    ActiveWindow.Zoom = 50
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails\099 Payroll Bundle CREW & EXP.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

因此，宏保存后的标签看起来像是099 Payroll Bundle CREW & EXP但我希望它看起来像是099 Payroll Bundle 08-23-2016 CREW & EXP ，其中08-23-2016是位于特定单元格中的日期=RC[-1]但是，通常的" & Format(Date, "MM-DD-YYYY") & " & " & Format(Now(), "MM-DD-YYYY") & "将不起作用并给出我弹出编译错误。

我对宏的了解有限，因此不胜感激！

编辑： 我尝试运行宏时给出的错误

Answer 1

尝试使用Application.Text （用日期替换'now（）'）

ActiveWorkbook.SaveAs Filename:= _
        "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails\099 Payroll Bundle" & Application.Text(Now(), "MM-DD-YYYY") & " CREW & EXP.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False