vba-将字符串与工作表名称

Question

很抱歉，但是我遇到了与Strings相比的问题，我无法弄清楚出了什么问题。

For I = 3 To WS_Count

    If "*rojekt*" = Worksheets(I).Name Then
    Set rng = Worksheets("Übersicht").Range("A2" & I - 1)
    rng.Value = ActiveWorkbook.Worksheets(I).Range("A2").Value
    End If

    Next I

它没有通过任何错误，但我希望if语句检查String是否是工作表名称的一部分然后做某事。在那个ws。

Answer 1

只需使用：

if Worksheets(I).Name Like "*rojekt*" Then

应该做的伎俩

Answer 2

您需要替换此行：

If "*rojekt*" = Worksheets(I).Name Then

用这个：

If InStr(1, Worksheets(i).Name, "rojekt", vbTextCompare) Then