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经典代码实践指南
查看: 179|回复: 3
打印 上一主题 下一主题

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

[复制链接]

ag娱乐平台手机版,  中评社台北2月8日电(记者 李文辉专访)针对钓鱼台风云,台湾台北教育大学教授杨孟哲认为,在东海问题上,日本根本无力跟大陆直接对抗,中国与韩日早已是世仇,韩国瞧不起日本,日本考虑朝鲜因素,巧妙地先冷却竹岛问题,日韩同样拥有美国同盟条约,日本人害怕钓鱼台又遭大陆占领该怎么办?日本没有能力夺回竹岛,即使有,也会让美国难做人,所以日本利用与大陆的冲突,撑大自己,要把“自卫队”变成“国防军”,是企图发展军事工业,最终目的进行军事输出。

  以内部瓦解手段破局日本右翼势力。堡垒最容易从内部攻破,日本内部并不是铁板一块,日本是选举政治,各党派之间党同伐异,同党内部也派系林立,我们大有工作空间。经过中日有识之士多年的努力,日本国内还是有一些对华友好的人士和团体,我们要通过他们多做增信释疑的工作。中日之间关系再坏,也坏不过上世纪五六十年代吧,想想当年周恩来、陈毅、廖承志是怎样做日本人民工作的,他们以民促官,以经促政,工作细致到某个商人、某个运动员,如此细致入微,才能不断给中日关系注入正能量。微博成为央视春晚新媒体社交平台独家合作伙伴  研讨会上,德国、美国、韩国、瑞士、西班牙等已将PLC技术成功商用化的国家或地区的政策研究者和上游厂商带来了他们发展PLC的。希望能探讨出适用于中国PLC产业链条的商用发展模式。

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

TA的精华主题

TA的得分主题

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

本版积分规则

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

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

GMT+8, 2019-3-22 23:03 , Processed in 0.092563 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

快速回复 ag娱乐平台手机版 返回列表
外交部:中方支持并预祝柬埔寨大选顺利举行 中国消费者逐渐放弃买汽车?英媒:追捧新出行方式 韩要求中方引渡中国船长 指控其攻击韩国海警 涨停板早知道:七大利好明日有望发酵 人民日报海外版评中国对美反击:意在敲山震虎 看着中国800万吨牛肉消费缺口 欧盟农场主们按捺不住 印媒传中国将赠斯里兰卡一艘护卫舰 三型号成候选 体育总局:举办2018年全国电竞公开赛 奖金89万 中科大副校长:构建量子保密通信网络保护信息安全 变性举重选手比赛中受重伤 40岁的她或提前退役 川航事件排除“鸟击”可能 或因机务维修操作不当 勇士三巨不如哈登一人! 他们打的是两种篮球
美媒披露2019国防授权法草案:新战术核武器获批准 梅西将制作40小时史诗纪录片!世界杯前发布 美国司法部将起诉加州 寻求废除该州移民法 冰壶世青赛A组激战正酣 中国队打开突破口 F1巴林站正赛成绩表/积分榜:维特尔满分领跑 [新浪彩票]18日竞彩异常指数:奥厄全身而退 日本IR赌场最早2020年开张 安倍经济学想干什么? 中国冰球或直通北京冬奥 冰联:他们面临一大挑战 日本大地震7年灾民仍住避难所 官员抱怨不能和中国比 苏炳添微博晒照脚法不俗:有中超球队找我试训吗 美国现“共享枪支”?台媒:实为讽刺枪支泛滥 四大土炮联袂奉献进球盛宴 国家队锋无力有救了?
生态环境部:8月中上旬京津冀局地可能现重度污染 意大利学者:西方民主出现“结构性衰落” C罗转型成功!已成新一代禁区之王 以进球为生 尤文想挖利物浦大将得竞争上岗!要买他的不只1家 澎湃社论:西湖大学为民办高校打破玻璃天花板 奇牛国际:美国4月PPI不及预期 美指冲高回落 甲醇进入高价区 不宜追涨 美国前防长卡特访台 系“与台湾交往法”生效后首次 墨西哥一客车发生交通事故 造成7人死亡11人受伤 亚太股市开盘大跌 全球股市面临“黑色星期一”? 苹果超三星成上季度全球销量冠军 中国3家厂商进前5 广州拿下关键战升至第9 后3场连战三冠军队 广州南站日均停靠八百趟动车组 已成全国第一大站 ag娱乐平台手机版