使用VBA自动解压D盘下的指定ZIP文件

harrisondan2000

各位大神好，

我使用了URLDownloadToFile下载了指定URL的ZIP文件到指定文件夹，已知ZIP文件名固定不变（如abc.zip）, abc.zip中包含一个txt文件(文件名会每天更新)，我希望可以使用VBA自动解压（无需手动选择）abc.zip下的txt文件到指定文件夹（如：桌面）,请问该如何操作？查看了论坛里面其他的一些帖子，总觉得不得其法，希望大神们可以不吝赐教~

harrisondan2000

由于是公司电脑，而且zip文件可以直接打开，所以没有预装WINRAR，因此无法使用shell函数调用winrar~

fxl447098457

Sub jieya()
Shell "D:\Program Files\WinRAR\WinRAR.exe  x C:\Users\FanXiaoLei\Desktop\京客隆销售数据.rar C:\Users\FanXiaoLei\Desktop\"
End Sub
上面代码是解压rar文件到桌面下。自己套用会吧。

harrisondan2000

fxl447098457 发表于 2018-8-20 21:34
Sub jieya()
Shell "D:\Program Files\WinRAR\WinRAR.exe  x C:%users\FanXiaoLei\Desktop\京客隆销售数据 ...

谢谢，在其他地方看过您的回复。我之前的补充可能没有发表出来，由于是公司电脑，所以没有装winrar, 而且因为是zip文件可以直接打开，所以有没有可以不使用winrar的方法？

harrisondan2000

fxl447098457 发表于 2018-8-20 21:34
Sub jieya()
Shell "D:\Program Files\WinRAR\WinRAR.exe  x C:%users\FanXiaoLei\Desktop\京客隆销售数据 ...

您好，如果不调用winrar该如何改呢？

fxl447098457

harrisondan2000 发表于 2018-8-20 22:05
您好，如果不调用winrar该如何改呢？

Sub x()
Dim objShell As Object, f
Set objShell = CreateObject("shell.application")
Set f = objShell.Namespace("C:\Users\FanXiaoLei\Desktop\用户名统计.zip") '要解压的文件路径
objShell.Namespace("C:\Users\FanXiaoLei").copyhere (f.items) 'namespace里面是解压后的存放目录
End Sub

harrisondan2000

可用，谢谢！

jiminyanyan

工作量不大的话，手工操作一下就OK。。。