文章预览
学习Excel技术，关注微信公众号： excelperfect 标签： VBA 下面的程序将工作簿中除指定工作表外的所有工作表保存为 PDF 文件，这些 PDF 文件的名称为工作表标签名称，且保存在桌面指定的文件夹“ myPDFs ”中，你可以根据实际情况修改代码中要保存文件的位置，可以修改不需要打印的工作表。 程序代码： Sub SaveAsPDF() Dim xSht As Worksheet Dim xFolder As String Dim xYesorNo As Integer Dim xUsedRng As Range Dim xName As String For Each xSht In ActiveWorkbook.Worksheets Select Case LCase (xSht.Name) Case "主界面" , "原始数据" , "指标" '在此处定义不需要打印的工作表 GoTo NextSheet Case Else xName = xSht.Name End Select xFolder = Environ("USERPROFILE") & "\Desktop\myPDFs" xFolder = xFolder + "\" + xSht.Name + ".pdf" ' 检查文件是否存在 If Len (Dir(xFolder)) > 0 T
………………………………
