VBA压缩与解压缩源码|萝卜系统下载站

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

VBA本身没有压缩和解压缩的函数，但可调用zip.dll ?unzip.dll 或 winrar.exe 命令行方式来实现对文件的压缩与解压缩

1、批量解压缩（一次性解压指定文件夹中所有rar文件）
?

Sub UnRarFile()   '解压缩程序  Dim Rarexe As String  Dim RAR As String  Dim Myadd As String  Dim FileString As String  Dim Result As Long    Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径    myRAR = "D:\工资表\*.rar"  '需要解压缩的rar文件,用通配符可以解压所有文件    Myadd = "D:\工资表"     ' 解压后的文件存放路径    FileString = Rarexe & " X " & myRAR & " " & Myadd 'rar程序的X命令，用来解压缩文件的字符串    Result = Shell(FileString, vbHide) '执行解压缩End Sub

运行效果：把D盘的工资表文件夹中的所有压缩文件一次性解压。

2、批量压缩文件（一次性压缩指定文件夹中所有xls文件）
? ?

Sub RarFile()   '压缩程序  Dim Rarexe As String  Dim myRAR As String  Dim Myfile As String  Dim FileString As String  Dim Result As Long    Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路径    myRAR = "D:\工资表\工资表.rar"  '压缩后的文件名    Myfile = "D:\工资表\*.xls"    ' 指定要压缩的文件    FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串    Result = Shell(FileString, vbHide) '执行压缩End Sub

___________________________________________________________________________
?

Set oba = CreateObject("Wscript.shell")'[压缩]oba.Run "winrar a c:\test.rar c:\*.txt",0,True'[解压缩]oba.Run "winrar x -o+ C:\test.rar *.txt C:\test",0,TrueSet oba = Nothing

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

温馨提示：喜欢本站的话，请收藏一下本站！

当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

VBA压缩与解压缩源码

本类教程下载

系统下载排行