zoukankan      html  css  js  c++  java
  • 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:winRARWinRAR.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:windowssystem32cmd.exe /c rd " & site, vbHide-----删除指定文件夹(只有文件夹中所有文件都删除完毕,才能删除文件夹)

  • 相关阅读:
    树上问题
    Windows Server 2012 安装dll到GAC
    一妹子开车发现车不动,男友听完她电话崩溃了
    各浏览器对 window.open() 的窗口特征 sFeatures 参数支持程度存在差异
    FullCalendar日历插件说明文档
    Request url 各种属性值
    Your Job Is Not to Write Code
    Nice way for strip_tags a like
    sqlserver 三种恢复模式
    ASP.NET路由
  • 原文地址:https://www.cnblogs.com/zigewb/p/3414154.html
Copyright © 2011-2022 走看看