vba 多个工作簿压缩

骑驴找马2012

   如何将同一文件夹下所有工作簿压缩到当前文件夹？
   求高手指点！TKS!

骑驴找马2012

Sub test()
Dim Rarexe As String
Dim Source As String
Dim Target As String
Dim FileString As String
Dim Result As Long

Rarexe = "C:\program files\winrar\winrar"
Source = "C:\Users\asus\Desktop\想达到这种效果\" & "工作簿1.xlsx"
Target = "C:\Users\asus\Desktop\想达到这种效果\" & "工作簿" & Format(VBA.Date, "yyyymmdd") & ".rar"

FileString = Rarexe & " a " & Target & " " & Source
Result = Shell(FileString, vbHide)
End Sub


这个代码只能压缩一个工作簿  求批量压缩？  还有这个代码得到的压缩文件解压打开后不是工作簿1、工作簿2、工作簿3？还要一层一层往下单击。。。

骑驴找马2012

      求助

骑驴找马2012

求助  如何同时选中多张工作簿然后压缩打包！！！
      十分感谢！vba

初春咋暖

支持 一下  求同解   高手出招