【高难度】系统进程打开了2个EXCEL，请教两个EXCEL进程之间如何进行数据交换？

veggieg

系统进程打开了2个EXCEL，请教两个EXCEL进程之间如何进行数据交换？
实验方法：
大家可以从【开始】里面打开EXCEL
从那里面打开几个EXCEL就有几个EXCEL进程
难题是这些EXCEL进程之间如何进行数据交换呢？
比如从【开始】打开3个EXCEL，但是它们之间无法遍历到其他的的EXCEL窗口。

EXCEL自身的VBA肯定无法解决这个问题的了，解决的方法大概只有2个？：
1. 设置EXCEL使之只能打开一个进程；
2. 调用API 本社区的API研究是在是非常厉害了，特来此宝地求助啊！

该问题在先前一贴还没解决，希望这次表述清楚了这个棘手的问题啊，希望高手指导啊！！小生不胜感谢！！

liucqa

我是这么想的，让一个application去访问另一个application的数据，这种行为貌似有点像病毒了

veggieg

liucqa 发表于 2012-3-27 18:26
我是这么想的，让一个application去访问另一个application的数据，这种行为貌似有点像病毒了

DEAR liucqa ^^

请问代码应该怎么写啊~！：）

veggieg

1楼的方法可以打开多个EXCEL进程 但是它们之间如何进行数据交换呢

sdrcxzy

用剪切板不行吗？我的意思是用第三方文件来存储数据，在每一个excel进程中去访问这个数据文件。数据文件需要自己定义，数据位置、校验方法以及数值。
我刚接触vba，纯属瞎想的。只能提供一个思路了。帮顶！

veggieg

sdrcxzy 发表于 2012-3-28 10:12
用剪切板不行吗？我的意思是用第三方文件来存储数据，在每一个excel进程中去访问这个数据文件。数据文件需要 ...

谢谢帮顶！

这样当然OK的，就是不知道如何调用API实现两个EXCEL进程之间的数据交换~！

hiyou

进程之间的交换，古老的工作是DDE，但那是AUTOMATION之前的技术，而取得进程的ID则要FINDWINDOW，这是API的事。
有一个简单的做法，就是GETOBJECT会按实例顺序打开进程实例，参考MS的说法
http://support.microsoft.com/kb/288902/zh-cn

具体来说，不管你用什么手段开了EXCEL的多个实例——这里你用手工在程序行上开了两个EXCEL进程——那么在任务管理器上可以看到两个EXCEL，也就是包含有两个APPLICATION自动化对象。
然后，简单一点的假设，如果这两个EXCEL是“空的”，它里面就是BOOK1和BOOK2，如果有文件（假定你打开了某文件XLS）则取得具体的字串
SET XL01=GETOBJECT(BOOK1,"EXCEL.APPLICATION)
SET XL02=GETOBJECT(BOOK2,"EXCEL.APPLICATION)
以上就取得了两个不同APPLICATION的实例对象
你可以对XL01和XL02分别进行WORKBOOKS.add、或OPEN然后衍生其它对象测试，当然最实在的是在WORKSHEET的RANGE里写个VALUE测试

这里有个问题就是，如果不确认打开的是BOOK1和BOOK2怎么办（不知道BOOK1,BOOK2还是BOOK3？）
但我个人的看法，你要不是手工打开，用代码打开的话，那段代码在生成EXCEL实例的时候，就应该抓住对象实例句柄了，除非你是两段不同的程序代码，互相没有接口的......

veggieg

hiyou 发表于 2012-3-29 10:33
进程之间的交换，古老的工作是DDE，但那是AUTOMATION之前的技术，而取得进程的ID则要FINDWINDOW，这是API的 ...

太好了！！终于等到知道这个问题的高手出现了！！

hiyou您好，文件名是可以通过代码找到的（假设是BOOK2），Set XL1 = GetObject("BOOK2", Excel.Application)请问是下面这样写吗？

Sub AAAA()
Dim XL1 As Object
Set XL1 = GetObject("BOOK2", Excel.Application)
Range("A1").Value = "11"
End Sub

我这样写出错了，“ACTIVEX 不见不能创建对象”，希望您指点下详细代码，非常感谢！！

Zamyi

for each w in workbooks不就可以访问了？！

hiyou

veggieg 发表于 2012-3-29 11:28
太好了！！终于等到知道这个问题的高手出现了！！

hiyou您好，文件名是可以通过代码找到的（假设是BOO ...

Set XL1 = GetObject("BOOK2", Excel.Application)
这一句有问题，黑体中，标准的写法是
GetObject("BOOK2","Excel.Application") '<= 类名要引起来

（不过我前面的示范也有问题，就是BOOK1和BOOK2没有加引号，结果会指向一个0变量）

再想了想，没有必要搞得这么复杂，改了一下
看下面的代码，你先打个两个实例，确认它们分别是BOOK1和BOOK2，如果是别的名字（BOOK3什么的）就改名

1. 
   
2. '这里注意一下，不管在哪里的VBA代码，
   
3. '都能抓到两个WORKBOOK的对象实例
   
4. set wrk2=getobject("book2")
   
5. set wrk1=getobject("book1")
   
6. '然后从两个WORKBOOK上引申到两个APPLICATION上
   
7. set xl1App=wrk1.Application
   
8. set xl2App=wrk2.Application
   
9. xl1app.range("a1")="hi,book1"
   
10. xl2app.range("a1")="hello,book2"
    

复制代码