Appactivate的诡异错误

amberer

希望在Word中控制Excel提取数据，最后再回到Word中，这其中涉及窗口焦点的转移。拟使用Appactivate语句，但是十分奇怪的是，
利用Appactivate语句把窗口从Word切至Excel时没有任何问题，但反过来却无法执行，即
Dim xlapp As Object
Set xlapp = GetObject(, "Excel.Application")
AppActivate xlapp.Caption
可正常执行，
但反过来
Dim xlapp As Object
Set xlapp = GetObject(, "Word.Application")
AppActivate xlapp.Caption
则出现错误（运行时错误‘5’ 无效的过程调用或参数）
事实上，更简略些 Appactivate "Microsoft Excel" 可正常运行 而 Appactivate "Microsoft Word"则出现错误。

liuhoubin168

在excel和word之间，可能是你应该指明是excel. 对象 和 word.对象。

loquat

1. Dim xlApp As Object
   
2. Set xlApp = GetObject(, "Excel.Application")
   
3. AppActivate xlApp.Caption
   
4. '------------------------------------------------------
   
5. Dim wdApp As Object
   
6. Set wdApp = GetObject(, "Word.Application")
   
7. AppActivate wdApp.Caption

复制代码