Private Sub Workbook_BeforeClose(Cancel As Boolean) ChDir "D:\files" ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal ActiveWindow.Close End Sub 使用以上代码,只有关闭时,才另存。
以下代码,只要保存就自动以某一单元格内的内容命名并自动保存在指定的文件夹中
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ChDir "D:\files" ActiveWorkbook.SaveAs Filename:="D:\files\" & [A1] & ".xls", FileFormat:=xlNormal Cancel = True End Sub 如果目录不存在,请补充提问,或者HI