Как я могу получить данные строки выбранного заголовка таблицы?

Question

Я передаю выбранное имя заголовка таблицы в качестве параметра в моей функции. Я получаю Error 424: Object Required Как я могу изменить аргумент своей таблицы, чтобы принимать selectedTmig в качестве параметра?

Код вызова

Sub foo()
Dim t As ITmProducts
Set t = New TmProductInfo

t.BuildTmServices "Account Recon"
End Sub

Объект класса

Private Function ITmProducts_BuildTmServices(ByVal selectedTMIG As String) As Collection
    For Each TmigServiceRow In [Table1[selectedTMIG]].Rows <-- ***Error occurs here***
        ITmProducts_BuildTmProducts.Add TmigServiceRow.value
    Next
End Function 

Answer 1

Попробуйте следующее ...

For Each TmigServiceRow In Worksheets("Sheet1").ListObjects("Table1").ListColumns(selectedTMIG).DataBodyRange

Измените имя листа соответственно.