工作表variables数组

根据文档，我可以定义如下的工作表的数组

Dim sheetsArray As Sheets Set sheetsArray = ActiveWorkbook.Sheets(Array("Sheet1", "Sheet2")) 

但是如果我的工作表是dynamic创build的，并且像下面这样的指针variables指向了什么呢？ 我怎样才能使他们的数组，以便我可以循环他们做同样的活动？

 Dim tempsheet1 As Worksheet Dim tempsheet2 As Worksheet Set tempsheet1 = Sheets.Add Set tempsheet2 = Sheets.Add Dim sheetsArray As Sheets Set sheetsArray = ActiveWorkbook.Sheets(Array(tempsheet1, tempsheet2)) ' Doesn't work For Each msheets In sheetsArray With msheets DO SOMETHING End With Next msheets 

Answer 1

由于您应该在数组中指定图纸名称，请更改

 Set sheetsArray = ActiveWorkbook.Sheets(Array(tempsheet1, tempsheet2)) 

至

 Set sheetsArray = ActiveWorkbook.Sheets(Array(tempsheet1.Name, tempsheet2.Name))