Question

VBA问题：打开其他文件以后，可不可以用Windows("XXX.xls").Activate

当前已经打开了excel1,也已经用语句打开了另外一个excel2。因为我想从excel2里拷贝数据到excel1里，可不可以用上面的激活语句？
菜鸟求助

Answer 1

不可以。你当前必须锁定Excel2对应的对象才行。不然你即使写了这句话也不起作用。

追问

怎么锁定？excel2里只有表格

追答

Dim G_EXSHEET As Excel.Worksheet
Dim G_EXAPP As Excel.Application
Set G_EXAPP = New Excel.Application
Set G_EXBOOK = G_EXAPP.Workbooks.Add
Set G_EXBOOK = G_EXAPP.Workbooks.Open(App.Path & "\原本.xls")
G_EXAPP.Sheets("Sheet1").Select '------------锁定

Answer 2

可以的,事实上也就是这么做的. 

当然是可以的

实践是检验真理的唯一标准,

Sub aa()

    Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "22.xls"

    Range("A1:A3").Copy

    Windows("11.xls").Activate

    Range("A1").Select

    ActiveSheet.Paste

End Sub

 

 

将以上宏代码添加到11.xls的模块中,22.xls和11放在同一个目录下其中随便放一点数据.运行宏aa看看效果喽.

 

 

搞不懂百度推荐的依据是什么.多少错误答案被你们推荐了.

追问

我看你是用那个语句激活的11.xls,其实我想问能不能用这个语句激活22.xls（后来打开的excel)

追答

一样的 可以随意激活任意窗口。
Sub aa()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "22.xls"
Range("A1:A3").Copy
Windows("11.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("22.xls").Activate
MsgBox "当前激活窗口" & ActiveWorkbook.Name
End Sub

楼主你试试便知。

Answer 3

可以的，你试试看不就知道了