如何使用字符串分配工作表变量

Question

我有一个表，其中包含报告数据源的列表，包括服务器名称，表，字段，groupby等。然后，我可以选择希望通过Slicer刷新的条目，然后单击REFFRESH。 一列具有应该放置数据的表的名称，只是一个基本字符串。 如何将其分配给工作表变量。

使用以下命令时出现TYPE MISMATCH。 x只是循环的一部分，该循环检查表中的每一行以查看是否被选中。

dim oLo As ListObject, cTab As Worksheet
Set cTab = wb.Sheets(oLo.DataBodyRange.Cells(x, 10))

有任何想法吗？

Answer 1

花了我5分钟时间写问题，然后我得到了灵感。 我只需要在变量/单元格引用之前/之后添加一个"" & & "" 。

Set wb = ThisWorkbook
Set ws = wb.Sheets("ADMIN")
Set oLo = ws.ListObjects(1)    

For x = 1 To rCNT
    'Trigger update for each visible row
    If oLo.DataBodyRange.Rows(x).Hidden = False Then
        cFields = oLo.DataBodyRange.Cells(x, 7)
        cTable = oLo.DataBodyRange.Cells(x, 6)
        cCriteria = oLo.DataBodyRange.Cells(x, 8)
        cGroup = oLo.DataBodyRange.Cells(x, 9)
        Set cTab = wb.Sheets(oLo.DataBodyRange.Cells(x, 10).Value)
        Set cRng = cTab.Range(oLo.DataBodyRange.Cells(x, 11))
        ' - Call to function that refreshes the data
        ' - TBC
        ' - -------------------------------------
    End If
Next x