VBA用shell命令来压缩文件

zipFile() zipFile()Dim winrarPath$, fullname$, filename$, filePathwinrarPath = “c:\program files\winrar\winrar.exe a -afzip “filePath = Application.GetOpenFilenameIf filePath <> False Thenfullname = StrReverse(Split(StrReverse(filePath), “\”)(0))filename = Split(fullname, “.”)(0)Shell winrarPath & filename & ” ” & fullnameEnd IfEnd Sub注：此代码只能压缩单个文件。压缩多个文件的需要传入一个压缩后的文件名，代码也差不多，不难，大家想想也就出来了。作者：laoyebin(Paladin.lao)博客园出处：http://laoyebin.cnblogs.com/个人网站英文出处：http://mrvsto.com/个人网站中文出处：http://cn.mrvsto.com/

VSTO与Excel学习

世上再美的风景，都不及回家的那段路。