Hey there! Let’s break down how to fix your ZIP extraction error and handle 7Z extraction needs—all without needing admin privileges.

First: Troubleshooting the ZIP CopyHere Error #

Your hunch about Shell.Application might be right, but admin rights aren’t the only possible issue here. Let’s walk through common fixes:

• Target path issues
  Double-check that unzipToPath points to a folder you have write access to (like your Documents folder, not restricted paths like C:\Program Files). Always create the folder first if it doesn’t exist:

  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(unzipToPath) Then
      fso.CreateFolder(unzipToPath)
  End If
  

• File lock or conflict
  Make sure the ZIP file isn’t open in another program (like File Explorer) when running the code. Local files work more reliably than network paths here too.

• Replace Shell.Application with PowerShell
  CopyHere is a UI-based method that can fail silently or throw errors for no obvious reason. A more reliable alternative without admin rights is using PowerShell directly from VBA:

  Sub UnzipWithPowerShell(zippedFileFullName As String, unzipToPath As String)
      Dim psCommand As String
      Dim shellObj As Object
      Set shellObj = CreateObject("WScript.Shell")
      
      ' PowerShell command to extract ZIP (overwrites existing files)
      psCommand = "powershell.exe -Command ""Expand-Archive -Path '" & zippedFileFullName & "' -DestinationPath '" & unzipToPath & "' -Force"""
      
      ' Run command in hidden window, wait for completion
      shellObj.Run psCommand, 0, True
      Set shellObj = Nothing
  End Sub
  

  This method skips Shell.Application entirely and works as long as you have write access to the target folder.

Second: Extracting 7Z Files Without Admin Rights #

Shell.Application doesn’t support 7Z natively, so we’ll use the portable 7-Zip command-line tool (7z.exe)—no installation or admin rights needed:

1. Download the portable 7-Zip package, extract it to a folder you control (e.g., C:\Users\YourName\Documents\7-Zip).
2. Use this VBA code to call 7z.exe and extract your 7Z file:

   Sub Extract7Z(sevenZFileFullName As String, extractToPath As String)
       Dim sevenZPath As String
       Dim shellObj As Object
       Set shellObj = CreateObject("WScript.Shell")
       
       ' Update this path to your portable 7z.exe location
       sevenZPath = "C:\Users\YourName\Documents\7-Zip\7z.exe"
       
       ' 7-Zip command: x = extract, -o = output path, -y = auto-confirm overwrites
       Dim extractCommand As String
       extractCommand = """" & sevenZPath & """ x """ & sevenZFileFullName & """ -o""" & extractToPath & """ -y"
       
       ' Run command in hidden window
       shellObj.Run extractCommand, 0, True
       Set shellObj = Nothing
   End Sub
   

Quick Tips #

• Always wrap file/folder paths with spaces in double quotes (like in the code above) to avoid command-line errors.
• If you get "file not found" for 7z.exe, double-check the path to the executable—it’s easy to mistype!

内容的提问来源于stack exchange，提问作者Yoni W