Question

excel关闭时自动保存并更名，文件名为单元格A1的内容。

Answer 1

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

追问

关闭文档第一次是可以的，但第二次开启后再关闭会出现文件已存在提示，可否关掉此提示，因为无论点是还是否都要出错

追答

可以，加个文件名判断即可，手机端没法写，明天回复

追问

大师，有空再帮我加一个文件名判断，非常感谢！！

大师，有空再帮我加一个文件名判断，就是当已有同文件名时自动放弃更名，，不产生出错提示。非常感谢！！