如何批量删除多个工作薄中指定的工作表

kyousn

批量删除多个工作薄中指定的工作表，工作表的名字都是一样的，要把他们从每个不同的工作薄中删除掉所有信息。
如附件所示，想把所有的“一月”工作表都删除掉

lsc900707

Sub lqt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    mypath = ThisWorkbook.Path & "\"
    myname = Dir(mypath & "*.xls*")
    Do While myname <> ""
        If myname <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(Filename:=mypath & myname)
            With wb
                For Each sht In .Worksheets
                    If sht.Name = " 1月" Then
                        sht.Delete
                    End If
                Next
                .Close True
             End With
        End If
        myname = Dir()
    Loop
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

fxl447098457

Sub delsht() Dim wb As Workbook, sht As Worksheet, shtname As String Dim strpath As String, fn As String shtname = Application.InputBox("请输入要删除的工作表名称:", , , , , , 2) strpath = ThisWorkbook.Path & "\" fn = Dir(strpath & "*.xls*") Application.ScreenUpdating = False Application.DisplayAlerts = False Do While Len(fn) If fn <> ThisWorkbook.Name Then Set wb = Workbooks.Open(strpath & fn)     For Each sht In wb.Worksheets      If Trim(sht.Name) = shtname Then         sht.Delete      End If     Next     wb.Close 1 End If fn = Dir Loop Application.DisplayAlerts = True Application.ScreenUpdating = True Set wb = Nothing Set sht = Nothing End Sub

lsc900707

Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    filename = Dir(ThisWorkbook.Path & "\")
    Do While filename <> ""
        If filename <> ThisWorkbook.Name Then
            fn = ThisWorkbook.Path & "\" & filename
            Set wb = Workbooks.Open(fn)
            Set Sht = wb.Worksheets(" 1月")
            Sht.Delete
            wb.Close True
        End If
        filename = Dir
    Loop
    Set Sht = Nothing
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

lsc900707

都要在同目录下另建一个操作工作簿的。

kyousn

谢谢楼上两位的指教

L1li-

lsc900707 发表于 2017-8-24 23:34
Sub tt()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

请问老师，在同一文件夹下，多个不同名工作薄下的同名工作表中格式一样的表格，要删除几列数据该怎么操作

lsc900707

L1li- 发表于 2018-8-11 10:50
请问老师，在同一文件夹下，多个不同名工作薄下的同名工作表中格式一样的表格，要删除几列数据该怎么操作

说具体呀，最好结合附件来说明白。

L1li-

lsc900707 发表于 2018-8-11 12:20
说具体呀，最好结合附件来说明白。

就是在一个文件夹下，有12个工作薄xlsx，1到12月订单明细，每个工作薄里面只有一个工作表，每个工作表里的标题及格式等是一模一样的，我要批量删除这12个表中的第2到21列该怎么弄。不好意思，因为我是刚注册的，不知道怎么上传附件

L1li-

L1li- 发表于 2018-8-11 17:18
就是在一个文件夹下，有12个工作薄xlsx，1到12月订单明细，每个工作薄里面只有一个工作表，每个工作表里 ...

老师麻烦您帮忙看一下