VBA copy to zip file возвращает ошибку

Question

Я написал сценарий для добавления всех файлов в папку в zip-файл с использованием кода, адаптированного с сайта www.rondebruin.nl, но я продолжаю получать ошибку «Объектная переменная или с блочной переменной не задано'.

Function ZipDir(FolderName As String, ZipName As String) As String 
'Copied from: http://www.rondebruin.nl/win/s7/win001.htm 
Dim FileNameZip ', FolderName 
Dim strDate As String, DefPath As String 
Dim oApp As Object 

'Create empty Zip File 
NewZip ZipName 

Set oApp = CreateObject("Shell.Application") 
'Copy the files to the compressed folder 
oApp.Namespace(ZipName).CopyHere oApp.Namespace(FolderName).items '<<ERROR HERE 

'Keep script waiting until Compressing is done 
On Error Resume Next 
Do Until oApp.Namespace(ZipName).items.Count = _ 
    oApp.Namespace(FolderName).items.Count 
    Application.Wait (Now + TimeValue("0:00:01")) 
Loop 
On Error GoTo 0 

MsgBox "You find the zipfile here: " & ZipName 
End Function 

Ошибки кода на oApp.Namespace(ZipName).CopyHere oApp.Namespace(FolderName).items линии. Однако, если я явно объявляю исходный и целевой файлы следующим образом: oApp.Namespace("C:\MyZip.Zip").CopyHere "C:\Temp\MyFile.pdf"

Если я меняю имя zip или имя файла сверху, то это ошибки.

Любые идеи?

Answer 1

При использовании объекта Shell.Application вы должны передать все пути и имена файлов как Варианты, а не строки.

Если вы посмотрите на код Рона, вы увидите, что он это делает.

Как он говорит на этой странице:

Примечание: Не Дим, например FileNameZip как строка в коде примеров. Это должен быть вариант, если вы измените это, код не будет работать .