Excel VBA：如何激活没有全名的工作簿？

Question

我打开了多个 Excel 工作簿。 我想激活一个名称中包含“Final”的工作簿。

示例：我同时打开了三个名为“Workbook1.xlsx”、“worKbook2.xlsm”和“workbookFinal.xlsx”的工作簿。

我的 VBA 代码在“Macro.xlsm”中。 使用 VBA 我想激活其中包含“Final”的工作簿。 仅供参考..所有工作簿都在不同的路径中。

Answer 1

循环遍历Workbooks集合，直到找到正确命名的工作簿：

Sub wbs()
    Dim wb As Workbook

    For Each wb In Workbooks
        If InStr(wb.Name, "Final") > 0 Then
            wb.Activate
            Exit For
        End If
    Next
End Sub

Answer 2

试试下面的代码，使用带有通配符*的Like运算符。

Option Explicit

Sub FindFinalWorkbook()

Dim wb As Workbook

' loop through all open workbooks
For Each wb In Application.Workbooks
    If wb.Name Like "*Final*" Then '< -- check if workbook name is Like *Final*
        wb.Activate
        Exit For
    End If
Next wb

End Sub