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