Question

excel文件保存时自动以单元格a1的内容命名。如何实现无需提示关闭文件时自动保存自动覆盖如何实现

Answer 1

Sub 保存()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=[a1] & ".xlsx"
End Sub

追问

是把比代码放在thisworkbook中吗？

追答

右键sheet名
查看代码
复制进去

追问

好像没有用

我的是excel2003

追答

Sub 保存()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=[a1] & ".xls"
End Sub
03版本的后缀名是 xls