vba - 将图表表设置为工作表变量

Question

我的代码停在以下行:

Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets(vSheets(i, 1))

出现错误:

Run-time error 13, type mismatch

但是，在这条线上我可以输入:

? ThisWorkbook.Sheets(vSheets(i, 1)).Name

进入即时窗口并获得结果

Cashf

所以显然工作表是根据名称 vSheets(i, 1) 找到的。为什么我不能将其设置为工作表？ Cashf 是一个创建为工作表的图表。这些是与工作表不同类型的对象吗？

Answer 1

Sheets 是工作表和图表的集合。图表和工作表是不同类型的对象。您应该将 wrk 定义为变体。

以下示例打印工作簿中的所有工作表名称及其类型

Dim s As Variant
For Each s In ThisWorkbook.Sheets
    Debug.Print s.Name, TypeName(s)
Next