[英]Going through all sheets in a workbook and iterate through their tables
I have multiple sheets in a excel workbook, each sheet has a table. 我在excel工作簿中有多个工作表,每个工作表都有一个表格。 I want to select all sheets in an object so I can iterate through them by selecting tables in a
set
object one by one. 我想选择一个对象中的所有工作表,以便可以通过在
set
对象中一个一个地选择表来遍历它们。
How can I do this? 我怎样才能做到这一点?
This should get you started: 这应该使您开始:
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
I found this page and this one that cover the subject. 我发现这个网页和这一个涵盖的主题。
Edit: as you seem to have used Tables
to speak about simple Ranges
, here is a Range
oriented alternative: 编辑:您似乎已经使用
Tables
来谈论简单Ranges
,这是一个Range
的替代方案:
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name, Range("A1").CurrentRegion.Address
Next ws
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
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.