excel 自动改文件名

发布网友发布时间：2022-04-24 12:53

共2个回答

热心网友时间：2023-10-13 11:09

把这些代码复制到ThisWorkbook项目对象下：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
A = Sheets("Sheet1").Range("A1") '假定工作表1的A1单元格。必需指定工作表名。
B = ThisWorkbook.Path
C = ThisWorkbook.Name
D = B & "\" & A & ".xls" '如果你的Excel版本是2007，则后缀名改为.xlsx
E = B & "\" & C

ActiveWorkbook.SaveAs Filename:=D, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill E '本行删除原有文件
End Sub追问请问如何用？
我刚才将你上面的东东拷到excel文件内的BV编辑器存完后，没反应呢！
谢谢！

热心网友时间：2023-10-13 11:10

excel 自动改文件名的方法如下：
1、把这些代码复制到ThisWorkbook项目对象下：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
A = Sheets("Sheet1").Range("A1") '假定工作表1的A1单元格。必需指定工作表名。
B = ThisWorkbook.Path
C = ThisWorkbook.Name
D = B & "\" & A & ".xls" '如果你的Excel版本是2007，则后缀名改为.xlsx
E = B & "\" & C

ActiveWorkbook.SaveAs Filename:=D, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Kill E '本行删除原有文件
End Sub
2、关闭文件时，文件会被自动根据设置的情况进行改名。