vba通过函数调用Winrar压缩软件压缩文件

        Dim site As String
        Dim FolderName As String
        Dim FolderName1 As String
        Dim Rarexe As String
        Dim Source As String
        Dim Target As String
        Dim FileString As String
        Dim Result As Long
       
       

        FolderName = Sheet6.Range("F34").Value
        FolderName1 = Sheet6.Range("F35").Value

        site = ThisWorkbook.Path & "\" & "成果物" & "\" & FolderName---相对路径
       

        Rarexe = "D:\winRAR\WinRAR.exe"
        Source = site & "\*.xls"-----------------------------------------文件夹中的所有.xls文件
        Target = site & ".zip"--------------------------------------------压缩后文件保存路径和文件名
        FileString = Rarexe & " a " & " -ep  " & Target & " " & Source----有“-ep”只压缩指定文件夹，没有“-ep”从跟目录下文件夹到指定的文件夹都压缩
        Result = Shell(FileString, vbHide)
       
        Application.DisplayAlerts = False---------------------------------避免系统弹出确认信息
        
        On Error Resume Next-------------------------------------------屏蔽系统报错窗口弹出
       
        Kill site & "\*.*"-------------------------------------------------删除指定文件夹下所有文件
        Shell "c:\windows\system32\cmd.exe /c rd " & site, vbHide-----删除指定文件夹（只有文件夹中所有文件都删除完毕，才能删除文件夹）

转载于:https://www.cnblogs.com/zigewb/p/3414154.html