Condividi:        

Excel Errore estraendo file zip

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel Errore estraendo file zip

Postdi Francesco53 » 07/06/19 17:00

Buongiorno a tutti, devo tramite codice vba dezippare un file.zip.
Ho trovato qui sul forum una macro creata da Anthony e ho cercato di adattarla alle mie esigenze, purtroppo mi da errore 5 e se pur in edit i parametri risultano giusti non va.
Posto il codice utilizzato:
Codice: Seleziona tutto
Sub FileUnzip()
'Anthony
Dim Respp As Long
zip_file = Dir(ThisWorkbook.Path & "\")
DirZip = ActiveWorkbook.Path & "\"
myZipProg = """C:\Program Files\7-Zip"""
myZipFile = zip_file
myExtrDir = DirZip
myZipPassw = ""

Respp = Shell(myZipProg & " e " & myZipFile & " -o" & myExtrDir & " -p" & myZipPassw, 1)
myStart = Timer
Do
    DoEvents
    If Timer > myStart + 10 Or Timer < myStart Then Exit Do
Loop
End Sub


la riga che va in errore è la seguente:

Codice: Seleziona tutto
Respp = Shell(myZipProg & " e " & myZipFile & " -o" & myExtrDir & " -p" & myZipPassw, 1)


Il nome del file risulta giusto, la Directory ugualmente ma si blocca, chiedo cortesemente se mi potete aiutare a superare la difficoltà.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Excel Errore estraendo file zip

Postdi Anthony47 » 08/06/19 23:31

Immagino che sei partito da quanto suggerito all'utente zanatta77 in questa discussione: viewtopic.php?f=26&t=97764

Ora nell'adattamento hai fatto un paio di errori (uso del solo NomeFile, non Path + NomeFile; mancato incapsulamento del Path+NomeFile con "doppi-apici"; uso dell switch "-p" con password vuota, ma se il .zip e' senza password lo swith deve essere omesso)

Pero' provando il codice corretto su Windows 10 il risultato finale e' ambiguo.
Suggerisco pertanto di commutare su quest'altra versione, che usa i soli comandi di Shell:
Codice: Seleziona tutto
Sub FileDeZip()
Dim ZipFile As String, OutPath As String, ZipPath As String
'
ZipPath = ThisWorkbook.Path & "\"       '<<< Il percorso del tuo file .zip
OutPath = ThisWorkbook.Path & "\"       '<<< Il tuo percorso di salvataggio
'
ZipFile = Dir(ZipPath & "*.zip")
'
Set sh = CreateObject("Shell.Application")
    sh.Namespace(OutPath & "").CopyHere sh.Namespace(ZipPath & ZipFile).Items, 16   '16=Sovrascrivi
Set sh = Nothing
End Sub

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel Errore estraendo file zip

Postdi Francesco53 » 09/06/19 10:18

Grazie Anthony dei consigli e della macro, perfetta.
Buona giornata Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "Excel Errore estraendo file zip":


Chi c’è in linea

Visitano il forum: Nessuno e 69 ospiti