½Ð°Ý¦³¿ìªk¥ÎvbaŪ¨úrarÀɶÜ??
- ©«¤l
- 20
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 61
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW®ç¶é
- µù¥U®É¶¡
- 2010-9-1
- ³Ì«áµn¿ý
- 2019-4-26
|
½Ð°Ý¦³¿ìªk¥ÎvbaŪ¨úrarÀɶÜ??
¦pÃD¡A
§Ú¤w¸gª¦¤å³\¤[³£¨S¦³¬ÛÃöªº¤å³¹¡A
¥u¦³¤@½g¤ñ¸û¦³Ãö¡A¦ý¤£¯à¥Î¡A§Ú§ä¨ìªºµ{¦¡½X¦p¤U¡G
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub GetFileList()
Dim Path As String
On Error Resume Next
Path = Application.InputBox("请输¤J¸ô径")
If Path = "" Then Exit Sub
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Dir(ThisWorkbook.Path & "\RarFileList.txt") <> "" Then Kill ThisWorkbook.Path & "\RarFileList.txt"
Shell "cmd /c " & ThisWorkbook.Path & "\rar vb " & Path & "*.rar >>" & ThisWorkbook.Path & "\RarFileList.txt", vbHide
Do While Dir(ThisWorkbook.Path & "\RarFileList.txt") = ""
DoEvents
Loop
Sleep 600
If Dir(ThisWorkbook.Path & "\RarFileList.txt") <> "" Then Workbooks.OpenText Filename:=ThisWorkbook.Path & "\RarFileList.txt", DataType:=xlDelimited
End Sub |
|
|
|
|
|
|