VBA代码从多个zip文件中提取Excel文件

Question

如何使用VBA代码从多个zip文件中提取Excel文件。

我的文件夹有多个zip文件。这些zip文件包含Excel文件.xls。如何为此构建VBA代码并将所有Excel文件保存到单个文件夹？

Answer 1

试试这段代码。

     Dim fso As New FileSystemObject
     Dim fldr As Folder
     Dim file1 As File

     Dim objApp As Object
     Set objApp = CreateObject("Shell.Application")
     objApp.Namespace(Destinationfolder &"\").CopyHere (objApp.Namespace(Zippedfilepath).Items)
     Set fldr = fso.GetFolder(Destinationfolder)

     For Each file1 In fldr.Files
         If file1.Type <> "Microsoft Excel Worksheet" Then
            file1.Delete
         End If
    Next