在名称未知时激活非活动工作簿

Question

当工作簿的名称未知时，有没有办法使打开的(但非活动(工作簿处于活动状态？我想在一个工作簿中构建一个宏，该宏在运行时会打开另一个工作簿，然后在该工作簿上执行宏的其余部分。

此外，如果用户打开了多个工作簿，是否有办法从多个打开的非活动工作簿中进行选择？

提前感谢！

Answer 1

您可以循环遍历应用程序工作簿集合中的所有工作簿：

var wb as workbook
For Each wb In Application.Workbooks
If instr(1, wb.name, "hi") Then --activate a workbook if it's name has "hi" in it
wb.activate
End If
'or
If wb.name <> ThisWorkbook.name Then --find the first workbook that isn't this workbook
wb.activate
End If
Next

基本上，在循环中，您可以测试找到的每个工作簿(存储在wb变量中(，并根据要测试的任何属性激活它。这是我所能回答的具体问题，因为您没有描述您作为人类将如何确定应该激活哪个工作簿。你只说你不能通过它的名字来识别它。