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-----删除指定文件夹(只有文件夹中所有文件都删除完毕,才能删除文件夹)

  • 相关阅读:
    08-jQuery的位置信息
    06-jQuery的文档操作(重点)
    05-使用jQuery操作input的value值
    17-案例
    04-jQuery的属性操作
    03-jQuery动画效果
    02-jQuery的选择器
    01-jQuery的介绍
    16-client、offset、scroll系列
    15-BOM
  • 原文地址:https://www.cnblogs.com/zigewb/p/3414154.html
Copyright © 2011-2022 走看看