Buscando, he localizado cómo descargar los archivos de un correo a la carpeta que necesito, ahora me encuentro con el problema que vienen comprimidos en .zip y tengo que descomprimirlos para cargarlos en la BBDD.
Buscando, he visto este código, que me da error en el ultimo paso. Me pueden ayudar no se donde esta el error y buscando no encuentro nada. Gracias.
Sub Descomprimir()
Dim Destino As String
Dim Origen As String
Dim oApp As Object
Destino = "C:\Users\PTbarbera\Desktop\descagasDatos\pruebaZip"
Origen = "C:\Users\PTbarbera\Desktop\descagasDatos\prueba.zip"
Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(Destino).CopyHere
oApp.NameSpace(Origen).Items
End Sub
El ultimo paso es el que me da el error: oApp.NameSpace(Destino).CopyHere oApp.NameSpace(Origen).Items
.
¿No sé si tengo que activar alguna referencia?