我正在尝试使用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
oAplica.Namespace((Destino)).CopyHere oAplica.Namespace((Origen)).Items
的代码。 - Raymond Wu