0

我需要制作一个 Excel 2003 模板以用于客户订单输入表单，当用户保存文件时，它将自动以单元格 B2（客户 ID）的值作为前缀和当前日期的文件名保存为后缀例如“2001XC_5-24-12”。我不知道VBA。非常感谢你，纳撒尼尔

4

1 回答 1

3

您可以使用BeforeSave事件处理程序来执行此操作。

将此代码放入ThisWorkbook模块中

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False
    ThisWorkbook.SaveAs [B2] & "_" & Format(Date, "m-d-yy")
    Cancel = True
    Application.EnableEvents = True
End Sub

笔记：

  • 您需要考虑要从哪个工作表中获取单元格B2，因此请使用以下内容：

    ThisWorkbook.SaveAs ThisWorkbook.Worksheets("Sheet Name Here").Cells(2,2) ...

  • 在创建带日期的文件名时，我建议您使用 formayyyyymmdd以便它们按时间顺序排序

于 2012-05-24T09:48:10.567 回答