关于excel的问题

关于excel的问题

代码如下
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object, arr, i&
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set d = CreateObject("scripting.dictionary")
    arr = Range("a1").CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = ""
    Next
    MyPath = ThisWorkbook.Path & ""
    MyName = Dir(MyPath & "*.xls")
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
                For Each sh In .Sheets
                    If d.Exists(sh.Name) Then sh.Delete
                Next
                Windows(.Name).Visible = True
                .Close True
            End With
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub
1、在工作表中填写需要删除的工作表名称；
2、把需要删除的工作簿与当前工作簿存放在同一个文件夹中；
3、不知道你的excel表的格式类型，这里用的是“.xls”；

4、可以先备份，再试试效果。

一定是用VBA

您换一个思路，把需要的工作表复制（移动）为新工作簿，删除旧文件（工作簿）。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息