Office 2007不能调用Shell函数等3个问题[已解决]

loquat

1.软件版本Office2007，无法使用Shell函数，翻遍了百度没找到原因。

2.使用Shell对象遍历所有文件(包含所有子目录)

1. Sub 遍历Shell()
   
2. Dim objShell As Object, cmdExec As Object, t, command$
   
3. t = Timer
   
4. command = Environ$("comspec") & " /c dir ""C:"" /s /b"
   
5. Set objShell = CreateObject("WScript.Shell")
   
6. Set cmdExec = objShell.Exec(command)
   
7. 'Debug.Print cmdExec.StdOut.ReadAll
   
8. Debug.Print Timer - t
   
9. End Sub

复制代码

使用cmd遍历目录效率奇高，比纯VB效果要好很多。
问题是：使用shell对象时，怎么隐藏cmd运行那个黑窗口。试了好多种办法。
例如这种就是不可以的。

1. Set cmdExec = objShell.Exec(command, 0)

复制代码

3.同上，怎么将结果导出到数组或者字典里面。
   遍历是为了能批量处理，所以不能导出到变量里面的话，就没有意义了。
   也许有两种方法：1.直接在VBA里将cmd命令的结果赋值给数组或者字典，求教。
                               2.使用cmd命令的将结果输出的txt文件，然后从txt文件读取到数组或者字典。求教。

1.这一问我觉得是2007的问题，已成冤案
2.Exec和Run各有好处
3.具体代码见本帖10#

liucqa

Sub s()
Shell "explorer.exe E:", vbNormalFocus
End Sub

2010测试通过

liucqa

http://bbs.bathome.net/viewthread.php?tid=5695
VBS中run和exec的区别

liucqa

像你这种需求，我觉得还是API比较好
http://www.yesky.com/52/185052.shtml

http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=902590&pid=6186480

loquat

liucqa 发表于 2013-10-16 13:48
Sub s()
Shell "explorer.exe E:", vbNormalFocus
End Sub

这个我仍然不能用，不会是2007的问题吧

loquat

liucqa 发表于 2013-10-16 14:25
http://bbs.bathome.net/viewthread.php?tid=5695
VBS中run和exec的区别

这篇文章很到位，谢谢帮忙找到。

loquat

liucqa 发表于 2013-10-16 14:29
像你这种需求，我觉得还是API比较好
http://www.yesky.com/52/185052.shtml

主要是用API容易遗漏文件，递归效率又相对低一些。
DIR函数配合字典遗漏也比较严重。
所以想从文件入手，在你提供的链接里找到了不少遍历算法。直接尝试搜了好久没搜到这些好算法。

liucqa

loquat 发表于 2013-10-16 21:28
主要是用API容易遗漏文件，递归效率又相对低一些。
DIR函数配合字典遗漏也比较严重。
所以想从文件入手 ...

http://bbs.csdn.net/topics/390461605?page=1

看62楼，我觉得这个方法可行，你改成run方法，然后读文件，这样看不到窗口，也不漏文件。

1. shell "dir /b /a-d c:\*.* >d:\allfile.txt",vbHide
   
2. '读文件d:\allfile.txt的内容即C:\下所有文件的名字
   
3. shell "dir /b /s /a-d c:\*.* >d:\allfiles.txt",vbHide
   
4. '读文件d:\allfiles.txt的内容即C:\下所有文件的名字(包含子目录)
   
5. shell "dir /b /ad  c:\*.* >d:\alldirs.txt",vbHide
   
6. '读文件d:\alldirs.txt的内容即C:\下所有子目录的名字
   
7. 
   
8. 请记住，能用shell命令获取文件、文件夹信息或者操作文件、文件夹最好用shell命令获取或者操作，而不要用各种API获取或者操作，因为当遇到非法文件夹名或非法文件名或非法文件长度、非法文件日期、压缩文件、链接文件、稀疏文件……等各种意料之外的情况时，API会处理的不全面或陷入死循环，而shell命令不会。

复制代码

loquat

liucqa 发表于 2013-10-16 21:46
http://bbs.csdn.net/topics/390461605?page=1

看62楼，我觉得这个方法可行，你改成run方法，然后读文 ...

是的，这个网址之前已经看过了。发这个帖子也是和为了知道怎么隐藏窗口和怎么从文件读取列表到数组里面。
看了你给的那个网址，然后跟了一下所有回帖，等我消化一下，估计就可以继续研究别的遍历思路了。

loquat

特点就是效率高，以下是两种方法。
方法一：Exec方法，有一个黑窗口一闪而过
方法二：Run方法，有临时文件生成
具体cmd中dir的使用方法请在cmd中使用dir/?来查看。

1. dir "C:\Program Files" /s /a:-d /b > C:\1.txt  '遍历所有文件
   
2. dir "C:\Program Files" /s /a:d /b > C:\1.txt   '遍历所有目录
   
3. dir "C:\Program Files" /s /b > C:\1.txt          '遍历所有目录和文件
   
4. dir "C:\Program Files\*.doc" /s /a:-d /b > C:\1.txt  '遍历所有word文件
   
5.   

复制代码

1. Sub 方法一()
   
2. Dim arr, t, folder$, brr
   
3. folder = """" & "C:\Program Files" & """"
   
4. t = Timer
   
5. With CreateObject("WScript.Shell")
   
6.        brr = .Exec(Environ$("comspec") & " /c dir " & folder & " /s /a:-d /b").StdOut.ReadAll
   
7. End With
   
8. arr = Split(brr, vbCrLf)
   
9. Debug.Print UBound(arr) & "个文件" & vbCrLf & Timer - t & "秒" & vbCrLf & arr(100)
   
10. End Sub

复制代码

'---------------------------------------------------------------------------------------------

1. Sub 方法二()
   
2. Dim arr, t, folder$
   
3. t = Timer
   
4. folder = """" & "C:\Program Files" & """"
   
5. With CreateObject("WScript.Shell")
   
6.        .Run Environ$("comspec") & " /c dir " & folder & " /s /a:-d /b > C:\temp.txt", 0, True
   
7. End With
   
8. Open "C:\temp.txt" For Input As #1
   
9. arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   
10. Close #1
    
11. Debug.Print UBound(arr) & "个文件" & vbCrLf & Timer - t & "秒" & vbCrLf & arr(100)
    
12. End Sub

复制代码

'---------------------------------------------------------------------------------------------


补充内容 (2014-4-5 17:16):
shell调用在2007里是这样的call shell(filepath,windowstyle)

补充内容 (2014-12-21 14:19):
Shell函数默认是异步执行，不能实现同步。
使用Shell对象，第3个参数就是控制同步的参数。True-同步，False-异步