如何在Excel VBA中将const定义为对象？

Question

我有一个对象

xmlHttp = CreateObject("MSXML2.xmlhttp")

如何将此对象（ xmlhttp 对象）存储为const？

例子

Public xmlHttp As ... = CreateObject("MSXML2.xmlhttp")

Answer 1

对象不能是Const. 只有像这样的原始类型才Integer可以。此外，VBA 没有只读字段的概念。您可以通过在模块中使用私有字段并Public Property Get Xmlhttp()在该模块上使用私有字段来模拟这一点。