瀏覽工作​​簿中的所有工作表並遍歷他們的表

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 

我發現this page和this one覆蓋的主題。

---

編輯：你似乎已經使用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