Excel VBA代码来select打开的Excel文件

我已经通过各种网站进行了大量的search，但无济于事。

之前，我创build了一个简单的VBA来从自动生成的XLS中select由下面的软件创build的XLS。 这个excel没有任何文件types，因为它没有保存在任何地方，我不打算保存它。

Sub Test() Windows("All Jobs").Activate End Sub 

最近，软件生成新的文件名称“所有作业（0 – XX）”，XX可以是从1到100的任何数字。所以，上面的代码不再工作。 添加*没有帮助。

任何build议？ 提前致谢。 Zaiem

Answer 1

您可以通过Windows集合来检查每个窗口的标题。 尝试这个：

 Private Sub Test() Dim myWindow As Window For Each myWindow In Windows If Left(myWindow.Caption, 8) = "All Jobs" Then myWindow.Activate: Exit Sub Next myWindow End Sub 

Answer 2

您可以遍历Application （Excel）中的所有Workbooks ，并且如果当前工作簿的名称是Like "All Jobs" & "*" >>这是您所需的工作簿。

注意 ：确认您需要Activate工作簿，通常不需要。

码

 Option Explicit Sub Test() Dim WB As Workbook Dim AllJobSWB As Workbook For Each WB In Application.Workbooks If WB.Name Like "All Jobs" & "*" Then Set AllJobSWB = WB ' set the matched workbook Exit For End If Next WB ' if you must activate the workbook, use the line below AllJobSWB.Activate End Sub