Excelのファイル名をタイムスタンプ付きで保存するにはどうすればよいですか？

現在のタイムスタンプでExcelファイルを保存しようとしたことがありますか？ この記事では、それを実現する方法を紹介します。

VBAコードでタイムスタンプ付きのExcelファイル名を保存します

VBAコードでタイムスタンプ付きのExcelファイル名を保存します

以下のVBAコードを実行して、タイムスタンプ付きのExcelファイル名を保存できます。 次のようにしてください。

1.ブックで、現在のタイムスタンプで名前を付ける必要があります。を押してください。 他の + F11 キーを同時に開いて Microsoft Visual Basic forApplicationsウィンドウ。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください インセット > モジュール。 次に、以下のVBAコードをにコピーします。 Code 窓。 スクリーンショットを参照してください：

VBAコード：タイムスタンプ付きのExcelファイル名を保存します（ファイル名をタイムスタンプに置き換えます）

Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

3。 プレス F5 コードを実行するためのキー。 次に、 名前を付けて保存 ダイアログボックスが表示され、[ファイル名]ボックスにタイムスタンプが表示されます。 このファイルを保存する場所を指定して、をクリックしてください Save ボタン。 スクリーンショットを参照してください：

ノート:

1.新しく作成されたExcelファイルは、現在のタイムスタンプの名前で直接保存されます。

2.既存のExcelファイルの場合、元のファイル名がタイムスタンプに置き換えられます。

元のファイル名を置き換えるのではなく、タイムスタンプの後に元のファイル名を追加するだけの場合は、以下の VBA コードを適用してください。

VBAコード：タイムスタンプ付きのExcelファイル名を保存します（タイムスタンプの後に元のファイル名を挿入します）

Sub AddTimestampToFileName()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStr As String
Dim xStrOldName As String
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrOldName = xWb.Name
xStr = Left(xStrOldName, Len(xStrOldName) - 5)
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xStrOldName, 4) = "xlsm" Then
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
  xFileName = Application.GetSaveAsFilename(xStr & " " & xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
  xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub

関連記事:

• ワークシートをPDFファイルとして保存し、Outlookから添付ファイルとして電子メールで送信するにはどうすればよいですか？
• 名前を付けて保存機能を使用して、Excelの既存のファイルを自動的に上書きするにはどうすればよいですか？
• 複数/すべてのシートを保存して、Excelで個別のcsvファイルまたはテキストファイルにエクスポートするにはどうすればよいですか？
• Excelで[保存して名前を付けて保存]オプションを無効にする、または許可しない方法は？
• ブックの保存を無効にして、Excelでの保存のみを許可するにはどうすればよいですか？