Excel 获取从另一页复制的表格的名称

我制作了一个宏，可以将一个表复制到其他各种页面，然后将这些粘贴的表按特定的日期范围进行排序。我的问题是知道新复制的表的表名。我试着做一个简单的计数，但是分配给列表对象的默认数字显然不是按时间顺序排列的。当我到达复制的第199个表时，下一个复制的表是1100而不是200

粘贴到工作表上的表格是该工作表上的唯一表格，因此我认为我应该能够指定名称，或者自动获得指定的名称。我该怎么做？还是我需要以完全不同的方式复制表格

Option Explicit
Dim DutyQueue As Worksheet
Dim MonthQueue As Worksheet
Dim tblNum As Integer
Dim tblOld As Integer
Dim intWSCount As Integer
Dim intmonth As Date
Dim endmonth As Date

Sub CopyMonthlyDutyLoop()

Set DutyQueue = ThisWorkbook.Worksheets("Duty Queue")

For intWSCount = 4 To 15
Set MonthQueue = ThisWorkbook.Worksheets(intWSCount)
tblNum = DutyQueue.Cells(1, 1)
ThisWorkbook.Worksheets(intWSCount).Activate
tblOld = MonthQueue.Cells(1, 1)
intmonth = MonthQueue.Cells(1, 2)
endmonth = MonthQueue.Cells(1, 3)

'copy table from Duty Queue
DutyQueue.Range("Table1[#All]").Copy ThisWorkbook.Worksheets(intWSCount).Range("A2")

'sort for all tasks due for the month
tblNum = tblNum + 1
Worksheets(intWSCount).ListObjects("Table_I_Just_Copied").Range.AutoFilter Field:=5, Criteria1:="<=" & intmonth, Operation:=xlAnd, Criteria2:="<=" & endmonth


DutyQueue.Cells(1, 1) = tblNum
MonthQueue = Worksheets(intWSCount).ListObjects("Table_I_Just_Copied").Name


Next intWSCount

End Sub

选项显式
Dim DutyQueue As工作表
Dim MonthQueue As工作表
作为整数的Dim tblNum
作为整数的Dim tblOld
Dim intWSCount为整数
以月份为日期
月底截止日期
子copymonthlydutylop（）
Set DutyQueue=此工作簿。工作表（“工作队列”）
对于intWSCount=4到15
设置MonthQueue=ThisWorkbook.Worksheets（intWSCount）
tblNum=DutyQueue.Cells（1,1）
此工作簿。工作表（intWSCount）。激活
tblOld=MonthQueue.Cells（1,1）
intmonth=MonthQueue.Cells（1,2）
endmonth=MonthQueue.Cells（1,3）
'从工作队列复制表
DutyQueue.Range（“表1[#All]”）。复制此工作簿。工作表（intWSCount）。Range（“A2”）
'对当月到期的所有任务进行排序
tblNum=tblNum+1
工作表（intWSCount）.ListObjects（“表刚刚复制”）.Range.AutoFilter字段：=5，Criteria1:=“您可以使用表的索引引用表（与任何集合一样），如果工作表上只有一个表，则标识该表会变得更简单，即：

Worksheets("nnn").listobjects(1).name

您可以使用表的索引（与任何集合一样）引用表，如果一张工作表上只有一个表，则标识该表会变得更简单，即：

Worksheets("nnn").listobjects(1).name

工作表（“nnn”）.listobjects（1）.name
？我发现一个错误，即该方法或属性不受支持。@SJR，我不确定第一次尝试您的建议时我做错了什么，但在进一步的修改中，这个答案是绝对正确的。是否将其作为答案，以便我可以标记它？
工作表（“nnn”）.listobjects（1）.name
？我得到一个错误，该方法或属性不受支持。@SJR，我不确定第一次尝试您的建议时我做错了什么，但在进一步的修补中，这个答案是绝对正确的。您想将它作为一个答案，以便我可以标记它吗？