ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 ExcelHome出品 - VBA代码宝免费下载 13门Excel免费公开课任你学
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 免费的Excel考勤计算系统
查看: 138|回复: 3
打印 上一主题 下一主题

[求助] 请问大师要删除本工作薄内对应单元格工作表名称的工作表代码如何修改?

[复制链接]

ag娱乐平台手机版,  2016年已经在里约热内卢拉开帷幕。在这四年一度的时刻,我们都在为世界各国运动员们将展示出的非凡、毅力和优雅而欢呼,无论他们来自严寒之地的冰岛,还是接近赤道的尼日利亚。不过,与此同时,可能也会有一些竞技者利用违禁药物来提升自己的体育成绩。这种做法不仅对其他运动员不公平,还可能对运动员自己的身体造成伤害。世界反兴奋剂机构(WADA)的职责就在于为委员会及其他体育组织提供关于违禁药物的检测,该机构此前已指控俄罗斯曾在国家层面上为运动员们实施兴奋剂项目,导致俄罗斯100多名运动员被禁止参加里约奥运会。当然,俄罗斯这种情况只是冰山一角。

  在上线之初由于短时间内涌入了大量的玩家,使得服务器负载过重,任天堂不得不紧急采取了锁区政策,仅有几个国家和地区可以正常体验。但这依旧没有阻挡玩 家们渴望抓小的心,目前《Pokemon Go》已在30个左右的国家和地区上线,香港成为了首个在中国区上线的地区,但中国大陆区何时解锁依旧没有任何动静。不久之前,《Pokemon Go》官方在回答网友提问时明确表示,暂时不会解锁中国区,让玩家们失望不已。在小编看来,《Pokemon Go》在中国区上线并不是不可能,只是难度较大而已,服务器、都是问题,但即使不上线仅是解锁也能吸引不少玩家,如果任天堂再犹豫不决,以我们的实力 复刻一款一模一样的游戏也不是没有可能北美票房:“超级碗”助“勇敢者游戏”重回巅峰  朗讯科技此次HSDPA体验之旅分为室内演示和室外路测两部分。在室内环境下,朗讯首先演示了高速数据下载,每秒高达1.2兆比的速度使50兆的文件可以在几分钟内下载完毕。在随后的多媒体点播演示中,测试人员通过15英寸笔记本电脑全屏影片《英雄》,流畅的图像和逼真的色彩可以完全媲美家中的质量。此外,朗讯还采用多台笔记本电脑同时下载文件,凸显出朗讯HSDPA技术在容量方面的优势。

TA的精华主题

TA的得分主题

请问大师要删除本工作薄内对应单元格工作表名称的工作表代码如何修改?

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

无标题.jpg (191.03 KB, 下载次数: 0)

无标题.jpg

工作薄内批量删除对应工作表.rar

21.35 KB, 下载次数: 2

TA的精华主题

TA的得分主题

2
发表于 2019-1-13 09:27 | 只看该作者

TA的精华主题

TA的得分主题

3
发表于 2019-1-13 10:44 | 只看该作者

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-1-13 13:54 | 只看该作者
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-1-23 20:28 , Processed in 0.079932 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 ag娱乐平台手机版沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 ag娱乐平台手机版 返回列表
进球gif-盖坦45度精准制导 穆谢奎头球梅开二度 银隆减员8000人回应称转型自动化工厂 董明珠表信心 美媒用漫画讽刺特朗普贸易战之路:死路一条 安全出口后是十米高空 27岁年轻妈妈推门坠亡(图) 颤抖吧“媚日青年” 等待你们的或将是法律制裁 中国核潜咋突破第一岛链?专家:提升潜射导弹射程 美延长投资者与俄铝解约期限 已致俄金属价格下跌 京媒:恒大正处于新老交替时期 短期没能力全华班 河南安阳通报:警车出警撞翻三轮车 致6人受伤 一方微博自省:再不猛醒悔之晚矣 定会有更多胜利 墨西哥赌场爆炸致1人严重烧伤 约600人进行疏散 新政效应!申花仅首发1U23出状况 碰见状况没得选
美佛州高中枪击事件后 白宫首次宣布这些控枪举措 阿利耶夫赢得阿塞拜疆总统选举 系第四次当选 3D:假道士电商平台热卖灵符 月售千笔全是好评 这场高规格会议 专门谈一个重大政治问题 浙媒:豪赌韦德风险太大 马布里成功是特例 美陆军重拾岸基反舰能力 意图夺岛时牵制中俄舰队 日媒:俄罗斯回归大国地位离不开与中国合作 大乐透险开神形态!0.48%概率下奖号竟惊人相似 西安交大博士生溺亡事件续 校方停止其博导招生资格 日本神户制钢所造假:社长辞职 后继无人选 副战区级空军少将李勇已履新联勤保障部队 束昱辉否认更换主帅和领队:成绩不好责任全在我
商务部:不希望看到中美贸易摩擦升级 进了赌场黑名单的数学家们 已经快把这种赌法玩坏了 [新浪彩票]27日竞彩异常指数:阿雅克肖主场不败 58同城高管解读财报:中国二手车市场潜力巨大 女白领怕春节吃胖节食 1个月减重10斤致胃穿孔 新华社:美国开征钢铝高关税或点燃全球贸易战 一个选号一个跑腿 夫妻买彩三年终中双色球760万 乘客被擅收50元“停车费” 滴滴司机:他关门太猛 詹姆斯想超乔丹唯一路径在这!铁猪队立牌招募 委内瑞拉首都一地铁发生催泪弹爆炸 地铁一度停运 中农办:盘活闲置宅基地不是让城里人下乡买房置地 “流量漫游”时代将终结:运营商迎来提速降费攻坚战 证券时报:乡村振兴功在当下利在长远 ag娱乐平台手机版