步骤:1、在文件夹外新建个工作表2、从 excel 开发工具菜单中调出 VB 编辑器3、将代码拷入,修改好相应参数4、保存 (一律选是)5、运行代码:Sub tt() On Error Resume Next = False = False Dim filename, shtname As String, wb As Workbook, Sht As Worksheet, fn As String, arr filename = Dir & "\新建文件夹\*.xls") Do While filename <> "" If filename <> Then fn = & "\新建文件夹\" & filename Set wb = (fn) ("人员信息表").Delete True End If filename = Dir Loop Set Sht = Nothing = True = TrueEnd Sub