Excel VBA中wsArray为何需声明为Variant且不能直接遍历数组？

问题1：为什么wsArray必须声明为Variant数据类型？ #

有两个核心原因：

• VBA内置的Array()函数返回值本身就是*Variant*类型的动态数组，如果你将wsArray声明为其他类型（例如定长String数组、Integer数组），将Array()的返回值直接赋值时会触发「类型不匹配」错误。
• Excel对象模型中，Worksheets集合的索引参数设计为接受*Variant*类型输入：既可以传入单个工作表的名称/数字索引，也可以传入包含多个工作表名/索引的Variant数组，一次性匹配到多个工作表组成临时集合。

问题2：为什么不能直接使用For Each ws In wsArray执行遍历？ #

• 你定义的wsArray中存储的是"Sheet2"、"Sheet3"这类字符串类型的工作表名称，并非真正的Worksheet对象。而你已经提前将循环变量ws声明为Worksheet类型，直接遍历数组时会尝试将字符串赋值给对象变量，必然触发类型不匹配错误。
• 你代码中Worksheets(wsArray)的写法，实际是基于传入的名称数组，返回一个由对应工作表组成的Sheets集合，集合内的每个元素都是合法的Worksheet对象，因此可以用For Each遍历赋值给ws。

额外提示：你提供的示例代码存在笔误，ws = Array("Sheet2", "Sheet3")应修正为wsArray = Array("Sheet2", "Sheet3")，否则会出现对象变量赋值错误。修正后的可运行参考代码如下：

Sub TestWorksheets()
    Dim ws As Worksheet
    Dim wsArray As Variant
    
    wsArray = Array("Sheet2", "Sheet3")
    
    For Each ws In Worksheets(wsArray)
        ' 此处编写业务逻辑
        Debug.Print ws.Name
    Next ws
End Sub

内容的提问来源于stack exchange，提问作者D3merzel