浏览工作簿中的所有工作表并遍历其表

Question

我在excel工作簿中有多个工作表，每个工作表都有一个表格。 我想选择一个对象中的所有工作表，以便可以通过在set对象中一个一个地选择表来遍历它们。

我怎样才能做到这一点？

Answer 1

这应该使您开始：

Dim ws As Worksheet
Dim tbl As ListObject

For Each ws In ThisWorkbook.Worksheets
    For Each tbl In ws.ListObjects
        Debug.Print ws.Name, tbl.Name, tbl.Range.Address
    Next tbl
Next ws

我发现这个网页和这一个涵盖的主题。

---

编辑：您似乎已经使用Tables来谈论简单Ranges ，这是一个Range的替代方案：

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    Debug.Print ws.Name, Range("A1").CurrentRegion.Address
Next ws

Answer 2

Sub LoopThroughAllTablesinWorkbook()

    Dim tbl As ListObject
    Dim sht As Worksheet

    For Each sht In ThisWorkbook.Worksheets
        For Each tbl In sht.ListObjects

            'Your code here...

        Next tbl
    Next sht

End Sub