在THISWORKBOOK代码窗键入以下代码Private Sub Workbook_BeforeClose(Cancel As Boolean)FilePath = ThisWorkbook.PathActiveWorkbook.SaveAs Filename:=FilePath & "\" & [a1] & ".xls"End Sub