Can I Evaluate An Excel VB Constant That Is In String Format?

后端 未结 3 2005
隐瞒了意图╮
隐瞒了意图╮ 2020-12-18 12:11

Is it possible to Evaluate a String which contains a valid Excel VB Constant\'s Name to return that Constant\'s Value?

eg

    Dim ConstantName as Str         


        
3条回答
  •  萌比男神i
    2020-12-18 12:20

    Instead of using constants, you could use a dictionary

    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")
    

提交回复
热议问题