如何正确将VBA用户窗体数据传递至Sheet3的子过程？

背景 #

我需要实现从用户窗体（UserForm）向Sheet3的子过程传递数据：用户窗体提供项目编号、文件路径两个字符串，还有一个布尔值标记用户是点击了OK还是CANCEL，以此控制后续逻辑。调研后觉得用全局变量最简单，但不确定是否规范。

我分别在三个位置单独声明全局变量（不同时声明），但都报错：

• 在Sheet3代码页的首个Sub/Function前声明：用户窗体代码中的OKBtn_Click子过程报错（错误截图如下）
  
  关联代码：

Private Sub OKBtn_Click()
    
    strPPTFilepath = PPTPath.Text
    strProjectNumber = ProjectNoTextBox.Text
    bCancelled = False
    
End Sub

• 在ThisWorkbook代码页顶部声明：Sheet3的LoadPPT_Click子过程报错（错误截图如下）
  
  报错代码片段：

Private Sub LoadPPT_Click()

Dim frm As PPT_Picker_Form
Dim wbPPT As Workbook
Dim wsPPT As Worksheet
Dim rngTopLeft As Range
Dim lngLastUsedRow As Long
Dim lngLastCo As Long
    
    Set frm = UserForms.Add(PPT_Picker_Form.Name)
    frm.ListData = ThisWorkbook.Worksheets("Project Numbers").ListObjects("Project_Number_List").DataBodyRange
    
    frm.Show
    
    Unload frm
    
    If bCancelled Then '<----未声明的变量报错
        Exit Sub
    End If
    
    '后续逻辑...
End Sub

• 在用户窗体代码区域顶部声明：出现和上述第二种情况相同的错误。

我的变量声明代码如下：

'强制所有变量必须声明
Option Explicit

'期望全模块可用的变量
Public strPPTFilepath As String
Public strProjectNumber As String
Public bCancelled As Boolean

核心问题 #

如何正确将用户窗体的数据传递至Sheet3的子过程？

解决方案 #

方法1：使用标准模块声明全局变量（最稳妥的全局变量用法） #

不要在工作表、ThisWorkbook或用户窗体模块里声明全局变量，而是新建一个标准模块（右键VBA工程→插入→模块），在这个标准模块顶部声明你的Public变量：

Option Explicit

Public strPPTFilepath As String
Public strProjectNumber As String
Public bCancelled As Boolean

这样所有模块（包括Sheet3、用户窗体、ThisWorkbook）都能直接访问这些变量，不会出现未声明的错误。

方法2：给用户窗体添加公有属性（更规范的面向对象写法） #

如果不想用全局变量，推荐用面向对象的方式，给用户窗体添加公有属性，调用时直接读取这些属性值：

1. 在用户窗体PPT_Picker_Form的代码页添加：

Option Explicit

Private m_strPPTFilepath As String
Private m_strProjectNumber As String
Private m_bCancelled As Boolean

'定义属性，供外部读取
Public Property Get PPTFilepath() As String
    PPTFilepath = m_strPPTFilepath
End Property

Public Property Get ProjectNumber() As String
    ProjectNumber = m_strProjectNumber
End Property

Public Property Get Cancelled() As Boolean
    Cancelled = m_bCancelled
End Property

Private Sub OKBtn_Click()
    m_strPPTFilepath = PPTPath.Text
    m_strProjectNumber = ProjectNoTextBox.Text
    m_bCancelled = False
    Me.Hide '不要用Unload，先隐藏窗体保留属性值
End Sub

Private Sub CancelBtn_Click()
    m_bCancelled = True
    Me.Hide
End Sub

2. 修改Sheet3的LoadPPT_Click代码：

Private Sub LoadPPT_Click()

Dim frm As PPT_Picker_Form
Dim wbPPT As Workbook
Dim wsPPT As Worksheet
Dim rngTopLeft As Range
Dim lngLastUsedRow As Long
Dim lngLastCo As Long
    
    Set frm = New PPT_Picker_Form '用New创建实例，而非UserForms.Add
    frm.ListData = ThisWorkbook.Worksheets("Project Numbers").ListObjects("Project_Number_List").DataBodyRange
    
    frm.Show
    
    '读取窗体属性
    If frm.Cancelled Then
        Exit Sub
    End If
    
    '使用属性值
    Set wbPPT = Workbooks.Add(frm.PPTFilepath)
    Set wsPPT = wbPPT.Worksheets("Fee Estimate")
    
    '后续逻辑...
    
    Unload frm '最后再卸载窗体
End Sub

这种方式避免了全局变量的副作用，代码结构更清晰，是VBA中传递窗体数据的规范写法。

关于全局变量的规范说明 #

全局变量虽然简单，但容易引发变量被意外修改、调试困难等问题，除非是非常简单的场景，否则更推荐使用用户窗体属性的方式传递数据。

内容的提问来源于stack exchange，提问作者Forward Ed