Save file as .xlsx format

SaveFile_beforeClose.vb

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
	Dim fso As Object
	Dim fName As String
	Dim fPath As String
	
	Set fso = CreateObject("Scripting.FileSystemObject")
	
	Me.Worksheets(1).Cells("B4").Value = "Updated on " & Format(Now, "dd mmm yyyy")
	'セルに表示形式を設定しておくなら日付のデータを入力するだけでいい。

	fName = fso.GetBaseName(Me.Name)
	fPath = Me.Path
	
	Application.DisplayAlerts = False
	Me.SaveAs Filename:=fPath & "\" & Format(Now, "yymmdd") & "_" & fName, FileFormat:=xlWorkbookDefault
	Application.DisplayAlerts = True
 
End Sub