excel - セル値に基づいてファイル名を保存するExcel2003テンプレート

Question

顧客注文入力フォームで使用するExcel2003テンプレートを作成する必要があります。ユーザーがファイルを保存すると、セル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) ...
  

• yyyymmdd日付付きのファイル名を作成する場合は、時系列で並べ替えられるようにformayを使用することをお勧めします