关于VBA用WINRAR压缩的问题

xiao99hui · 发表于 2021-8-25 11:49

本帖最后由 xiao99hui 于 2021-8-25 11:56 编辑

Sub 压缩文件()
Dim a As String
a = "C:\Program Files\WinRAR\WinRAR.exe a c:\1.rar c:\1\1.xls" '将C盘上名为“1”的文件夹压缩为名为“3”的RAR文件
Shell a, vbNormalFocus
End Sub

我打开压缩的文件第一是1文件夹进去才是1.xls文件，但是我想打开的压缩文件第一就是1.xls文件，而不是有一个1文件夹，请问1.xls文件在不换位置的时候，怎么修改代码实现压缩文件第一就是1.xls文件
1629863736(1).jpg

山菊花 · 发表于 2021-8-25 12:23

加上开关/ep：
a = "C:\Program Files\WinRAR\WinRAR.exe a /ep c:\3.rar c:\1\1.xls" '将C盘上名为“1”的文件夹压缩为名为“3”的RAR文件

xiao99hui · 发表于 2021-8-25 12:28

山菊花发表于 2021-8-25 12:23
加上开关/ep：
a = "C:\Program Files\WinRAR\WinRAR.exe a /ep c:\3.rar c:\1\1.xls" '将C盘上名 ...

可以了，太感谢

183776928qqcom · 发表于 2021-8-25 15:07

如何解压呢,谢谢! 此压缩解压功能是否适用于Winzip, 7z, 是不是只要修改.exe 的部分,谢谢!

山菊花 · 发表于 2021-8-25 16:57

183776928qqcom 发表于 2021-8-25 15:07
如何解压呢,谢谢! 此压缩解压功能是否适用于Winzip, 7z, 是不是只要修改.exe 的部分,谢谢!

肯定不是。不同软件，它的命令格式与参数都不会相同。
如果要使用Winzip，可查阅其帮助文件，或百度一下“Winzip 命令”。

183776928qqcom · 发表于 2021-8-26 16:57

山菊花发表于 2021-8-25 16:57
肯定不是。不同软件，它的命令格式与参数都不会相同。
如果要使用Winzip，可查阅其帮助文件，或百度一下 ...

谢谢指点! 请多关照~~~~~~

xiao99hui · 发表于 2021-8-31 18:23

山菊花发表于 2021-8-25 16:57
肯定不是。不同软件，它的命令格式与参数都不会相同。
如果要使用Winzip，可查阅其帮助文件，或百度一下 ...

为什么增加了 Microsoft Forms 2.0 Frame用不了

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

关于VBA用WINRAR压缩的问题

评分

评分