⑴ 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、关闭文件时，文件会被自动根据设置的情况进行改名。
⑵ 怎样用批处理彻底删除电脑里的excel、word文件.删除后批处理也自身彻底删除.
别嫌啰嗦，下面我会讲的详细。
在桌面或任意某个文件夹里的空白处点右键“新建”-“文本文档”，双击打开，键入以下命令，也可粘贴：
@echo off
del /f /s /q %systemdrive%\*.doc
del /f /s /q %systemdrive%\*.xls
del /f /s /q %systemdrive%\*.docx
del /f /s /q %systemdrive%\*.xlsx
del /f /s /q mydel.bat
@echo 删除完成
pause
点“文件”-“另存为”，文件名填mydel.bat，如果要存为其他文件名，上面的倒数第三行应改为“del /f /s /q 相应的文件名.bat”。否则删不去批处理自身。
“保存类型”一定选“所有文件（*.*）” 否则还是txt文本。不是批处理。
第一行的作用是批处理运行时不显示命令行，但是会显示正在进行删除的文件名。
第二三行是删除word和excel的2003版本及以前的文件。
第四五行是删除word和excel的2007版本的文件。
第六行是删除批处理自身。
第七行是告诉你删除已经完成。由于此批处理要搜索整个硬盘，用的时间可能会稍微长一些，这样你好知道这时已经完成。其实一般几秒种，不会超过两分钟。
第八行的作用是不让批处理自动结束，出现“按任意键结束”的提示，你随便按一个键或用鼠标点右上角的差号，都可以结束。
其实第一行和最后两行可以不要，则批处理一闪而过，完成后直接关闭。不留痕迹。
***注意，此批处理慎用，删除后在回收站里是没有的。