excel - VBA 有问题。运行时错误 '91' 出现在我身上。任何想法？

Question

我正在尝试使用 VBA 解压缩文件，但出现运行时错误 91。这是我的代码:

Dim Destino As String
Dim Origen As String
Dim oAplica As Object

Destino = "C:\Users\Oscar Mayorga\Downloads"
Origen = "C:\Users\Oscar Mayorga\Downloads\PD20210822.zip"
Set oAplica = CreateObject("Shell.Application")
oAplica.Namespace(Destino).CopyHere oAplica.Namespace(Origen).Items

Answer 1

更改Destino = "C:\Users\Oscar Mayorga\Downloads至Destino = "C:\Users\Oscar Mayorga\Downloads\" .还将声明更改为 String至Variant这是你正在尝试的吗？

Dim Destino As Variant
Dim Origen As Variant
Dim oAplica As Object

Destino = "C:\Users\Oscar Mayorga\Downloads\"
Origen = "C:\Users\Oscar Mayorga\Downloads\PD20210822.zip"
Set oAplica = CreateObject("Shell.Application")
oAplica.Namespace(Destino).CopyHere oAplica.Namespace(Origen).Items

解释 : 您正在使用 后期装订 .要理解这一点，请使用 早期装订如下所示。设置对 Microsoft Shell Controls and Automation 的引用来自 Tools | References

Option Explicit

Sub Sample()
    Dim Destino As Variant
    Dim Origen As Variant
    Dim oAplica As Shell32.Shell

    Destino = "C:\Users\Oscar Mayorga\Downloads\"
    Origen = "C:\Users\Oscar Mayorga\Downloads\PD20210822.zip"
    Set oAplica = New Shell32.Shell
    oAplica.Namespace(Destino).CopyHere oAplica.Namespace(Origen).Items
End Sub

现在，当您在键入 后按空格键时支架 ，你会注意到下面的

它期望 Variant .更多信息可以阅读 Shell.NameSpace method
如果上述链接失效