[求助]如何删除隐藏的工作表?

月黑风高

一个工作簿中有若干张工作表,数量固定,打开时全部隐藏,通过窗体上的多选框选择需要显示的表,然后在另存为时将属性为隐藏的表自动删除,如何做到?示例如下,恳求各位老师指教!!! aQaTrahc.rar (14.15 KB, 下载次数: 40)

2005-1-8 12:29 上传

点击文件名下载附件
[求助]如何删除隐藏的工作表?

Samsea

将属性为隐藏的表自动删除：

Application.DisplayAlerts = False For Each Sh In Worksheets If Sh.Visible <> -1 Then Sh.Delete Next Application.DisplayAlerts = True

月黑风高

感谢二位的解答,还有一个问题,如何在另存时删除原有工作簿中部分宏?

zz5151353

samsea 老師與 emily 版主,這兩招都寫的好,下載收藏學習,謝謝 !!!

Emily

以下是引用月黑风高在2005-1-8 12:28:00的发言： 然后在另存为时将属性为隐藏的表自动删除,如何做到?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI Then For Each ws In ActiveWorkbook.Worksheets If ws.Visible <> True Then ' MsgBox ws.Name Application.DisplayAlerts = False ws.Delete End If Next Application.DisplayAlerts = True End If End Sub

楊波

请问2楼和三楼朋友的命令如何断句哦？为什么我运行的时候提示“编译错误，NEXT没有for”

永在战场

如果需要删除隐藏行的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法删除，打开VBE，将下列代码贴到新建的宏中，然后执行宏，隐藏的工作表就全删除了。


Sub 删除所有隐藏工作表()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1

   If Sheets(i).Visible = False Then
        Sheets(i).Delete
           Else
&#8203;       End If
Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门删除隐藏工作簿的应用处理，还可以多个excel工作簿一起操作，很快。
应用下载地址："https://pan.baidu.com/s/1A8N1a-tHuHcz1I0VoAk4Pw"

满庭月

永在战场 发表于 2018-10-9 08:24
如果需要删除隐藏行的表格多的话，一般的Excel界面操作是实现不了的，需要借助VBA或是专门应用。以下推荐两 ...

Else
&#8203;   请问一下，这个是代表什么意思呢，因为要自动化一些内容，我录制了宏，然后发发现没法录制删除隐藏工作表的宏，中间直接插入您给的代码，删除了前后两端，但是else &#8203; 是报错的，没办法，就直接删了，结果竟然是和我想要的一致的，但是如果数据多了不能保证正确性，所以希望了解一下被我删除的代码是什么，删除之后有什么影响吗，代码如下：

Sub DL文具项目名称()
'
' DL文具项目名称 Macro
'

Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1

   If Sheets(i).Visible = False Then
        Sheets(i).Delete

           End If
Next i

ActiveWorkbook.Save

    ActiveWorkbook.RemoveDocumentInformation (xlRDIPrinterPath)
    Sheets("Bellwhether").Select
    Sheets.Add After:=ActiveSheet
    ActiveCell.FormulaR1C1 = ""
    Range("A1").Select
    ActiveWorkbook.Names.Add Name:="名称", RefersToR1C1:="=GET.WORKBOOK(1)"
    ActiveWorkbook.Names("名称").Comment = ""
    Range("A1").Select
    ActiveCell.Formula2R1C1 = "=INDEX(名称,ROW())"
    Range("A1").Select
    Selection.AutoFill Destination:=Range("A1:A27"), Type:=xlFillDefault
    Range("A1:A27").Select
    Range("A1:A17").Select
    Selection.Copy
    Range("A1:A27").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="]", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Columns("B:B").EntireColumn.AutoFit
    Range("F13").Select
End Sub