excel - 解析表名称

Question

我有以下代码，我试图让它只查找包含“EMA-T * Lines PAF”的工作表。所以第一个和最后一个字符是相同的，但中间会改变。

Sub EMATLINES()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook  

wb.Sheets("EMA-T-LINES").Activate

Dim sumFormula As String


For Each ws In ActiveWorkbook.Worksheets

    If ws.Name Like Left("EMA-T", 5) & "*Lines PAF" And _ 'I also tried If ws.Name Like "EMA-T"* & "Lines PAF" And _
    InStr(1, ws.Name, "Summary", vbTextCompare) = 0 Then _

    sumFormula = sumFormula & "," & "'" & ws.Name & "'!C5"

Next

sumFormula = Mid(sumFormula, 2)
Range("C5").Select

Selection.Copy

Range("C5:N24").Select

Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _

    SkipBlanks:=False, Transpose:=False

 Application.CutCopyMode = False

 Range("B2").Select

End Sub

标签： excelvba