Converting a string representation of a constant into a constant?

by

There’s always this:

Sub Tester()
    MsgBox WhatIsTheValue("xlTotalsCalculationAverage")
    MsgBox WhatIsTheValue("xlTotalsCalculationCountNums")
End Sub



Function WhatIsTheValue(s As String) As Variant

        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent
        Dim CodeMod As VBIDE.CodeModule
        Set VBProj = ActiveWorkbook.VBProject
        Set VBComp = VBProj.VBComponents("modTemp")
        Set CodeMod = VBComp.CodeModule

        With CodeMod
            .DeleteLines 1, .CountOfLines
            .InsertLines 1, "Public Function GetEnumVal()"
            .InsertLines 2, "GetEnumVal = " & s
            .InsertLines 3, "End Function"
        End With
        WhatIsTheValue = Application.Run("GetEnumVal")

End Function

But really – don’t do that.

More Related Contents:

  1. Excel VBA – How to add dynamic array formula
  2. What is the difference between “Form Controls” and “ActiveX Control” in Excel 2010?
  3. Check if the file exists using VBA
  4. How can I create a progress bar in Excel VBA?
  5. Compare double in VBA precision problem
  6. Row count on the Filtered data
  7. Excel VBA Macro: User Defined Type Not Defined
  8. Automate IE via Excel to fill in a dropdown and continue
  9. Run-Time error 1004 Excel 2013
  10. VBA – Write all possible combinations of 4 columns of data [duplicate]
  11. Pasting an Excel range into an email as a picture
  12. Excel VBA to Export Selected Sheets to PDF
  13. Remove duplicates from array using VBA
  14. Controlling Internet Explorer local intranet using Excel VBA
  15. How to automatically insert a blank row after a group of data
  16. Rounding in MS Access
  17. Count unique values in Excel
  18. Get File Path (ends with folder)
  19. Get length of array?
  20. Email a single attachment from folder of files each to a different person
  21. Bad data selection using VBScript , on date field values
  22. Sending object array to variant works before August 2019 Windows update, but fails after update
  23. Find last row in range
  24. Differences between Excel’s Form Controls & ActiveX Controls
  25. Excel VBA User Defined Function that counts cells with conditional formatting
  26. How to open a workbook specifying its path
  27. GET pictures from a url and then rename the picture
  28. Access files with long paths (over 260)
  29. Concatenate multiple ranges using vba
  30. How to highlight selected text within excel

Leave a Comment