vba不能引用工作薄

ziontyc

Sub aa()
Workbooks(2).Activate
End Sub
引用第一个可以，2和3都不行，换成文件名引用也不行。提示下标越界。
这个问题都搞了三天了。高手指点

cui26896

要引用的工作簿全都打开了吗？没有打开是肯定无法引用的。一定要打开了的工作簿才能activate.

ionline

FilesToOpen 将需要的工作簿打开后引用吧

金樽空对月

如果要设置为当前活动工作薄未打开的话，就得先用workbooks open 将它打开，然后再把它设置为activate,如果打开后没有显示出来，
就用Application.WindowState = xximized 把它 的窗口最大化。
未打开如下：
Sub opens()
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "\工作薄名称.xlsm")
wb.Activate
Application.WindowState = xlMaximized
End Sub


如果你的workbooks(2)已经打开，就是没有显示在最前面或者最大化就用如下：
Workbooks(2).Activate
Application.WindowState = xlMaximized