如何在EXCEL的模块中用VBA代码将文件压缩为ZIP文件。

Jameszzh 2004-12-15 04:24:55
我用EXCEL生成很多文件,又要将这些文件用邮件发给很多人,并且文件需要压缩。请问能不能在XECEL模块中用VBA代码将文件压缩再发送。

多谢!
...全文
527 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
谢谢,懂了。
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
谢谢,懂了。
aohan 2004-12-16
  • 打赏
  • 举报
回复
'用winrar压缩文件
Option Explicit
Dim mystr As String
Dim Source As String ' 源文件
Dim Target As String ' 目标文件
Dim retval
Private Sub Command1_Click()
mystr = "C:\Program Files\WinRAR\winrar.exe" 'winrar.exe文件路径
Source = App.Path & "\111.jpg"
Target = App.Path & "\111.rar" '可以是war也可以是cab....
mystr = mystr & " a " & Target & " " & Source '命令字符串
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command2_Click()
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = App.Path & "\111.rar"
Target = App.Path & "\new" '存放压缩文件的位置
mystr = mystr & "X" & Source & " " & Target
Text1.Text = mystr
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command3_Click()
End
End Sub
jam021 2004-12-16
  • 打赏
  • 举报
回复
用shell调用外部的程序,比如winzip,winrar之类的,他们都提供命令行的压缩方式
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
a
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
a
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
还是不明白怎么样结帖。
betagain 2004-12-16
  • 打赏
  • 举报
回复
winzip,winrar之类的,他们都提供命令行的压缩方式
caimps 2004-12-16
  • 打赏
  • 举报
回复
点 管理
Jameszzh 2004-12-16
  • 打赏
  • 举报
回复
请问如果结帖??多谢
goregrypeck 2004-12-15
  • 打赏
  • 举报
回复
前面都可以,压缩没用过,学习

2,461

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧