隐藏解压窗口问题！！！！

suxiong

1. 
   
2. Dim x
   
3.   For x = 1 To UBound(arr, 1)
   
4.   Dim Rarexe As String
   
5.   Dim myRAR As String
   
6.   Dim Mypath1 As String
   
7.   Dim FileString As String
   
8.   Dim Result As Long
   
9.     Rarexe = "C:\program files\winrar\winrar.exe"
   
10.     myRAR = ThisWorkbook.Path & "" & arr(x, 1)
    
11.     Mypath1 = ThisWorkbook.Path & "" & arr(x, 1)   
    
12.     FileString = Rarexe & " x -ep " & myRAR & " " & Mypath   
    
13.    Result = Shell(FileString, vbHide)  
    
14.    Next x

复制代码

Result = Shell(FileString, vbHide)  

这句的“VBHIDE”应该可以隐藏解压窗口啊，但我的还是会显示出来，为什么呢？怎么不让它显示？

l00l00

应该是这一句的参数，你要改变一下哦：
FileString = Rarexe & " x -ep " & myRAR & " " & Mypath   

suxiong

l00l00 发表于 2012-5-23 20:02
应该是这一句的参数，你要改变一下哦：
FileString = Rarexe & " x -ep " & myRAR & " " & Mypath

1.   Dim x
   
2.   For x = 1 To UBound(arr, 1)
   
3.   Dim Rarexe As String
   
4.   Dim myRAR As String
   
5.   Dim Mypath1 As String
   
6.   Dim FileString As String
   
7.   Dim Result As Long
   
8.     Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径
   
9.     myRAR = ThisWorkbook.Path & "" & arr(x, 1) '压缩后的文件名
   
10.     Mypath1 = ThisWorkbook.Path & "" '  ' 指定要压缩的文件
    
11.     FileString = Rarexe & " x -ep " & myRAR & " " & Mypath1 'rar程序的A命令压缩文件的字符串
    
12.     Stop
    
13.     Result = Shell(FileString, vbHide) '执行压缩,这里要显示出来
    
14.     Next x
    
15. Application.ScreenUpdating = True

复制代码

没有问题啊，可以解压，只是会显示解压窗口而以。（注释，请别看）!!应该怎么写呢？

l00l00

或者是因为 vbhide 只隐藏窗口，而rar 是应用程序，不是窗口。