导出到PDF并进行错误处理

• 你的代码看起来“很好”。所有的“小”问题都会导致不同的错误。也许以下内容会帮助你找出问题所在。如果你知道，请分享。

Sub SimplePrintToPDF()

    ' Define constants.
    Const dSubfolderName As String = "Downloads"
    Const dFileName As String = "Test123.pdf"

    On Error GoTo ClearError
    
    ' Build the folder path.
    Dim pSep As String: pSep = Application.PathSeparator
    Dim dFolderPath As String
    dFolderPath = Environ("USERPROFILE") & pSep & dSubfolderName & pSep
    If Len(Dir(dFolderPath, vbDirectory)) = 0 Then
        MsgBox "The path '" & dFolderPath & "' was not found.", vbCritical
        Exit Sub
    End If
    
    ' Build the file path.
    Dim dFilePath As String: dFilePath = dFolderPath & dFileName
    
    ' Check these results in the Immediate window (Ctrl+G).
    Debug.Print "FilePath: " & dFolderPath
    Debug.Print "FileName: " & dFileName
    Debug.Print "FilePath: " & dFilePath
    
    ' Reference the sheet (charts are allowed).
    If ActiveSheet Is Nothing Then
        MsgBox "No visible workbooks open.", vbCritical
        Exit Sub
    End If
    Dim sh As Object: Set sh = ActiveSheet

    ' Export to PDF.
    sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:=dFilePath, _
        Quality:=xlQualityStandard, IncludeDocProperties:=False, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    ' Explore subfolder.
    'sh.Parent.FollowHyperlink dFolderPath

ProcExit:
    On Error Resume Next
        ' any final code to run after an error
    On Error GoTo 0
    Exit Sub
ClearError:
    MsgBox "Run-time Error '" & Err.Number & "':" & vbLf & Err.Description
    Resume ProcExit
End Sub