Импорт файла из архива

'---------------------------------------------------------------------------------------
' Procedure : ExtractFileFromZip
' DateTime  : 03.08.2014 22:02
' Author    : The_Prist(Щербаков Дмитрий)
'             http://www.excel-vba.ru
' Purpose   : Извлечение из архива конкретного файла
'---------------------------------------------------------------------------------------
Sub ExtractFileFromZip()
'C:\Documents            - папка для извлечения файла из архива
'C:\Documents\VBAZip.zip - имя ZIP-архива, из которого необходимо извлечь файл
'Книга1.xls              - имя файла в ZIP-архиве, который необходимо извлечь
    With CreateObject("Shell.Application").Namespace(("C:\Documents"))
        .CopyHere "C:\Documents\VBAZip.zip" & "\" & "Книга1.xls"
    End With
End Sub

Set ShellApp = CreateObject("Shell.Application")
 
Set objTMPFolder = ShellApp.NameSpace("C:\TMP1") 'временная папка'
Set objDestFolder = ShellApp.NameSpace("C:\TMP") 'основная папка'
Set objFolder = ShellApp.NameSpace("C:\") 'папка с zip файлами'
 
Set objFolderItems = objFolder.Items()
objFolderItems.Filter 64,"*.zip"
 
   For Each f In objFolderItems
      Set objSrcFolder = ShellApp.NameSpace(f)
      objTMPFolder.CopyHere objSrcFolder.Items 'распаковка во временную папку'
   Next
 
objDestFolder.MoveHere objTMPFolder.Items,4+16 'бесшумное перемещение в основную папку'