运行时错误91，表示（对象变量或未设置块）-解压缩函数VBA

当我使用以下函数通过Microsoft Outlook解压zip文件时，出现运行时错误91，表示未设置对象变量或with block：

功能代码为：

Function UnZipE(PathToUnzipFileTo As Variant, FileNameToUnzip As Variant)

    Dim objOApp As Object
    Dim varFileNameFolder As Variant

    varFileNameFolder = PathToUnzipFileTo

    Set objOApp = CreateObject("Shell.Application")

    objOApp.NameSpace(varFileNameFolder).CopyHere objOApp.NameSpace(FileNameToUnzip).Items, 24

End Function

呼叫代码：

Sub UnZipMyFile()

    Call UnZipE("C:\MiZipFolder", "C:\MiZipFolder\File.zip")

End Sub

谢谢你的帮助 Mike

注意：我已经尝试了Excel中的代码，而不是Outlook，因为我没有

当我最初尝试你的代码时，我得到了相同的错误，因为我没有创建文件夹或zip文件。然而，当我在其中创建文件夹和一个测试zip文件时，一切都按预期进行。可能是您的文件夹名或zip文件名有误吗