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

时间:2018-09-14 16:04:47

标签: excel vba for-loop each type-mismatch

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

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

' 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?

0 个答案:

没有答案