VBA是否可以操作压缩文件中的PDF文件

小小晶enjoy · 发表于 2024-1-25 16:26

我想请教一下各位大神，我下载的PDF都是压缩包的格式，我是否可以用VBA将压缩包中的PDF名字修改为压缩包的名字？

比如如下：我有3个压缩包，每个压缩包里面有2个PDF,我想将压缩包中采购订单那份PDF按压缩包的名字A0001,A0002命名并复制出来，VBA可以做到么？

谢谢~

VBA对PDF和压缩包的操作.zip (97.28 KB, 下载次数: 9)
企业微信截图_17061711531568.png

cidanji · 发表于 2024-1-25 17:39

VBA对PDF和压缩包的操作.rar (107.21 KB, 下载次数: 24)

ykcbf1100 · 发表于 2024-1-25 17:45

cidanji 发表于 2024-1-25 17:39

我这里运行好象不成功呢，没提取到PDF文件。
是我少安装了什么软件吗？

cidanji · 发表于 2024-1-25 17:51

ykcbf1100 发表于 2024-1-25 17:45
我这里运行好象不成功呢，没提取到PDF文件。
是我少安装了什么软件吗？

不知道呢，我的可以复制，有没有报什么错
不需要安装什么，用的是Windows自带的压缩处理方法

ykcbf1100 · 发表于 2024-1-25 17:51

cidanji 发表于 2024-1-25 17:51
不知道呢，我的可以复制，有没有报什么错
不需要安装什么，用的是Windows自带的压缩处理方法

没报错，但文件没变化。

wanghan519 · 发表于 2024-1-25 17:55

本帖最后由 wanghan519 于 2024-1-26 05:29 编辑

试了半天zip似乎不支持直接重命名内部文件，7z等格式可以，那就得解压后重命名后再压缩

。。。昨天发出来都是乱码。。。

cidanji · 发表于 2024-1-25 17:56

复制过程会有点慢，图上是WPS，office更慢些

perfect131 · 发表于 2024-1-25 20:46

cidanji 发表于 2024-1-25 17:56
复制过程会有点慢，图上是WPS，office更慢些

office 更快

解压重名重新压缩一键完成

用Namespace

高度保密 · 发表于 2024-1-25 22:24

cidanji 发表于 2024-1-25 17:39

文件是另存了，能改个直接解压的吗？谢谢！

cidanji · 发表于 2024-1-26 08:39

高度保密发表于 2024-1-25 22:24
文件是另存了，能改个直接解压的吗？谢谢！

程序里 oApp.Namespace(pth & "").CopyHere itm 这句是循环判断文件解压的意思
去掉循环直接 oApp.Namespace(pth & "").CopyHere oApp.Namespace(f.Path).items 就是全部解压

		自动登录	找回密码
密码			免费注册

[求助] VBA是否可以操作压缩文件中的PDF文件