利用VBA把一个文件中的多个 Sheet转到一个PDF文件

springdk2009

于 2024-04-28 17:10:01 发布

阅读量770

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： pdf excel

本文链接：https://blog.youkuaiyun.com/springdk2009/article/details/136809738

时间：2017-06-13 17:03:37

利用VBA把一个文件中的多个 Sheet转到一个PDF文件，其原理就是同时选择要导出生成的sheet，然后另存为PDF（2007以上版本才可以2003版本不行）

以下是完整代码

Sub 批转PDF()
    '
    ' 批转PDF 宏
     
    If Application.Version < 12 Then
        MsgBox "此功能用于Excel2007以上"
        Exit Sub
    End If
    '
    If MsgBox("确认要所有不含NO的工作表转成到一个PDF文件吗？", vbOKCancel, "温馨提示") = vbCancel Then
        End
    End If
    Dim MyStr() As String
     
    Dim Sht As Worksheet
    Dim nnn As Integer
    nnn = 0
    For Each Sht In ThisWorkbook.Worksheets
        If Sht.Name <> "基本信息" And Sht.Name <> "通信线缆" And Sht.Name <> "电力电缆" And Sht.Name <> "服务费明细" And (InStr(Sht.Name, "NO") = 0 And InStr(Sht.Name, "no") = 0) Then
'            Debug.Print Sht.Name
            nnn = nnn + 1
            ReDim Preserve MyStr