0

我有一个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") & "不起作用并给我一个编译错误弹出窗口。

我对宏的了解是有限的，所以任何帮助将不胜感激！

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

4

1 回答 1

0

尝试使用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
于 2016-08-23T21:28:37.180 回答