admin管理员组

文章数量:1404923

I have used this method for many years to expand a Zip archive via VBA:

Sub UnZip(pathZip as Variant, pathOut as Variant)
    Dim oShell As Object
    Const SHELL_DO_NOT_SHOW_PROGRESS = &H4

    Set oShell = CreateObject("Shell.Application")

    oShell.NameSpace(pathOut).CopyHere _
    oShell.NameSpace(pathZip).Items, _
    SHELL_DO_NOT_SHOW_PROGRESS
End Sub

It's recently stopped working, which means nothing is exported from the zip archive and no error is raised.

I noted the version of my copy of shell32.dll is 10.0.26100.3037 and has today's timestamp (10MAR2025).

Has there been a change to security policies to prevent this from working or could this be a Microsoft bug?

UPDATED

Changed declarations back to their original type Variant (without improvement) and changed the CopyHere call to include the &H4 vOption 'Do not display a progress dialog box.' from Microsoft Learn.

Now the Shell object is returning errors for every file in the archive:

本文标签： excelshell32dll no longer working to expand zip archiveStack Overflow

版权声明：本文标题：excel - shell32.dll no longer working to expand zip archive - Stack Overflow 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.betaflare.com/web/1744834814a2627566.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。