在工作中，有时需要处理大量的报表数据，保存工作簿成了烦琐的事情，这里只要你在工作表1的A1单元格中输入报表名称，关闭工作簿时，系统就自动将之保存到你指定的文件夹中，并按你在A1单元格中录入的名称进行保存。

实例如下；

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox '请检查是否已在工作表1的A1单元格中录公司代码及公司名称！', , '提示信息'
    ChDir 'D:\2011财务报表'
    ActiveWorkbook.SaveAs Filename:='D:\2011财务报表\' & Sheet1.Cells(1, 1) & '.xls', FileFormat:=xlNormal
    ActiveWindow.Close
End Sub
 

 注：该代码放在工作表事件中，能实现根据表1工作表中的A1单元格的数据作为工作簿名称，自动保存到D盘指定目录的文件夹中。保存前有是否已录入报表名称的提示信息。