请问，各位EXCEL高手，如何如何批量删除很多个Excel表格的sheet1？谢谢

Question

如题所述

Answer 1

使用Excel人VBA宏，代码如下：

Sub Macro5()
Path = "D:\dir\"
Name = 1

'把从"1.xls"到"9.xls"的"Sheet1"删除
While Name < 10

x = Str(Name)
x = Right(x, Len(x) - 1)
dpath = Path + x + ".xls"
Name = Name + 1
Workbooks.Open Filename:=dpath
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.Delete
ActiveWorkbook.Save
ActiveWindow.Close
Wend
End Sub追问

您好，具体宏的操作我不是很明白。我要结果如图



