excel - 我可以评估字符串格式的 Excel VB 常量吗？

Question

是否可以评估包含有效 Excel VB 常量名称的字符串以返回该常量的值？

例如

    Dim ConstantName as String
    Dim ConstantValue as Long

    ConstantName="xlValues"

    ConstantValue= UnknownFunction(ConstantName)

    'would set ConstantValue=-4163

Answer 1

乐趣！

Option Explicit

Function getConstantValue(constStr As String) As Variant

    Dim oMod As VBIDE.CodeModule
    Dim i As Long, _
        num As Long

    Set oMod = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule

    For i = 1 To oMod.CountOfLines
        If oMod.Lines(i, 1) = "Function tempGetConstValue() As Variant" Then
            num = i + 1
            Exit For
        End If
    Next i

    oMod.InsertLines num, "tempGetConstValue = " & constStr

    getConstantValue = Application.Run("tempGetConstValue")

    oMod.DeleteLines num

End Function

Function tempGetConstValue() As Variant
End Function

所有代码都必须在一个名为 Module1 的模块中。这可以通过更改例程中的文本“Module1”来轻松更改。

您需要添加对Microsoft Visual Basic for Applications Extensibility x.x

有多种方法可能会失败。如果您有任何问题，请告诉我:)

Answer 2

您可以使用字典而不是使用常量

Dim dict As Object

Sub InitialiseDict()
    Set dict = CreateObject(Scripting.Dictionary)
    dict("xlValues") = -4163
    dict("const1") = value1
    ... 
    dict("constN") = valueN
End Sub

ConstValue = dict("xlValues")

Answer 3

是否需要使用字符串值？

Dim anyConstant as Long
anyConstant = xlValues

msgbox anyConstant

将 anyConstant 设置为您喜欢的任何 xl 常量，它们都是枚举的 Long 值。

然而，提供的第一个解决方案确实更有趣。