HI,大家好,我是星光。
今天给大家简单聊一下如何使用Excel VBA 操作DOS,聊几个比较典型的案例,比如关机、关指定程序、获取多层文件夹下文件名等。
先来说关机吧,毕竟做人得对得起标题不是?
Sub QsbC() '关机
Shell 'cmd /c shutdown -s'
End Sub
第2行代码使用Shell函数执行DOS命令。
shutdown -s 是关机。
shutdown -r 是重启。
shutdown -h 是休眠。
shutdown -s -t 是倒计时关机。
……
然后再来说下如何关闭指定程序,比如强制关闭Excel。
正常来说,用以下语句也可以关闭Excel,但有时关的并不彻底,Excel程序依然存在于进程中。
Sub quit() Application.quitEnd Sub
此时不妨试试以下语句
代码看不全可以左右拖动...▼
Sub CloseExcel() '强制关闭excel进程
Shell 'cmd /c Taskkill /im winexcel.exe /f /t'
End Sub
又或者关闭Word
Sub CloseWD() '强制关闭word进程 Shell 'cmd /c Taskkill /im winword.exe /f /t'End Sub
……
最后再给大家分享一下使用DOS语句获取多层文件夹下文件名。之前也给大家分享过【FSO+递归】的方法,不过代码比较繁琐,效率也不是很高。相比之下,DOS方法就简洁太多了。
代码看不全可以左右拖动...▼
Sub getLst()
Dim temp, r, p$
p = 'E:\公众号运营' '指定路径
temp = CreateObject('Wscript.Shell').exec('cmd /c dir /a-d /b /s ' & Chr(34) & p & Chr(34)).StdOut.ReadAll
r = Split(temp, vbCrLf) '拆分文件名
[a:a] = ''
[a2].Resize(UBound(r) + 1) = Application.Transpose(r)
End Sub
第4行代码使用CreateObject('Wscript.Shell')类库的Exec方法执行DOS语句。这个类库相比Shell函数的一大优势是:它不但可以执行DOS命令,还可以返回DOS命令的执行进度和结果。
第5行代码将变量temp按换行符拆分成一维数组,这里可以搭配Filter函数作进一步筛选,比如,只获取名称中包含'看见星光'的文件,可以将代码修改为:
r = Filter(Split(temp, vbCrLf), '看见星光')
第6和第7行代码将结果存入当前工作表的A列。
联系客服