精华内容
下载资源
问答
  • 删除工作表怎么恢复
    千次阅读
    2018-04-05 10:58:17

    前言

    删除工作表是VBA代码开发过程中经常用到的操作,一行代码就可以完成,这有啥可讲的呢!?代码一执行,是否就看到下面这个令人烦的窗口跳出来了。

    此时,你就不得不点击【删除】按钮确认才可以删除工作表,如果要批量删除多个工作表,那么就需要不停的点击按钮,VBA代码实现自动化操作的目的就无法实现。

    解决方案

    Excel为了避免用户的误操作,每次删除工作表都会给出提示信息,用户确认后才会执行删除操作,这个机制是Excel的安全机制,无法取消。但是可以利用系统设置屏蔽这个提示信息,以实现无人干预的自动化操作。为了方便调用,将代码封装成独立的过程。

    Sub DelSheets(vShtName, Optional sWkName As String)
        Dim sName
        With Application
            .DisplayAlerts = False
            On Error Resume Next
            If Len(sWkName) > 0 Then
                Set objWk = ActiveWorkbook
            Else
                Set objWk = Workbooks(sWkName)
            End If
            If VBA.IsArray(vShtName) Then
                For Each sName In vShtName
                    objWk.Sheets(sName).Delete
                Next
            Else
                objWk.Sheets(sShtName).Delete
            End If
            On Error GoTo 0
            .DisplayAlerts = True
        End With
    End Sub

    DelSheets过程有两个参数:

    • vShtName是必选参数,用于指定需要删除的工作表名称, 可以单个工作表,也可以是多个工作表名称组成的数组。
    • sWkName是可选参数,用于指定工作表所隶属的工作簿。
      调用代码如下:
    '删除单个工作表
    Call DelSheets("Sheet1")
    '删除多个工作表
    Call DelSheets(Array("Sheet1","Sheet3","Sheet3"))

    代码解析

    此过程的核心代码如下:

    Application.DisplayAlerts = False
    On Error Resume Next

    第一行代码禁止显示系统告警信息,删除工作表时就不会出现提示对话框,在过程结束前,需要回复系统设置Application.DisplayAlerts = True
    第二行代码忽略系统错误,也就是忽略删除工作表可能产生的异常错误,在过程结束前,需要回复系统设置On Error GoTo 0

    VBA.IsArray(vShtName)用于判定参数vShtName是否是数组。

    • 如果vShtName是数组,则返回值为True,属于批量删除工作表。For Each sName In vShtName遍历数组中的元素(工作表名称),然后逐个删除。
    • 如果vShtName不是数组,那么就是单个工作表名称,可以直接进行删除操作。
    更多相关内容
  • wps工作簿中的工作表删除恢复

    千次阅读 2020-12-24 15:27:44
    文件—工具—备份中心—本地恢复,找到自己对应的文件即可~ 第一步 、 第二步~找到工具栏中的备份中心 第三步 第四歩、进入备份中心,找到自己对应的文件即可

    文件—工具—备份中心—本地恢复,找到自己对应的文件即可~
    第一步
    在这里插入图片描述
    第二步~找到工具栏中的备份中心
    第三步
    在这里插入图片描述
    第四歩、进入备份中心,找到自己对应的文件即可

    展开全文
  • Excel表格中如何批量删除工作表

    千次阅读 多人点赞 2022-04-15 11:44:10
    Excel表格中如何批量删除工作表 目录 Excel表格中如何批量删除工作表 1、工作表这么多,一个一个删除太费劲,如何让快速删除? 2、按住“ctrl”键选中工作表,工作表颜色变白,鼠标右键点击“删除”即可 1...

    Excel表格中如何批量删除工作表

    目录

    Excel表格中如何批量删除工作表

    1、工作表这么多,一个一个删除太费劲,如何让快速删除?

    2、按住“ctrl”键选中工作表,工作表颜色变白,鼠标右键点击“删除”即可


    1、工作表这么多,一个一个删除太费劲,如何让快速删除?

    2、按住“ctrl”键选中工作表,工作表颜色变白,鼠标右键点击“删除”即可

    安利一个R语言的优秀博主及其CSDN专栏:
    博主博客地址:

    Data+Science+Insight的博客_CSDN博客-R语言从入门到机器学习,数据科学从0到1,机器学习面试+横扫千军领域博主

    博主为CSDN数据科学领域知名博主(博客内容包括:数据科学从0到1、R语言从入门到机器学习、机器学习面试+横扫千军、Python编程技巧高效复用等系列) 毕业于中国科学院大学智能计算专业。研究方向为,数据挖掘、机器学习、深度学习等。深度参与了多项数据挖掘、计算机视觉以及自然语言处理相关项目,例如,社会计算、异常分析、聚类分析、预测分析、序列标记、语言生成、OCR、图像分类+检测+分割等。现任某茅数据科学家,负责数据科学团队的管理及项目实施。曾就职于中国信科集团,负责大数据与机器学习组的管理及项目实施。曾参与国家级医疗大数据平台机器学习项目的开发和建设、构建了完整的数据链路、特征池、模型仓库、迁移中心、数据应用、数据服务Pipeline,并与AWS中国基于AWS云服务合作开发大型工业互联网项目,积累了工业互联网模型构建、部署、监控实战经验。

    Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。在1993年,作为Microsoft Office的组件发布了5.0版之后,Excel就开始成为所适用操作平台上的电子制表软件的霸主。

    在 Excel中,函数实际上是一个预先定义的特定计算公式。按照这个特定的计算公式对一个或多个参数进行计算,并得出一个或多个计算结果,叫做函数值。使用这些函数不仅可以完成许多复杂的计算,而且还可以简化公式的繁杂程度。

    我们生活的这个世界是丰富多彩的,几乎所有的知识都来自于视觉。也许无法记住一连串的数字,以及它们之间的关系和趋势。但是可以很轻松地记住一幅图画或者一个曲线。因此通过使用图表,会使得用Excel编制的工作表更易于理解和交流。
     

    展开全文
  • 【代码模板004】VBA快速删除工作表

    千次阅读 2018-03-01 02:34:00
    老规则 —— 先删除再创建,删除工作表很简单嘛,Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口,Excel的产品经理考虑过宝宝们的用户体验吗!?删除工作表也搞得这么复杂,又不是从银行账户里转...

    在博文 VBA添加工作表详解 中为大家讲了如何使用一句代码在指定位置插快速入指定名称的工作表。但是如果工作簿中已经存在同名工作表,那么运行时错误’1004‘就不期而遇的跳了出来。

    老规则 —— 先删除再创建,删除工作表很简单嘛,Sheets(..).Delete一句代码搞定。怎么又弹出一个消息窗口,Excel的产品经理考虑过宝宝们的用户体验吗!?删除工作表也搞得这么复杂,又不是从银行账户里转走500万。

    每次都这么麻烦,必须拿出VBA来搞定它了。

    Sub DelSheet(vShtName, Optional sWkName As String)
        Dim sName
        With Application
            .DisplayAlerts = False
            On Error Resume Next
            If Len(sWkName) > 0 Then
                Set objWk = ActiveWorkbook
            Else
                Set objWk = Workbooks(sWkName)
            End If
            If VBA.IsArray(vShtName) Then
                For Each sName In vShtName
                    objWk.Sheets(sName).Delete
                Next
            Else
                objWk.Sheets(sShtName).Delete
            End If
            On Error GoTo 0
            .DisplayAlerts = True
        End With
    End Sub

    这个事儿整的似乎有点儿大,一句代码怎么被扩展成了20多行。莫急,俗话说工欲善其事,必先利其器,以后调用起来就so easy。

    Sub Demo()
        '删除单个工作表
        DelSheet Array("sheet1")
        '删除多个工作表,并指定工作簿
        DelSheet Array("sheet3", "sheet4"), "MyData.xlsx"
    End Sub

    无论是当前工作簿还是其他工作簿,即可以删除单个工作表,又可以删除一组工作表,随心所欲一句代码就搞定。

    展开全文
  • 1.创建工作表 1.1 默认工作表 当创建好工作簿之后会自动生成一个工作表(sheet),名为"Sheet",可以通过active来获取 wb = Workbook() ws = wb.active # 获取默认的工作表 print(ws.title) # 返回工作表名,Sheet ...
  • SUB 批量增加命名工作表() For L = 1 To 100 Sheets.Add(, Sheets("发票表头")).Name = ...SUB 批量删除工作表() Application.DisplayAlerts = 0 ‘’‘关闭提示 On Error Resume Next X = Worksheets.Count For i ...
  • MySQL误删数据或者误清空表恢复

    千次阅读 2021-01-18 18:20:57
    一脸懵逼o((⊙﹏⊙))o 二、 情形2: 没有客户端,直接命令行删除了整张 如果是直接使用了命令,或者其他语言接口,难以找到操作日志,那么情形1的两种方法都需要利用binlog2sql快速闪回。 Github链接:binlog2sql...
  • 需求① 在一个工作簿(workbook)中根据已知的工作表名称创建多个工作表并分别命名,可以创建同时当然需要研究增删改工作表。思路:研究vba的基础语法,知道了workbooks(工作簿集)、workbook(工作簿)、worksheet...
  • 2、如果想要删除所有工作表中的B列内容 ,一个一个的删除会很麻烦,所以需要使用批量删除: 1)鼠标点选工作簿中第一个工作表,按住shift键点选最后一个工作表。 2)选中要删除的列标,右击,删除。 这里选了5个...
  • 会创建当然少不了删除了,接下来我们接着删除指定的工作表吧。 using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using Microsoft.Office....
  • 数据库误删除后的两种恢复方法(二)详细操作
  • oracle删除表中数据(delete与truncate)

    千次阅读 2021-05-07 11:50:02
    中的数据不需要时,则应该删除该数据并释放所占用的空间,删除表中的数据可以使用Delete语句或者Truncate语句,下面分别介绍。一、delete语句(1)有条件删除语法格式:delete [from] table_name [where condition...
  • 在Excel中禁止删除工作表

    千次阅读 2012-06-21 11:27:46
    为了防止用户误删除工作簿中的工作表,可以通过保护工作簿的方法来禁止删除工作表,方法如下:  1. 在Excel 2003中,单击菜单“工具→保护→保护工作簿”。在Excel 2007中,选择“审阅”选项卡,在“更改”组中...
  • 那其实也可以把多个工作表合并为一个。 继续之前的例子,我们把汇总表删除 如下 把表 1,2,3 合并到sheet5中 合并代码如下: Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = Fals...
  • Oracle恢复删除表&彻底删除表方式

    千次阅读 2018-08-02 16:53:00
    工作过程中,会出现误删的情况,这时,可以通过flashback的方式恢复删除。 通过 flashback table table_name to before drop; 语句可以实现恢复表的功能。 如果想要完全删除,在最后增加purge即可。 ...
  • 【VBA】工作表删除所有图片、形状

    千次阅读 2018-11-07 11:13:13
    Dim shp As Object  For Each shp In ActiveSheet.Shapes  shp.Delete  Next shp  
  • wps批量删除sheet 批量删除工作簿

    千次阅读 2020-11-19 18:10:18
    比如需要删除名为 1 和 14的范围sheet工作簿 点击1 -> 按着shift键不放的情况下 点击"最后一个"按钮(位于wps左下角)(这时候会自动跳转到最后一个工作簿) 仍然不要释放shift 点击最后一个工作簿或者你想要的那个...
  • EXCEL密码去除(工作表、工作薄密码保护破解)EXCEL密码去除(工作表、工作薄密码保护破解)
  • 1、VBA小代码,批量取消隐藏工作表 Sub 批量取消隐藏工作表() Dim sht As Worksheet '定义变量 For Each sht In Worksheets '循环工作簿里的每一个工作表 sht.Visible = xlSheetVisible '将工作表的状态设置...
  • Tableau如何隐藏工作表

    千次阅读 2018-07-16 11:53:40
    初学Tableau时,难免会遇到一些坑,比如右击工作表时,隐藏工作表的选项为灰色,不可用,如下图: 原来是Tableau要求只有添加到仪表板中的工作表才可以隐藏,解决方案如下: 1、新建仪表板,将需要隐藏的工作表...
  • 一.工作薄的基本操作 ...第一步:在下方工作表+号处,单击右键选择移动或复制工作表 第二步:可以下拉选择工作薄,即移动到其他工作薄中,也可以移动工作表。 建立副本表示复制,不打上勾表示移动,
  • 为什么excel文件中的不能删除

    万次阅读 2017-10-15 14:40:46
    如果excel表格里的内容无法删除的话,这个是excel表格设置了“保护工作表或者“保护”工作簿”了,只有取消“保护工作表或者“保护”工作簿”才可以删除工作里的内容了。 ...
  • 使用这个工具可以去表头合并,需要格式一样,在线工具无需安装。... 如果是按Sheet名称合并点击:多个Excel文件合并(相同名称的Sheet合并) 如果是所有的合并成一个点击:...支持多个Excel文件,多个Sheet(...
  • 关于数据delete后如何恢复 今天在开发中需要进行delete掉整张的操作,为了更好调试,我觉得得先查好数据怎么恢复。 那么数据delete掉后怎么恢复呢? 1、查询数据库当前时间(目的是为了检查数据库时间是否与你...
  • 如何从命令行中删除PostgreSQL中的所有?我不想删除数据库本身,只是所有的表格,并在他们所有的数据。#1楼根据上面的Pablo,就案例而言,从特定模式中删除:select 'drop table "' || tablename || '" cascade;'...
  • 恢复oracle中用pl/sql误删除drop掉的

    千次阅读 2016-07-07 09:02:02
    查看回收站中 select object_name,original_name,partition_name,type,ts_name,createtime,droptime ...恢复表 SQL>flashback table test_drop to before drop;或 SQL>flashback table "BIN$b+XkkO1RS5K10u
  • AIRIOT工作表管理方便,可根据实际情况自由创建工作表、修改工作表、制作工作表画面、进行数据同步等,工作表的基本功能包括基本信息设置、数据同步、画面设置和表定义。 工作表 1 添加工作表 单击主菜单“工作...
  • 上篇说到将excel中的一个工作表按照某列拆分成多个sheet工作表,那么如何把excel中的多个工作表sheet合成一个工作表呢?接下来就继续利用VBA工具来解决这个问题。 工作表合成前: 工作表合成后: **第一步:**在...
  • 02 多个工作簿多张工作表的合并 如下图所示,各区域的销售数据分布在不同工作簿的多个工作表中,现在要求把所有工作簿中的所有工作表全部合并到一个工作表中。 操作步骤 1. 第一步和多个工作簿单张工作表的步骤相同...
  • excel2019版本0引言1、加密excel文件1.1方法一1.2方法二1.3取消excel文件加密2、excel加密工作表和工作簿2.1 加密方式2.2加密工作表和工作簿的区别2.2.1加密工作表2.2.2加密工作簿3、 总结 0引言 在使用excel时难免...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 768,144
精华内容 307,257
热门标签
关键字:

删除工作表怎么恢复

友情链接: MMI_Study.rar