VBA全局变量跨类与模块值不保留，如何正确声明errorWhilePDF

这个场景其实是VBA里跨作用域传递状态的典型问题，咱们不用全局变量也能优雅解决，推荐用类属性传递状态的方案，这也是最符合面向对象设计思路的方式，具体步骤如下：

方案一：通过Document类的公共属性传递错误状态 #

1. 给Document类添加公共属性 #

打开你的Document类模块，把原来的私有变量替换成公共属性（这样表单就能直接访问）：

' Document类模块
Public ErrorWhilePDF As Boolean ' 用于标记PDF生成是否出错

2. 修改utilities模块的printPDF为函数返回错误状态 #

因为utilities是Option Private Module，里面的公共成员只能在当前项目内访问，我们把原来的Sub改成Function，让它返回是否出错：

' utilities模块（Option Private Module保留）
Public Function printPDF() As Boolean
    On Error GoTo ErrorHandler
    
    ' 你的PDF生成代码逻辑
    ' ...
    
    printPDF = False ' 没有错误，返回False
    Exit Function
    
ErrorHandler:
    printPDF = True ' 发生错误，返回True
    ' 可选：在这里记录错误详情，比如 Debug.Print Err.Number & ": " & Err.Description
End Function

3. 在Document类的generatePDF中更新属性值 #

调用printPDF函数时，把返回的错误状态赋值给类的公共属性：

' Document类模块
Public Sub generatePDF()
    ' 调用printPDF并获取错误状态
    Me.ErrorWhilePDF = utilities.printPDF()
    
    ' 可选：如果需要在类内部处理错误，比如终止后续逻辑
    If Me.ErrorWhilePDF Then
        ' 类内的错误处理逻辑
        Exit Sub
    End If
End Sub

4. 在mailForm的sendEmail中检查错误状态 #

调用完generatePDF后，直接读取Document实例的属性，判断是否终止发邮件：

' mailForm模块
Public Sub sendEmail()
    Dim docInstance As New Document
    
    ' 生成PDF
    docInstance.generatePDF()
    
    ' 检查是否出错
    If docInstance.ErrorWhilePDF Then
        MsgBox "生成PDF时发生错误，已终止发邮件操作！", vbExclamation
        Exit Sub ' 退出发邮件流程
    End If
    
    ' 没有错误，继续执行发邮件的代码
    ' ...
End Sub

方案二：在Document类中捕获printPDF的错误（无需修改printPDF为函数） #

如果不想改动printPDF的Sub类型，可以在generatePDF中直接捕获错误：

' Document类模块
Public ErrorWhilePDF As Boolean

Public Sub generatePDF()
    On Error GoTo ErrorHandler
    
    utilities.printPDF()
    Me.ErrorWhilePDF = False ' 执行到这里说明没出错
    Exit Sub
    
ErrorHandler:
    Me.ErrorWhilePDF = True ' 捕获到错误，标记状态
    ' 可选：记录错误信息
End Sub

之后mailForm的检查逻辑和方案一完全一致。

为什么你之前的方案不行？ #

• 在Document类里用Dim errorWhilePDF As Boolean：Dim在类模块中声明的是私有实例变量，外部（比如mailForm）无法直接访问，必须改成Public才能让表单读取。
• 在utilities模块声明变量：因为Option Private Module的限制，模块内的Public变量是项目级可见，但全局变量容易产生副作用（比如多个操作同时进行时会覆盖状态），而且你之前读取到Empty可能是因为变量未初始化，或者错误分支没执行到导致赋值失败。

推荐优先用方案一，它更封装、更安全，不会有全局变量带来的潜在问题。

内容的提问来源于stack exchange，提问作者Matteo NNZ