Ссылка на изменение функции в цикле

Question

В приведенном ниже коде я хотел бы сослаться на функцию в цикле. Имя функции должно измениться с InputDateRange на InputDateRange1..2..3 .. К сожалению, я получаю значение переменной C в виде строки в кавычках ("InputDateRange1"). Как я могу получить C как InputDateRange1 - без кавычек? Заранее спасибо за ваш ответ DP

For j = 1 To 3
C = "InputDateRange" & j
With DataSet
     .Close
     .Source = C
     .Open
End With
Range("G4").CopyFromRecordset DataSet
Next 

Answer 1

Вы можете использовать Application.Run.

Скажите, что следующее было в модуле 1 этой рабочей книги.Примечание. Я не использую преднамеренно возвращаемые значения.

Option Explicit
Public Sub Test()
    Dim i As Long, C As String

    For i = 1 To 2
        C = "Msg" + CStr(i)
        Application.Run "Module1." & C
    Next
End Sub

Public Function Msg1() As Long
    MsgBox "I am msg 1"
    Msg1 = 1
End Function

Public Function Msg2() As Long
    MsgBox "I am msg 2"
    Msg2 = 2
End Function