⑴ 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版本的文件。
第六行是刪除批處理自身。
第七行是告訴你刪除已經完成。由於此批處理要搜索整個硬碟，用的時間可能會稍微長一些，這樣你好知道這時已經完成。其實一般幾秒種，不會超過兩分鍾。
第八行的作用是不讓批處理自動結束，出現「按任意鍵結束」的提示，你隨便按一個鍵或用滑鼠點右上角的差號，都可以結束。
其實第一行和最後兩行可以不要，則批處理一閃而過，完成後直接關閉。不留痕跡。
***注意，此批處理慎用，刪除後在回收站里是沒有的。