ʵ���������ߴ��С��Ĺ������е�excel�����޷���ɣ�����VBA��̵ķ�������Ȼ����Ϊ����VBA������㣬ֻ��Ҫ�����沽�踴��ճ�����ɡ�

��1 ������Ҫ���ݵ�excel�ļ����ڹ������ǩ���Ҽ�������������鿴���롱��

��2�� �ڴ�һ��visualbasic���ڣ�˫�����̴����е�thisworkbook��������Ĵ���ճ�����Ҳ�Ĵ����С�

���룺

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

Dim mypath As String, fname As String

fname = Format(Date, "yymmdd") & ThisWorkbook.Name

mypath = ThisWorkbook.Path & "/����/"

ThisWorkbook.SaveCopyAs mypath & fname

End Sub

��3������Visual basic�����е����������ᵯ��������ú����ʾ����ʱ������񡱰�ť��

�ڵ����ı��洰���У�ѡȡ��������Ϊ��Excel ���ú�Ĺ���������

��4�����ڵ�ǰ�ļ����У��½�һ����Ϊ�����ݡ����ļ��С�