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

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