Excel精英培训网

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

[已解决][分享]用VB批量执行RAR压缩(自动加密码)

  [复制链接]
发表于 2009-12-6 10:05 | 显示全部楼层 |阅读模式
本帖最后由 爱疯 于 2011-8-28 23:35 编辑

1. 可自由选取要压缩的文件夹

2. 自动定位RAR应用程度位置,不必手动更改程序

3. 批量加密(密码中暂时不能带空格,由于不知道RAR中保留字怎么表示)

4. 程序本有一个雏形,但是批量加密是看了论坛上一网友要求才做的,有点匆忙.有待优化(我感觉确定RAR应用程序位置只要运行一次便可以了)

 

4koVZEcL.rar (22.61 KB, 下载次数: 201)

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2009-12-6 10:11 | 显示全部楼层
回复

使用道具 举报

发表于 2009-12-6 10:14 | 显示全部楼层
回复

使用道具 举报

发表于 2009-12-6 10:14 | 显示全部楼层

thank you ,,,,
回复

使用道具 举报

发表于 2009-12-6 14:19 | 显示全部楼层    本楼为最佳答案   

代码很规范,学习!

另外,获取注册表键值很容易得到WinRar路径的,可以象免去生成tmp.rar获取的过程

Function GetWinRarPath() As String
On Error Resume Next
GetWinRarPath = CreateObject("Wscript.Shell").RegRead( _
                "HKEY_LOCAL_MACHINE\Software\Microsoft\" & _
                "Windows\CurrentVersion\App Paths\winrar.EXE\Path")
On Error GoTo 0
End Function
Sub test()
Dim sRarPath As String
sRarPath = GetWinRarPath
If Len(sRarPath) Then
   MsgBox sRarPath
   Shell sRarPath & "\winrar.exe", vbNormalFocus
Else
  MsgBox "请确认是否已安装WINRAR.EXE!"
End If
End Sub

回复

使用道具 举报

 楼主| 发表于 2009-12-6 14:25 | 显示全部楼层

QUOTE:
以下是引用HYY514在2009-12-6 14:19:00的发言:

代码很规范,学习!

另外,获取注册表键值很容易得到WinRar路径的,可以象免去生成tmp.rar获取的过程

Function GetWinRarPath() As String
On Error Resume Next
GetWinRarPath = CreateObject("Wscript.Shell").RegRead( _
                "HKEY_LOCAL_MACHINE\Software\Microsoft\" & _
                "Windows\CurrentVersion\App Paths\winrar.EXE\Path")
On Error GoTo 0
End Function
Sub test()
Dim sRarPath As String
sRarPath = GetWinRarPath
If Len(sRarPath) Then
   MsgBox sRarPath
   Shell sRarPath & "\winrar.exe", vbNormalFocus
Else
  MsgBox "请确认是否已安装WINRAR.EXE!"
End If
End Sub

谢谢飞翔版主指点。原来那个确实费事
回复

使用道具 举报

发表于 2009-12-6 14:28 | 显示全部楼层

tou xue[em04][em04][em04]
回复

使用道具 举报

发表于 2009-12-6 14:56 | 显示全部楼层

哎呀,大哥,你有才了。

我终于有救了,太感谢那你了。。对你的感激之情有如滔滔江水绵绵不绝!

回复

使用道具 举报

发表于 2009-12-6 15:20 | 显示全部楼层

看不懂呀

QUOTE:
以下是引用吕?布在2009-12-6 14:25:00的发言:
谢谢飞翔版主指点。原来那个确实费事

看不懂呀

飞翔版主的宏要替换吕布老师的宏吗??

另外,我点了excel里面的按钮,没有东西被压缩,不知道怎么执行???

回复

使用道具 举报

 楼主| 发表于 2009-12-6 15:24 | 显示全部楼层

QUOTE:
以下是引用xdwy81129在2009-12-6 15:20:00的发言:

看不懂呀

飞翔版主的宏要替换吕布老师的宏吗??

另外,我点了excel里面的按钮,没有东西被压缩,不知道怎么执行???

替换一个功能,查找Winrar.EXE的路径。

点按扭进入VBE界面,点运行执行主程序后才会出来一个对话框的

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 16:36 , Processed in 0.355654 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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