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

veggieg

你真的好犀利啊！！！我怎么个搜索页找不到这些知识呢！！！不知道你是怎么学习到的！！！！

你这样的人不去大学做教授实在是太可惜了！！

liucqa

hiyou 发表于 2012-3-30 13:19
唔，这有一个问题，你想跨过另一个WORKBOOK访问对方的子程序？

在同一个工作簿里的SUB和FUNCTION，你可以 ...

在一个application里面可以用下面的语句来跨工作簿访问sub
Application.Run "'" & newWB.FullName & "'！sheet1.test"

在不同的application里面上述语句是不是也要先引用呢？

veggieg

请教下

windows().activate

这句应该如何使用？我试了很多方法都不行哦~~！

另外运行的时候是后台运行的，没看到页面的跳转，如果希望看到页面跳转应该怎么写好呢？ ^^

veggieg

DEAR hiyou 再请教下您 ^^

xl1app.Workbooks("book1").Sheets("sheet1").Select
xl2app.Workbooks("book2").Sheets("sheet2").Select

xl1.windows("book1").activate

等，好像激活窗口到前台都不可以哦~~当然前台后台都是一样的 ^^

不过想不明白为什么激活不了~~不知道我对原理的哪里的理解错了~~

Moneky

hiyou 发表于 2012-3-30 13:19
唔，这有一个问题，你想跨过另一个WORKBOOK访问对方的子程序？

在同一个工作簿里的SUB和FUNCTION，你可以 ...

谢谢大侠分享，收藏学习中，谢谢！

veggieg

hiyou 发表于 2012-3-30 13:19
唔，这有一个问题，你想跨过另一个WORKBOOK访问对方的子程序？

在同一个工作簿里的SUB和FUNCTION，你可以 ...

以下代码在两个进程的工作薄已经打开的情况下测试通过,
非常感谢hiyou同志非常耐心详尽和系统而全面的指导！！

但是又有一些小问题，出现在另一个工作薄没有打开的情况下。
当然可以使用另外的代码处理，但是我希望能更完美一些，
直接在你的代码处理，而不必调用API遍历进程判断目标工作薄
是否已经打开，再使用OPEN这么繁琐的（虽然已经写好的）代码。

因为简化代码可是非常珍贵的知识啊！！简洁的代码非常让人内心舒坦^^

附上代码：（按hiyou的指导写的，与调用API丛林密布般的代码形成鲜明对比！！）


Sub 进程间数据交换()
Call 复制数据
Set wrk2 = GetObject("D:\DATA表格\TTT.xlsm") '<---不明白为什么使用工作薄名称无法激活
                                                                            '难道我写错名字了吗？可是已经试了很多名字了哦~~
'Set xl1app = wrk1.Application'<---这个使用会出错 所以去掉了 我才明白原来是第三个进程才需要这个
Set xl2app = wrk2.Application
xl2app.Visible = ture      '<-----请教如果是未打开的话，不知道为什么这句还是不能visible，
                                    '而是以看不见的方式打开的 双击原文件会提示文件已经打开，
                                    '重新打开会丢失数据的那几句话，如恶化才能让它可视？

Call xl2app.Worksheets("明细").将剪贴板内容黏贴         '<------请教如果是未打开的话，
                                   '这句会出错，请问应该如何修改？因为他们是在同一个
                                   '进程了，但是工作薄之间的宏的调用方式不知道在这个
                                   '情况下应该怎么写？
End Sub

hiyou

liucqa 发表于 2012-3-30 22:34
在一个application里面可以用下面的语句来跨工作簿访问sub
Application.Run "'" & newWB.FullName & "' ...

我在03做了一次测试,同一实例开两个新的WORKBOOK,BOOK1和BOOK2,没有存档的情况下
BOOK2模块允许这样调用
Application.Workbooks("book1").Worksheets("sheet1").test

不过,楼主的问题里,他明显是07以上的版本,我试着用07调用,有一个问题是,07似乎会限制新工作簿安全性,包括APPLIATION.RUN的测试也失败(已经存档的再OPEN就没问题)
___________________
至于EXCEL多实例的情况,它们不能认出另一个实例里的宏,但前面说过,只要成功得到两个WORKBOOK的实例对象,再引用它们的上一级APPLICATION对象,这两个APPLICATION可以分别调用各自的SUB.
set xlApp1=getobject("book1").application
set xlApp2=getobject("book2").application
xlapp1.run ....
xlapp2.run ....

其中会造成困惑的是窗口和界面,用户窗口,包括ACTIVE切换\MSGBOX和其它界面,多EXCEL实例是各自切换,即使调用SUB和FUNCTION,也各自为政.

hiyou

一般来说，“正常的”（MS推荐的操作）是WORKBOOKS.OPEN和WORKBOOKS.ADD
直接指定PATH用GETOBJECT得到XLS(XLSM)，它是不可见的对象，你要用GETOBJECT的话，这么操作好了
注意后面两句

1. strXlsName="D:\DATA表格\TTT.xlsm"
   
2. set wrkX=getobject(strXlsName)
   
3. wrkx.application.visible=true   '令APPLICATION可见
   
4. wrkx.application.windows(wrkX.name).Visible=True  '令WORKBOOK可见
   

复制代码

上面要连做两个VISIBLE=TRUE，是因为GETOBJECT（“某个路径的XLS”）得到的是一个WORKBOOK对象，关联得到的APPLICAON和它本身的WINDOW都是VISIBLE都是FLASE，不管哪一个不可见，都不能显示出BOOK。

话说回来，以前实际的应用里，如果我要在其它非OFFICE非EXCEL的程序进程里打开EXCEL进程，首先是CREATEOBJECT(“EXCEL.APPLICATION")而不是GETOBJECT，这样得到的是一个APPLICATION对象，它的VISIBLE属性也是FALSE，但跟着就是WORKBOOKS.OPEN，它是跟着APPLICATION属性一起隐藏的，没那么复杂。

veggieg

hiyou 发表于 2012-3-31 22:06
一般来说，“正常的”（MS推荐的操作）是WORKBOOKS.OPEN和WORKBOOKS.ADD
直接指定PATH用GETOBJECT得到XLS( ...

hiyou你的测试真是很细腻啊，还包含了不同的版本 ^^  居然还从中推理出我使用的不是03版本，科学和逻辑的威力啊 ^^

问题基本已经完全解决了，非常感谢您一直以来的教导和非常珍贵知识的分享！！
可是为了求个甚解，还想请教你一个问题 : )

我按你的指导写代码如下：

Sub 进程间数据交换()
Call 复制数据
str2lsName = "D:\DATA表格\TTT.xlsm"
Set wrk2 = GetObject(str2lsName)
wrk2.Application.Visible = True '令APPLICATION可见
wrk2.Application.Windows(wrk2.Name).Visible = True '令WORKBOOK可见
'Set xl1app = wrk1.Application
Set xl2app = wrk2.Application

xl2app.Range("D26") = "112411" & xl2app.Range("D26")   '<------这句在目标EXCEL（str2lsName = "D:\DATA表格\TTT.xlsm"）没有打开而运用该段代码打开目标EXCEL第一次的时候运行没有任何问题 ^^   可是我尝试进行第二次运行的时候，不知道是什么原因导致这个"112411"写在了宏所在的工作簿里而不是目标EXCEL里

xl2app.Run "'TTT.xlsm'!sheet3.将剪贴板内容黏贴"               '<------这句在目标EXCEL（str2lsName = "D:\DATA表格\TTT.xlsm"）没有打开而运用该段代码打开目标EXCEL第一次的时候运行没有任何问题 ^^   可是我尝试进行第二次运行的时候，不知道是什么原因无法运行了。我尝试了修改这个语句但是试了很多方法都不行呢 所以我写了上面这句测试用，发现应该是代码运行的对象指向向了错误的地方

End Sub

我尽量再描述一次，就是这段代码在目标EXCEL已经打开的情况下，保存该宏的EXCEL运行代码没有任何问题，非常感谢hiyou的代码！！：）
不过有个小问题我不能明白的是，就是在目标文件没有打开的情况下会这样：
1. 第一次运行没有任何问题
2. 如果在第一次成功运行后再想运行第二次却不可以，会报错

我看到在目标文件没有打开的情况下这段代码打开了的目标EXCEL和保存该宏的EXCEL是在一个EXCEL进程里的，希望再请教下您代码第二次不能运行到底原因呢。我想不到呢。看VBE窗口我认为他们是在同样的application里，不知道是不是Set xl2app = wrk2.Application又让他们不完全在同一个EXCEL进程里呢？根据你之前的指导，应该还是Application的问题吧，没有在代码交代清楚导致程序不知道代码的指向导致的吧，可是我只能想到这么远而已了~~

hyan888

先做个标记，支持一下