vba 把zip压缩包中的excel 批量转为pdf

可以使用VBA编写一个宏来批量转换Zip压缩包中的Excel文件为PDF。下面是一个简单的示例代码：

Sub ConvertExcelToPDF()
    Dim objFSO As Object
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim strZipPath As String
    Dim strUnzipPath As String
    Dim strExcelPath As String
    Dim strPDFPath As String
    Dim strFileName As String
    
    '设置Zip文件路径
    strZipPath = "C:\Test\ExcelFiles.zip"
    
    '创建文件系统对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    
    '创建Shell对象
    Set objShell = CreateObject("Shell.Application")
    
    '获取Zip文件所在的目录
    strUnzipPath = objFSO.GetParentFolderName(strZipPath)
    
    '解压Zip文件
    objShell.Namespace(strUnzipPath).CopyHere objShell.Namespace(strZipPath).Items
    
    '设置Excel和PDF文件所在的目录
    strExcelPath = strUnzipPath & "\ExcelFiles\"
    strPDFPath = strUnzipPath & "\PDFFiles\"
    
    '创建Excel和PDF文件所在的目录
    If Not objFSO.FolderExists(strExcelPath) Then
        objFSO.CreateFolder (strExcelPath)
    End If
    If Not objFSO.FolderExists(strPDFPath) Then
        objFSO.CreateFolder (strPDFPath)
    End If
    
    '遍历Excel文件
    Set objFolder = objFSO.GetFolder(strExcelPath)
    For Each objFile In objFolder.Files
        '检查文件是否为Excel文件
        If objFSO.GetExtensionName(objFile.Name) = "xlsx" Then
            '打开Excel文件
            Workbooks.Open objFile.Path
            
            '设置PDF文件名
            strFileName = objFSO.GetBaseName(objFile.Name) & ".pdf"
            
            '保存为PDF文件
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDFPath & strFileName
            
            '关闭Excel文件
            ActiveWorkbook.Close False
        End If
    Next objFile
    
    '删除解压后的文件夹
    objFSO.DeleteFolder (strUnzipPath & "\ExcelFiles\")
    objFSO.DeleteFolder (strUnzipPath & "\PDFFiles\")
End Sub

需要注意的是，上述代码中的路径需要根据实际情况进行修改。此外，由于VBA不支持直接操作Zip文件，因此需要先将Zip文件解压缩到指定的目录中，再进行转换操作。最后，需要删除解压后的文件夹，以免占用过多的磁盘空间。