如何计算为文本字符串的常量值（没有解决）

topses

为了方便读取，我在数据库中以文本方式直接保存了一些常量，如“vbOK”（返回值为1）
但执行程序时我读取的是文本，现如何将此文本转变成常量结果值，使用Eval不行

Const varTemp As String = "Excel Home"
Function ReturnVal()
Debug.Print Evaluate("varTemp")
'要求将此文本返回值为"Excel Home"
End Function

chuang0321

将：Const varTemp As String = "Excel Home"放在Option Compare Database下面，作为窗体的全局变量
然后用Debug.Print varTemp

Henry D. Sy

Debug.Print varTemp

topses

楼上，你没有看懂吧，Debug.Print varTemp     这个大家会呀，我就不必在这里提了，还叫高手来解了

"varTemp"必须加上双引号
Debug.Print XXXX("varTemp")     
因为我从数据库中读出的数据是常量的名称，是文本字符串呀，不直接是常量

多年前有接触过，现在在忘了，好像要调用API函数

请各位指点

topses

帮帮我呀