批量将EXCEL转为PDF

通过vba将excle批量转为pdf

Sub EXCELtoPDF()

    Dim MyPath As String, MyName As String
    
    Dim isPrintHideSheet

    MyPath = ThisWorkbook.Path & "\"

    MyName = Dir(MyPath & "*.xls") '将需要打印的表格放在代码表格同目录下，取文件名
    
    isPrintHideSheet = Range("H12") '需根据实际修改

    Application.ScreenUpdating = False

    Do While MyName <> ""

        If MyName <> ThisWorkbook.Name Then

            Set wb = GetObject(MyPath & MyName) 'getobject隐式打开excel
        
            If isPrintHideSheet >= 1 Then

               For i = 1 To wb.Worksheets.Count

                   wb.Worksheets(i).Visible = 1 '显示隐藏的worksheet

               Next
            End If

            wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyPath & MyName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

            wb.Close False

            Set wb = Nothing

        End If

        MyName = Dir

    Loop

    Application.ScreenUpdating = True

    MsgBox "转换完毕"

End Sub

效果图