VBA—压缩文件夹成一个ZIP压缩包

应用背景：上篇文章说到如果在一项工作中需要自动生成很多文件，然后再压缩，然后再进行上传等操作。每次都手动压缩会很麻烦，所以可以加一点代码进行自动压缩Zip文件。

遗留问题：如果只能上传ZIP文件，无法使用rar文件，那么该怎么办呢？

1.在VBE内新建一个模块，插入以下代码。

Sub NewZip(F_Path)
'Create empty Zip FileIf Len(Dir(F_Path)) > 0 Then Kill F_PathOpen F_Path For OuF_tput As #1Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)Close #1
End Sub

Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)

这一段貌似是打印机的编码转换，意义不是很清楚；

整个newzip（）函数的功能就是新建一个zip文件，然后再把指定的文件copy到这里来

2.然后再写一个子函数，如下所示，即可完成自动压缩ZIP的功能。

Sub ZiP()
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Please choose a Job-ID-folder"
If .Show = True Then Path_1 = .SelectedItems(1)End With
If Path_1 = "" Then Exit Submark = InStrRev(Path_1, "\")
path_2 = Left(Trim(Path_1), mark)                        'For creating ZIP filestrDate = Format(Now, " yy-mmm-dd h-mm-ss")
FileNameZip = path_2 & "InputZip " & strDate & ".zip"
NewZip (FileNameZip)                                     'Create a new empty Zip
Set oApp = CreateObject("Shell.Application")             'Copy the files to the compressed folder
oApp.Namespace(FileNameZip).CopyHere oApp.Namespace(Path_1)
On Error Resume NextMsgBox "You can upload the ZIPfile " & FileNameZipEnd Sub

VBA—压缩文件夹成一个ZIP压缩包相关推荐

VBA—压缩文件夹成一个rar压缩包
应用背景:如果在一项工作中需要自动生成很多文件,然后再压缩 ,然后再进行上传等操作. 每次都手动压缩会很麻烦,所以可以加一点代码进行自动压缩rar文件. 说明: 1.思路就是调用cmd来做. (win ...
java实现zip压缩文件（同一文件夹下的多个文件夹打成一个zip包）
这2个工具类都推荐使用统一个场景的不通过写法推荐第一种 package com.gblfy.test;import java.io.BufferedInputStream; import java. ...
把文件夹下的所有文件打包成一个zip包
2019独角兽企业重金招聘Python工程师标准>>> 代码如下: 一.打包过程: 所需要jar包:安装上Java环境就可以了 package filetozip; import j ...
【转载】用java压缩文件夹/文件
压缩文件夹代码: import java.io.File; import org.apache.tools.zip.ZipOutputStream; //这个包在ant.jar里,要到官方网下载 im ...
如何在linux上压缩文件夹,如何在Linux中使用命令压缩文件和文件夹
通常情况下,我们都是安装了zip,但验证一下也无妨.你可以运行下面的命令来安装zip sudo apt install zip unzip 现在你知道你的系统支持zip了,你可以继续阅读学习如何在Li ...
linux压缩文件夹命令6,Linux 压缩文件夹6个最常用命令
1. 前言本文主要介绍Linux系统下最常用的压缩与解压缩工具,本文特别针对压缩文件夹和目录,而作出使用指引. 2. 使用zip压缩和解压缩文件夹 Ubuntu系统安装zip套件: oucanron ...
java将文件夹压缩成zip java按照目录结构压缩文件夹
前言用java将文件夹压缩成zip包,像压缩软件一样,按照目录结构压缩(包含当前文件夹) 网上没有找到太合适的,借鉴其它帖子,自己写了一个代码 package xin.yangshuai.myba ...
后端将多个文件压缩成一个zip文件
将本地的E:\srcPath中的所有文件,压缩成一个.zip文件并存放在E:\outPath中: public static void main(String[] args) throws IOExc ...
python 完美压缩文件夹为zip格式
一.压缩 1.备注 (1)os.walk(),会返回一个三元组. path:文件夹本身的地址:dirNames:该文件夹中所有目录的名字列表:fileNames:该文件夹中所有文件文件名列表 (2)z ...

VBA—压缩文件夹成一个ZIP压缩包

VBA—压缩文件夹成一个ZIP压缩包相关推荐

最新文章

热门文章