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

2025-03-06 12:31:59
推荐回答(1个)
回答1:

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