Excel VBA自动按照指定时间删除指定工作薄,或许在你离职时候可以用的到啦

论坛 期权论坛 期权     
Excel教案   2019-7-21 06:18   4099   0

前言:
在有些时候,你在你的公司或者部门是一位非常熟悉Excel的能手,在你长期的积累和升级改造,将你的Excel的工作通过VBA全部实施了自动化进程,也即是你实现了办公自动化。在这个时候,你或多或少有时间去喝茶,打王者,吃鸡游戏等等!那么在你身边也许就会存在这样的一群人,他们在辛勤劳作,而你却在喝茶,心里就不爽了。于是乎矛盾就在这个时候产生啦!被人投诉到你的上级主管那里,也许你就会面临离职!
那么在你离职的时候的工作交接过程,可以是把你所有的自动化表格全部交接出去了,否则你不可能非常快的离职!那么在这个时候,有没有一种办法,能够在你走后的若干天以后,自动完成删除这个自动化的表格呢?让你再也找不到的呢?

当然答案是肯定的啦!方法千万条,我只选其中的一套,就是本文要介绍的VBA方法,我们一起来看看吧!
我们在我们需要删除代码的工作薄的文件中,找到我们VBE窗口的ThisWorkbook文件,将如下代码放置在窗口内,保存退出就可以了。



需要说明的2点是,此段代码利用了工作薄打开事件,就是当我打开工作薄后,如果时间大于我们制定的时间,就会执行我们Kill 当前的工作薄,然后进行退出。
请不要随意设置时间,否则文件删除了,就再也找不回来啦!慎用,切记!!!
或者有的同学会说,VBA能删除工作薄,那么他是否可以删除指定电脑的某一个盘的所有文件呢?答案也是可以的,我们一起简单来看看吧!原理和上面的基本一致!
代码如下:

这句代码就是核心代码,执行我们的删除动作,当然你可以设置时间来自动执行这个Kill fld.Path & "\*.*",如下我们指定时间来删除文件!加上了一个IF判断语句,就可以我们指定的时间执行这个程序,自动清空我们指定的电脑盘。


虽然对我们大部分用户来说,这2个方法请切记不要随便使用,一旦执行了,就再也找不到了,回收站里面也会没有的!
以上就是我们今天和大家说用代码在Excel删除指定文件或者指定电脑盘的简单操作方法方法,如果有不明白的或者不懂的可以在下方留言,我们会一一解答的。

我是Excel教案,关注我持续分享更多的Excel技巧!
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:81
帖子:15
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP