用数组装载工作表名称，for循环激活工作表失效？

stevefigo

大神们，请教一下，我想用数组装起指定的工作表名称，在for(arr(n))循环时用上，但发现不行，是什么原因呢？
目的：能成功用for循环，激活指定的工作表

代码如下：
Sub 多部门数据采集()
'Sheets("技术中心").Activate '成功的


arr = Array("技术中心", "业务中心")


For Each n In arr
    Sheets(arr(n)).Activate
Next

End Sub








报错 13 类型不匹配

山菊花

在 For Each n In arr 语句中，变量n是数组arr的元素。

    Sheets(arr(n)).Activate改为：
    Sheets(n).Activate

该程序功能用下面的语句，作用相同：
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Activate
Next
代码中，Worksheets代表工作表集合，sh是一个工作表。
   

cnmlgb9998

1. for each ar in arr
   
2.     sheets(ar).activate
   

复制代码

   

stevefigo

cnmlgb9998 发表于 2020-2-3 19:08

突然短路想不到，谢谢了哈

stevefigo

山菊花 发表于 2020-2-3 18:42
在 For Each n In arr 语句中，变量n是数组arr的元素。

    Sheets(arr(n)).Activate改为：

谢谢详细解释！突然短路想不到，谢谢呀

stevefigo

自己后来想到另一个处理，效果一样

For n = 0 To UBound(arr) '注意array下标从0开始
Sheets(arr(n)).Activate

liulang0808

arr = Array("技术中心", "业务中心")


For n=lbound(arr) to ubound(arr)
    Sheets(arr(n)).Activate
Next

stevefigo

liulang0808 发表于 2020-2-3 21:13
arr = Array("技术中心", "业务中心")

嗯嗯，成功，谢谢呢！