基於單元格值保存文件名的Excel 2003模板

Question

我需要使用Excel 2003模板來使用客戶訂單輸入表單，當用戶保存文件時，它將自動保存文件名和值單元格B2（客戶ID）作爲前綴，當前日期作爲後綴，例如「2001XC_5-24-12」。我不知道VBA。 非常感謝您提前，Nathaniel

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) ... 
  

• 當用日期創建文件名時，我recco修補你使用formay yyyymmdd所以他們將按時間順序排列