私有常量文件夹作为文件夹

Question

我有几个函数和子函数（大约 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")

，但这给了我一个编译错误：预期：类型名称。

这可能吗？

Answer 1

根据文档，常量可以声明为： Byte

、

BooleanInteger

、

Long

、

Currency

、

Single

、

Double

、

Decimal

1、 

Date

、

String

或变体`

请注意，首先，

Folder

 不在该列表中 - 所以，不，这是不可能的。

第二，请注意，这些都是您

赋值给的数据类型，而不是Set给对象引用的数据类型。 所以，不，这是不可能的——因为

Folder

是对象类型，而不是值类型。 ¹

Decimal

---

并非所有版本的 Visual Basic 都支持常量，因此我建议坚持使用

Single ^或

Double

来代替