Sub file_quit()
	Application.Quit
	'Excelを終了します
End Sub