ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 221|回复: 3
打印 上一主题 下一主题

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

[复制链接]

ag娱乐平台手机版,“李校长给俺洗脚、洗头、剪指甲,还给俺买衣服,减免学费,她就是俺的亲妈。”家住滑县小铺乡董村的华鑫同学自幼失去父母,一直跟着年迈的奶奶艰难度日,入校的6年里,李淑鸽无微不至地照顾让小华鑫感受到了母爱般的温暖。

另一方面,OPTA在曼联对阵西汉姆比赛结束之后也统计了一项数据,那就数英超20支球队中创造出来的绝佳机会。曼联在本赛季英超的比赛中创造出来了20次的绝对进球机会排在英超第3,但是他们将最佳进球机会转换为进球的概率只有可怜的30.77%,排在全英超倒数第一。特朗普提高对中俄敌对指数 美将与中俄全面对抗?据悉,民政总署在一批从内地进口乌骨鸡的样本中检出H7亚型禽流感病毒后,立即封锁所在批发活禽市场,并将对现存于批发市场的约6300只鸡、500只乌骨鸡和3000只白鸽采取扑杀处理。根据澳门特区《禽流感突发应变方案》,检出样本的相关供应商将暂停供应,进行病毒来源调查,直到澳门与内地有关部门双方确认可以供应为止。

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-1-12 23:37 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问大师要删除本工作薄内对应单元格工作表名称的工作表代码如何修改?

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 | 只看该作者

ag娱乐平台手机版TA的精华主题

TA的得分主题

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

本版积分规则

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-6-26 13:09 , Processed in 0.081435 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

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

快速回复 ag娱乐平台手机版 返回列表
赛季第12球!扎球王回来了!人和防线被戏耍|gif IBM高管:区块链将为制造商和零售商创造巨大价值 特斯拉员工:Model 3良品率不高 需大量重修工作 西方资本撤出 这个小国惊呼:感谢中国雪中送炭! 面馆不给乞讨老人用碗被指“瞧不起人” 店主回应 浙江杭州一路口发生车祸 轿车撞倒十余人(图) 李俊慧:兴许进决赛会脱衣服 过一轮算完成任务 黑龙江省委书记谈营商环境整治:毒瘤就得动刀子 土超半决赛首战费内巴切遭逆袭 1-3伊萨奇巴希 最没悬念?共享殊荣? 赔率:登哥携手他力斩群雄 克罗地亚24人名单:魔笛领衔 利物浦铁卫在列 辽媒:辽足没有骄傲的资本 要忘记之前的三连胜
牛汇:15家国际顶级机构 最新市场点评一览 中国将建156颗卫星天基互联网 WiFi信号覆盖全球 扎克伯格承认脸书隐私保护措施“做得不到位” 大韩航空惹众怒 员工拟二次烛光集会抗议仗势欺人 生态环境部开始对1586个水源地环境问题进行督查 俄版战斧要和轻护打包卖中国 中方专家:俄一厢情愿 江苏扬州官员父子被举报有多套豪宅 纪委:正办理 卡帅卸下包袱被评愈发像里皮 恒大需吸取教训防一位置 海南为何全域限购:为实现这一目标不能重蹈覆辙 洪秀柱批蔡英文:没点亮台湾却点燃斗争之火 内蒙古乌海市委常委统战部长陈文库被查(图/简历) 德总统接受眼部手术住院 38年前曾进行眼角膜移植
科技蓝筹大洗牌——卖出这3支 买入这3支 哪些90后代表亮相全国两会?含游泳世界冠军叶诗文 直布罗陀赛田鹏飞张永会师 中国5位选手进16强 少林方丈到运载火箭技术研究院调研 原来是为了它 萨拉赫再逆天也没撼动梅西C罗!想成超巨他还差啥 清洁工买彩两周中7亿巨奖破纪录:先去环游美国 [新浪彩票]足彩18030期盈亏指数:沙尔克重点防平 李霄鹏赛后向佩工45度鞠躬 攒人品他太像贾秀全 特朗普敦促欧盟削减关税 欧盟誓言抵制“欺凌” 雄安新区:培训群众十万人次 实现十万人就业 美国海军军情速报:第二艘科幻驱逐舰通过验收海试 亚汇中国:市场经过非农洗礼 鲍威尔时代来临 俄莫斯科遭大雪冻雨侵袭 致200多个航班延误 ag娱乐平台手机版