Работа с архивами

[Acro]

Она вообще есть? Unzip прикручивать как то?... Поиск по нету малопродуктивен - мусора много, толку ноль.

Задача максимум - работа с заархивированным zip-ом файлом *.dat (структура как у csv), но не могу вообще ничего пока найти.

[Acro]

Нашел, подошло!

Public Function Unzip(DefPath, Fname)
'Unzips A File
'Fname must be FULL Path\Filename.zip
'DefPath must be valid Path\ you want to Unzip file TO
Dim fso As Object
Dim oApp As Object
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(DefPath).CopyHere oApp.Namespace(Fname).items
On Error Resume Next
Set fso = CreateObject("scripting.filesystemobject")
fso.deletefolder Environ("Temp") & "\Temporary Directory*", True
Set oApp = Nothing
Set fso = Nothing
End Function

Тут еще zip и варианты:
http://www.mrexcel.com/forum/showthread.php?p=1595279