今天给大家简单聊一下如何使用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.quit
End 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列。
技术交流,软件开发,欢迎加微信xwlink1996