请问,如何在不同的工作簿里删除名称相同的工作表,3Q!!!

发布网友发布时间：2022-09-15 02:31

共2个回答

热心网友时间：2023-10-03 05:57

可以用vba批量删除。
下面的代码将删除 C:\PATH 目录下所有xls文件中的sheet1

代码使用方法：按住ALT依次按F11,I,M；粘贴代码后按F5运行。
警告：代码删除sheet1并保存修改结果，这个过程是不可逆的。

Sub 批量删除工作表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
p = "C:\path\"
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
Sheets("Sheet1").Delete
ActiveWindow.Close True
f = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

热心网友时间：2023-10-03 05:58

Sub 批量删除工作表()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
With Application.FileDialog(4)
MsgBox "请选择要处理的文件夹"
s = .Show
If s <> 0 Then
myp = .SelectedItems(1) & "\"
Else
Exit Sub
End If
End With
myf = Dir(myp & "*.xls")
myn = InputBox(请输入你删除的工作表名称)
Do While myf <> ""
Set wb = VBA.GetObject(myp & myf)
wb.Sheets(myn).Delete
Windows(wb.Name).Visible = True
wb.Close True
myf = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub