Question

vba如何将指定的workbook激活为active

我打开了两个workbook，然后我想对其中一个进行操作的时候是不是要先让其变为activeworkbook？
Workbooks.Open Filename:=a
Workbooks.Open Filename:=b

我现在写的是Workbooks(a).Activate，想让a成为active，其中a为excel的完整路径，如c：\xxx\xxx\a
调试的时候提示说out of range
请问该怎么操作，急求谢谢

Answer 1

用Activate方法可激活，例如：
workbooks("Book1").Activate

关于Activate的相关知识：
应用于 Application、Document、InlineShape、OLEFormat、Pane、Shape、ShapeRange 和 Window对象的 Activate方法。
激活指定的对象。
expression.Activate
expression 必需。该表达式返回以上的一个对象。

Answer 2

你这个文件是打开的么？
还有Workbooks有根据name取Workbook的方法，name是文件名而不是绝对路径名的。

追问

那请问怎么获取它的文件名呢？

追答

你不知道文件名，那怎么确定要把那个窗口设置为激活呢？

Answer 3

dim wbA, wbB
Workbooks.Open Filename:=a
set wbA=ActiveWorkbook
Workbooks.Open Filename:=b
set wbB=ActiveWorkbook

......

wbA.Activate

wbB.Activate

追问

额。。提示说object required

Answer 4

Workbooks(a).Activate 这里的 a 不需要是完整路径，只要工作薄名称就行了

追问

那有什么办法获取workbook的名称么

追答

Set fso = CreateObject("Scripting.FileSystemObject")
a=fso.GetBaseName(完整路径字符串)

上面得到a的名称，或者直接像楼上的
set wbA=Workbooks.Open (a) ‘这里a 用全路径就行

wbA.Activate