Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4006|回复: 2

关于vba 7z的解压

[复制链接]
发表于 2019-7-8 23:12 | 显示全部楼层 |阅读模式
1学分

大佬们,下面代码用winrar.exe解压是没问题的,但是公司电脑只有7z解压缩软件,程序运行后啥反应都没有,路径是没有问题的,不知道为何解压不成功。没有报错。


Sub zz()

    rarexe = "D:\ruanjian\winrar\7z.exe" 'rar程序路径

     filerar = ThisWorkbook.Path & "\文件.zip"

     filepath = ThisWorkbook.Path & "\"

     'filestring = rarexe & " X -ep " & filerar & " " & filepath

     result = Shell(filestring, vbHide)

End Sub


最佳答案

查看完整内容

https://bbs.csdn.net/topics/392457653 百度的,照着改的,没有7z,不知行吗 filestring = rarexe & " x " & filerar & " -o" & filepath & " -aoa"
发表于 2019-7-8 23:12 | 显示全部楼层
https://bbs.csdn.net/topics/392457653

百度的,照着改的,没有7z,不知行吗

filestring = rarexe & " x " & filerar & " -o" & filepath & " -aoa"
回复

使用道具 举报

 楼主| 发表于 2019-7-10 17:51 | 显示全部楼层
爱疯 发表于 2019-7-8 23:12
https://bbs.csdn.net/topics/392457653

百度的,照着改的,没有7z,不知行吗

filestring = rarexe & " x " & filerar & " -o" & filepath,这个对应的是有路径的相当于winrar的-ep1,
filestring = rarexe & " e " & filerar & " -o" & filepath, 这个就相当于-ep了。
十分感谢,至于aoa我再去学学。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 06:13 , Processed in 0.744974 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表