excel - 基于单元格值保存文件名的 Excel 2003 模板

Question

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

Answer 1

您可以使用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以便它们按时间顺序排序