unzip

Hai un problema con Excel?

Nuova discussione

unzip
di Holly (utente non iscritto) data: 13/05/2015 18:14:14
Ciao!!! Sto creando una macro che mi estrae tutti i file zippati che ho in una cartella.. ma purtroppo non funziona bene.. perchè l'output dell'estrazione viene inserito nella cartella dove sta il workbook con la macro.. allego il codice!!Inoltre, una volta estratti i file è possibile eliminare il zip secondo voi? Grazie per l'aiutooo!!

Sub unzip()

  Dim MyObj As Object, MySource As Object, file As Variant
  Dim shellStr As String
  Dim path As String
  Dim ext As String
  
  path = controller.Range("C7") & ""
  file = Dir(path)
  While (file <> "")
    If InStr(1, file, ".zip") > 0 Then
    MyFile = Chr(34) & path & file & Chr(34)
    
    Outdir = Chr(34) & path & Chr(34)
    Cmdstr = "C:Program Files (x86)WinRARWinRAR.exe -e" & MyFile & Outdir
    Call Shell(Cmdstr, vbHide)
    End If
    file = Dir
  Wend

End Sub

di lepat (utente non iscritto) data: 14/05/2015 07:50:32
tu hai scritto
Outdir = Chr(34) & path & Chr(34)
quindi outdir è la cartella in cui si trova il file con la macro, devi specificare la cartella di destinazione:
Outdir = Chr(34) & "C:miacartella" & Chr(34)
di Holly (utente non iscritto) data: 14/05/2015 14:58:48
Niente da fare.. sto provando e riprovando ma non funziona.. :(
di lepat (utente non iscritto) data: 14/05/2015 15:31:59
dire non funziona non basta, cosa non funziona ?

Vuoi Approfondire?