瀏覽工作簿中的所有工作表並遍歷其表

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