VBA模块中能否用Private Constant替代Folder对象赋值语句？

你在模块的7个函数/过程中重复使用以下两行代码：

Dim oFolder As Folder
Set oFolder = Application.Session.Folders("Rings").Folders("Contacts").Folders("Customers")

尝试用Private Const oFolder as Folder = Application.Session.Folders("Rings").Folders("Contacts").Folders("Customers")替代时触发编译错误，这种实现完全不可行，原因及替代方案如下：

核心原因 #

VBA的Const仅支持定义编译时可确定的静态常量（如字符串、数字、布尔值），无法存储对象引用。对象必须通过Set语句在运行时完成赋值，这是你收到"Expected: type name"错误的根本原因。

可行替代方案 #

方案1：模块级私有变量+初始化逻辑 #

用模块级私有变量存储对象，搭配初始化过程避免重复创建：

Private oCustomerFolder As Folder

' 初始化Folder对象的过程
Private Sub InitCustomerFolder()
    If oCustomerFolder Is Nothing Then
        Set oCustomerFolder = Application.Session.Folders("Rings").Folders("Contacts").Folders("Customers")
    End If
End Sub

' 示例过程调用
Sub SampleProcedure()
    InitCustomerFolder
    ' 直接使用oCustomerFolder对象
    Debug.Print oCustomerFolder.Items.Count
End Sub

方案2：封装为带缓存的模块级函数 #

通过静态变量缓存对象，每次调用函数时返回已创建的对象：

Private Function GetCustomerFolder() As Folder
    Static cachedFolder As Folder
    ' 仅当对象未创建时执行赋值
    If cachedFolder Is Nothing Then
        Set cachedFolder = Application.Session.Folders("Rings").Folders("Contacts").Folders("Customers")
    End If
    Set GetCustomerFolder = cachedFolder
End Function

' 示例过程调用
Sub SampleProcedure()
    Dim custFolder As Folder
    Set custFolder = GetCustomerFolder()
    ' 使用custFolder对象
End Sub

内容的提问来源于stack exchange，提问作者Nathan Guill