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

everbest2015

Sub batch_delete()
    Dim mypath$, myname$, wkb As Workbook, wb As Workbook, sh As Worksheet, r As Range
    Set wb = ThisWorkbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请指定数据源所在的文件夹"
        If .Show Then
            mypath = .SelectedItems(1)
            If Right(mypath, 1) <> "\" Then mypath = mypath & "\"
            myname = Dir(mypath & "*.xls*")
            Application.ScreenUpdati3ng = False
                Do While Len(myname) <> 0
                    If myname <> wb.Name Then
                        Set wkb = Workbooks.Open(Filename:=mypath & myname, UpdateLinks:=False)
                        With wkb
                        On Error Resume Next
                            Set sh = .Sheets("订单")
                            If Err.Number <> 0 Then MsgBox "工作簿" & .Name & "中不存在订单工作表": End
                            Set r = sh.Range("B:V")
                            r.Delete shift:=xlToLeft
                            .Close True
                        End With
                        myname = Dir
                    End If
                Loop
            Application.ScreenUpdating = True
        Else: MsgBox "还没有告诉我您的数据源在哪里!", , "提示": Exit Sub
        End If
    End With
    MsgBox "恭喜,批量删除指定区域完成!", , "OK"
End Sub

lsc900707

L1li- 发表于 2018-8-11 17:43
老师麻烦您帮忙看一下

Sub gj23w98()
   p = ThisWorkbook.Path & "\"
   f = Dir(p & "*.xlsx")
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Do While f <> ""
       If f <> ThisWorkbook.Name Then
           Set wb = Workbooks.Open(p & f)
           wb.Sheets(1).Columns("b:u").Delete
           Workbooks(f).Close True
      End If
      f = Dir
   Loop
   Set wb = Nothing
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   MsgBox "OK！"
End Sub

lsc900707

L1li- 发表于 2018-8-11 17:43
老师麻烦您帮忙看一下

在同目录下新建一个操作工作簿，运行代码。参考附件：

L1li-

lsc900707 发表于 2018-8-11 19:08
Sub gj23w98()
   p = ThisWorkbook.Path & "\"
   f = Dir(p & "*.xlsx")

谢谢老师，非常感谢

L1li-

everbest2015 发表于 2018-8-11 19:04
Sub batch_delete()
    Dim mypath$, myname$, wkb As Workbook, wb As Workbook, sh As Worksheet, r  ...

谢谢谢谢，非常感谢

L1li-

lsc900707 发表于 2018-8-11 19:11
在同目录下新建一个操作工作簿，运行代码。参考附件：

老师，再请问一下，工作薄内有多个工作表的话，如何指定工作表删除指定列

lsc900707

L1li- 发表于 2018-8-15 16:09
老师，再请问一下，工作薄内有多个工作表的话，如何指定工作表删除指定列

   wb.Sheets(1).Columns("b:u").Delete
修改这一句就可以。

L1li-

lsc900707 发表于 2018-8-15 21:18
wb.Sheets(1).Columns("b:u").Delete
修改这一句就可以。

好的，谢谢老师

Santrax

lsc900707 发表于 2018-8-11 19:08
Sub gj23w98()
   p = ThisWorkbook.Path & "\"
   f = Dir(p & "*.xlsx")

谢谢大神。
这个删除的是每个工作簿里只有一个工作表的情况。
如果每个工作簿里有多个工作表，我只要删除每个工作簿中的指定工作表（sheet2）的B:U列呢？
请问上面的代码怎么改？

lsc900707

Santrax 发表于 2019-5-21 15:33
谢谢大神。
这个删除的是每个工作簿里只有一个工作表的情况。
如果每个工作簿里有多个工作表，我只要删 ...

wb.Sheets(“sheet2").Columns("b:u").Delete