关于for each中使用条件的进行程序调用不能完整执行的问题

想飞的牛

Sub p1()
Dim a As Workbook

For Each a In Workbooks

If a.Name = "11.xlsx" Then
Call t1
ElseIf a.Name = "22.xlsx" Then
Call T2
ElseIf a.Name = "33.xls" Then
Call t3
End If
Next

End Sub
求教一下老师们，我这个为什么不能完整的对程序中的3个文件执行，全部是在第一个活动工作簿执行调用程序

maditate

For Each a In Workbooks   此句是文件集中的每个文件都有一次进入下面循环体的机会。当文件执行到下面的循环体后碰到了判断句，如果符合下面某个条件，就调用其它子程序一次，如果不符合条件则不调用子程序。

最好上传附件，在附件中说明当前有那几个文件。其中那些文件是愿望进入循环体后期望调用子程序的。

huang1314wei

前提条件是你所有打开的workbook是在一个application下面也就是在一个进程里面才行

想飞的牛

  If a.Name = "11.xlsx" Then
        Workbooks("11.xlsx").Activate
        Call t1
这个我用上面的之后，就可以执行了，需要激活，应该是huang1314wei版主说的一个APPLICTION下面