|
- Dim arr
- Workbooks("1.xlsm").Sheets("放压缩文件").Select
- arr = Workbooks("1.xlsm").Sheets("放压缩文件").Range(Cells(1, 2), Cells(k, 2))
-
- Dim X
- For X = 1 To UBound(arr, 1)
- Dim Rarexe As String
- Dim myRAR As String
- Dim Mypath1 As String
- Dim FileString As String
- Dim Result As Long
- Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径
- myRAR = ThisWorkbook.Path & "" & arr(X, 1) '压缩后的文件名
- Mypath1 = ThisWorkbook.Path & "" ' ' 指定要压缩的文件
- FileString = Rarexe & " x -ep " & myRAR & " " & Mypath1 'rar程序的A命令压缩文件的字符串
- Result = Shell(FileString, vbHide) '执行压缩,这里要显示出来
- Next X
- MsgBox "第1步处理完成,请点击确认,进行下一步!"
复制代码
问题:
1、FileString = Rarexe & " x -ep " & myRAR & " " & Mypath1 这一步就开始解压了,但是好像还没有解压完成,就开始执行下一步了,有没有办法,判断是否解压完成呢?
2、有没有办法一个一个的解压呢,就是完成一个解压后在执行下一个文件的解压?
可以使用wait晚一会,没 见 过 哪 里有判断解压完的。
|
|