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

可以使用VBA中的Shell命令和Microsoft Print to PDF打印机驱动程序来实现将Zip压缩包中的Excel文件批量转换为PDF的功能。

以下是一个示例代码，可以将Zip压缩包中所有的Excel文件转换为PDF文件并保存在原文件夹下：

Sub ConvertExcelToPDF()
    Dim objShell As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim zipFilePath As String
    Dim extractPath As String
    Dim excelFilePath As String
    Dim pdfFilePath As String
    
    '设置Zip压缩包路径
    zipFilePath = "C:\example\example.zip"
    
    '创建Shell对象
    Set objShell = CreateObject("Shell.Application")
    
    '获取Zip压缩包中的文件夹对象
    Set objFolder = objShell.NameSpace(zipFilePath).Items
    
    '设置解压路径
    extractPath = "C:\example\"
    
    '解压Zip压缩包中的文件到指定路径下
    objShell.Namespace(extractPath).CopyHere objFolder
    
    '遍历指定路径下的Excel文件并进行转换
    excelFilePath = extractPath & "\*.xlsx"
    pdfFilePath = extractPath & "\*.pdf"
    For Each objFile In objShell.NameSpace(extractPath).Items
        If objFile.Type = "Microsoft Excel 工作表" Then
            '打开Excel文件
            Workbooks.Open objFile.Path
            
            '保存为PDF文件
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFilePath, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, OpenAfterPublish:=False
            
            '关闭Excel文件
            ActiveWorkbook.Close
            
            '删除原Excel文件
            Kill objFile.Path
        End If
    Next objFile
    
    '删除解压后的文件夹
    Kill extractPath & "\*.*"
    RmDir extractPath
End Sub

需要注意的是，需要将代码中的Zip压缩包路径、解压路径等信息修改为自己实际的路径。此外，代码中使用的是Microsoft Print to PDF打印机驱动程序将Excel文件转换为PDF文件，因此需要确保计算机中已经安装了该打印机驱动程序。