用VBA查看Zip文件内容（内存中解压），浅析Zip文件格式

weist123

那么怎样用楼主的东西实现在内存中直接读取ZIP包中的TXT文件内容呢？

jester007

学习了，受教了，谢谢

0031126

谢谢，学习

lzqlaj

好贴，收藏了。

sh205

多谢多谢，学习了

zhuang1862

这个方法比较复杂和死板，简单的方法可以参考8楼的链接：
  http://club.excelhome.net/thread-1251157-1-1.html
当然，以上链接的回复只是列出ZIP文件中的内容。
另外的压缩、解压等也是能实现的。

ExcelhomeV

请教各位大神，我在网上搜到了下面解压zip文件的代码，可是如何实现一次性选择多个zip文件夹，同时自动输入解压密码呢（我知道密码是什么）？
Dim ShellApp As Object
    Dim TargetFile
    Dim ZipFolder

'   Target file & temp dir
    TargetFile = Application.GetOpenFilename _
        (FileFilter:="Zip Files (*.zip), *.zip")
    If TargetFile = False Then Exit Sub

    ZipFolder = Application.DefaultFilePath & "\Unzipped\"

'   Create a temp folder
    On Error Resume Next
    RmDir ZipFolder
    MkDir ZipFolder
    On Error GoTo 0

'   Copy the zipped files to the newly created folder
    Set ShellApp = CreateObject("Shell.Application")
    ShellApp.Namespace(ZipFolder).CopyHere _
       ShellApp.Namespace(TargetFile).items

    If MsgBox("The files was unzipped to:" & _
       vbNewLine & ZipFolder & vbNewLine & vbNewLine & _
       "View the folder?", vbQuestion + vbYesNo) = vbYes Then _
       Shell "Explorer.exe /e," & ZipFolder, vbNormalFocus