excel - 对于包含不同类型的组的每个下一个循环 VBA Excel 中的类型不匹配

Question

我正在 Excel 中编写一个宏，以提取在不同工作簿中的各个工作表上找到的特定信息。唯一的问题是工作表的命名并不总是完全一致。然而，它们的名称确实包含“ExpandedEngReport”的公共(public)字符串。为了解决这个问题，我尝试使用 FOR 循环和 Like 命令来搜索包含此字符串的工作表，以将工作表名称与“ExpandedEngReport”的部分字符串进行比较。

这段代码返回类型不匹配错误。我认为这可能是由于在 ActiveWorkbook.Sheets 组中找到了各种类型(参见附图 1 )，其中 For 循环正在搜索。

' Find and Select ExpandedEngReport Worksheet
Dim ws As Worksheet
Dim flg As Boolean
For Each ws In ActiveWorkbook.Sheets
    If ws.Name Like "*ExpandedEngReport*" Then
        ws.Select Not flg
        flg = True
        GoTo CONTINUE
    End If
Next ws

标签CONTINUE指向我在找到并选择此工作表后要执行的一组操作。

The ActiveWorkbook.Sheets Group contains many different types of objects. Could this be linked to the issue? Is there any way arround this?

Answer 1

您已调暗 Dim ws As Worksheet 并通过 Sheets 集合将其用作循环变量，can contain both Chart or Worksheet objects

所以修复是

Dim ws As Worksheet
...
For Each ws In ActiveWorkbook.Worksheets