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

  • 相关阅读:
    redis 1 简单介绍和存储的数据结构
    mysql 14 覆盖索引+回表
    mysql 13 B+tree中存储数据的格式 页
    java Arrays.asList() 数组转集合
    java 迭代器
    mysql 12 SQL优化策略
    mysql 11 执行计划
    mysql 10 索引面试题分享
    搭建一个开源项目2-打造另一个环境以及解决上期问题
    搭建一个开源项目1-如何搭建Linux虚拟机
  • 原文地址:https://www.cnblogs.com/zigewb/p/3414154.html
Copyright © 2011-2022 走看看