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

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

1 个答案: