Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3542|回复: 4

vba调用WScript.Shell运行CMD的疑问,请求大神指点,万分感谢

[复制链接]
发表于 2021-4-22 16:03 | 显示全部楼层 |阅读模式
以下代码用来查找文件(word)在硬盘中(Path)的完整路径返回给b,虽然代码能够获得想要的结果,但是每次运行都有CMD的黑窗口一闪而过,想请教大师如何隐藏或最小化CMD运行窗口,请求大神指点一二,万分感谢。。
Sub 获取文件路径()
Dim older$, b, word$, Path$
Dim wsc As Object
Path = "D:\"
word = "001.jpg"
Set wsc = CreateObject("wscript.shell")
older = "cmd /c Dir " & Path & word & " /a /b /s"
b = wsc.exec(older).stdout.readall
Debug.Print b
End Sub
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2021-4-22 19:51 | 显示全部楼层
vba 遍历文件夹 , 也能实现 , 但代码复杂许多.
回复

使用道具 举报

发表于 2021-4-22 20:23 | 显示全部楼层
Sub demo()
   Path = "D:\"
   word = "001.jpg"
   Set wsc = CreateObject("wscript.shell")
   Set osf = CreateObject("Scripting.FileSystemObject")
   tmp = wsc.ExpandEnvironmentStrings("%temp%") & "\" & osf.GetTempName
   cmd = "cmd.exe /c Dir " & Path & word & " /a /b /s > " & tmp
   wsc.Run (cmd), 0, True
   result = osf.OpenTextFile(tmp).ReadAll
   osf.DeleteFile tmp
   Debug.Print result
End Sub

祝順心,南無阿彌陀佛!

demo.rar

11.35 KB, 下载次数: 2

评分

参与人数 1学分 +2 收起 理由
xlqlin + 2 非常感谢热心帮助

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2021-4-22 20:53 | 显示全部楼层
cutecpu 发表于 2021-4-22 20:23
Sub demo()
   Path = "D:\"
   word = "001.jpg"

谢谢,这是把结果存到一个临时文件里,取出结果后再删除临时文件,谢谢 这也是一种办法。。

评分

参与人数 1学分 +2 收起 理由
cutecpu + 2 不客氣。祝順心,南無阿彌陀佛!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2021-4-22 20:54 | 显示全部楼层
砂海 发表于 2021-4-22 19:51
vba 遍历文件夹 , 也能实现 , 但代码复杂许多.

是的,就是想用简单的代码遍历文件夹才用的wscript。shell
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 02:43 , Processed in 0.732892 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表