VBA将文件复制到.zip dificulty

时间:2016-08-17 13:46:26

标签: excel vba zip

我正在尝试将大约20-30个excel文件打包成一个zip,以便在流程完成后通过电子邮件发送出去。我能够创建.zip文件,并将文件从一个目录复制到另一个目录。我无法做的是将文件复制到.zip文件中。这是我的代码:

zipFile = "C:\testZip.zip"
zipPath = "C:\testZipFolder\"
NewZip (zipFile)
Set fs = CreateObject("scripting.filesystemobject")
file = Dir(zipPath)
Set zipFolder = fs.getfolder(zipPath)
While (file <> "")
  If InStr(file, ".xlsx") > 0 Then
            I = I + 1
            Set f = fs.getfile("C:\" & file)
            f.Copy (zipPath)
            Debug.Print Err.Number
            Debug.Print Err.Description

NewZip是一种创建.zip文件的方法。我可以打开.zip并手动将文件移动到它。当我运行上面的代码时,我得到错误438:对象不支持此属性或方法。如果我将目标路径更改为其他文件夹,它将复制该文件。任何帮助将不胜感激。

0 个答案:

没有答案