Sub UnZipFile(...) Excel 2010 : '91' ( )
Set objArchive = objApp.Namespace(strArchive).Items()
Set objDest = objApp.Namespace(strDest)
: objDest !
Microsoft .Namespace() , , . , :
Set objArchive = objApp.Namespace(**CStr(** strArchive **)**).Items()
Set objDest = objApp.Namespace(**CStr(** strDest **)**)
Set objArchive = objApp.Namespace(**"" &** strArchive).Items()
Set objDest = objApp.Namespace(**"" &** strDest)
objDest.CopyHere objArchive : !
, Excel 2010 , , :
Sub UnZipFile(strZipArchive As String, strDestFolder As String)
Dim objApp As Object
Dim vItem As Variant
Dim objDest As Object
Set objApp = CreateObject("Shell.Application")
Set objDest = objApp.Namespace(CStr(strDestFolder))
For Each vItem In objApp.Namespace(CStr(strZipArchive)).Items
objDest.CopyHere vItem
Next vItem
End Sub