Leggi ZIP – Forum Excel VBA

Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)

Autore

Articoli
07/02/2022 alle 13:47 #33265 Score: 0 | Risposta
Raffaele53
Partecipante
Raffaele53
Karma: 23 pts
Ciao a tutti, non riesco capire dove sbaglio.
Ho trovato questo codice in rete che visualizza tutti i files all'interno di un ZIP che funziona bene. Ora vorrei togliere la riga >>>PathFilename = Application.GetOpenFilename("ZipFiles (*.zip), *.zip") e passargli una variabile-scritta. Mà a questo punto ho un errore sulla riga >>> For Each FileNameInZip In oapp.Namespace(PathFilename).Items
Conoscete il motivo? Grazie mille
```
Sub ListZipDetails()
  Dim R As Long, PathFilename As Variant, FileNameInZip As Variant, oapp As Object
  'PathFilename = "C:\Users\Lello\Desktop\Casarile\Noviglio.zip"
  PathFilename = Application.GetOpenFilename("ZipFiles (*.zip), *.zip")
  If PathFilename = "False" Then Exit Sub
  R = 2
  Set oapp = CreateObject("Shell.Application")
  For Each FileNameInZip In oapp.Namespace(PathFilename).Items
    'Cells(R, "C").Value = FileNameInZip
    'Cells(R, "A").Value = PathFilename
    'R = R + 1
    MsgBox FileNameInZip
  Next
  Set oapp = Nothing
End Sub
```
07/02/2022 alle 17:33 #33267 Score: 0 | Risposta
rollis13
Partecipante
rollis13
Karma: 8 pts
Il motivo non lo conosco per il semplice fatto che non hai detto che errore riscontri.

Senza sfera di cristallo quello che ti posso dire è che la macro, utilizzata con una cartella contenente un file zippato valido (trascritto direttamente nel codice), funziona correttamente.
07/02/2022 alle 19:28 #33268 Score: 0 | Risposta
Raffaele53
Partecipante
Raffaele53
Karma: 23 pts
Ciao rollis13, giusto non ho detto l'errore
"Errore di runtime 91, variabile oggetto o oggetto del blocco With non impostata"

Se scelgo il files tramite Application.GetOpenFilename...è tutto OK
La variabile diventa >>> PathFilename = "C:\Users\Lello\Desktop\Casarile\Noviglio.zip".
Mà dovrei eseguire questo codice in un ciclo

Zipnome = Dir$(Spath & "*.zip")
Do While Zipnome <> ""
...
Zipnome = Dir$()
Loop

A parte il Dir$(Spath & "*.zip"), non posso fargli aprire Application.GetOpenFilename... ogni volta
Volevo valorizzarla tramite codice, comunque anche se "assegno la variabile manualmente"
PathFilename = "C:\Users\Lello\Desktop\Casarile\Noviglio.zip", và in errore sulla riga
>>>For Each FileNameInZip In oapp.Namespace(PathFilename).Items
07/02/2022 alle 23:33 #33270 Score: 0 | Risposta
rollis13
Partecipante
rollis13
Karma: 8 pts
Così andrebbe meglio:
```
`Option Explicit
Sub ListZipDetails()
    Dim R As Long, PathFilename As Variant, FileNameInZip As Variant, oapp As Object
    Dim ZipNome
    PathFilename = "C:\Users\Lello\Desktop\Casarile\"
    'R = 2
    Set oapp = CreateObject("Shell.Application")
    ZipNome = Dir$(PathFilename & "*.zip")
    Do While ZipNome <> ""
        For Each FileNameInZip In oapp.Namespace(PathFilename & ZipNome).Items
            'Cells(R, "C").Value = FileNameInZip
            'Cells(R, "A").Value = PathFilename & ZipNome
            'R = R + 1
            MsgBox FileNameInZip
        Next
        ZipNome = Dir$()
    Loop
    Set oapp = Nothing
End Sub`
```
07/02/2022 alle 23:49 #33271 Score: 0 | Risposta
Raffaele53
Partecipante
Raffaele53
Karma: 23 pts
Grazie infinite

Scusami tanto, mi sono appena accorto dell'errore (sono rimbambito), scrivevo..

>>> PathFilename = "C:\Users\Lello\Desktop\Casarile\Noviglio.zip" invece era

PathFilename = "C:\Users\Lello\Desktop\Noviglio\Noviglio.zip"
08/02/2022 alle 11:35 #33276 Score: 0 | Risposta
rollis13
Partecipante
rollis13
Karma: 8 pts
Grazie per il riscontro, sono contento di essere stato di qualche aiuto .
Autore

Articoli

Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)