calling a function using a variable

Question

In a variable I stored a function name, but when I try to call it from a sub() I've got some errors "Type mismatch", maybe I'm doing it wrong.

Public Sub test()

    Dim list As Collection
    Dim functionName As String
    
    functionName = "asBuiltComplete()"
    Set list = functionName
    For Each rs In list
        Debug.Print rs.getId & " " & rs.getActualDate & " " & rs.getBlDate
    Next

End Sub

You can try playing around with Eval().

Andre
– Andre

2020-09-16 18:59:05 +00:00
Commented Sep 16, 2020 at 18:59 — Andre
– Andre, Commented Sep 16, 2020 at 18:59

Erik A · Accepted Answer · 2020-09-16 19:05:11Z

3

You can use Application.Run:

functionName = "asBuiltComplete"
Set list = Application.Run(functionName)

While you could use Eval, Application.Run is somewhat more limited in functionality so has less chance of weirdness.

However, this is bad code. You generally want to avoid dynamic function names whenever feasible, and just call the function.

answered Sep 16, 2020 at 19:05

Erik A

32.8k13 gold badges48 silver badges74 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

calling a function using a variable

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related