★如何获得多个excel进程下的所有已经打开的文件

xlsber

excel在单进程（也就是一个Excel实例）的时候，我们是可以通过下面代码来遍历得到所有打开的工作簿的，但是如果打开的工作簿分布在不同的 excel进程就无法得到了，有什么办法可以遍历所有excel进程下的所有已经打开工作簿吗？

Sub Test()
    Dim xlApp As Excel.Application
    Set xlApp = Application    '这里的applicaton仅仅是当前进程，如何将xlApp赋值给其他进程？
    For Each wb In xlApp.Workbooks
        Debug.Print wb.Name
    Next wb


End Sub

ggmmlol

跨进程，是比较麻烦的，需要用Windows API函数进行窗口查找。最好还是用同一个Excel进程打开多个工作簿。

xlsber

ggmmlol 发表于 2019-1-23 15:08
跨进程，是比较麻烦的，需要用Windows API函数进行窗口查找。最好还是用同一个Excel进程打开多个工作簿。

嗯，是得用API函数，可以通过API获取不同Excel进程的进程ID，实例句柄，如何将这些信息转化为xlapp对象呢？

ggmmlol

xlsber 发表于 2019-1-23 15:23
嗯，是得用API函数，可以通过API获取不同Excel进程的进程ID，实例句柄，如何将这些信息转化为xlapp对象呢 ...

我不知道你说的办法。
但我有一个笨办法，但是能通用：控制外部进程，向它发送WM信息，以执行你想要的命令，就像“按键精灵”这款软件一样。

xlsber

ggmmlol 发表于 2019-1-23 15:32
我不知道你说的办法。
但我有一个笨办法，但是能通用：控制外部进程，向它发送WM信息，以执行你想要的命 ...

找了一些文章看了下，这个有点像一个程序开了两个进程，其中一个进程要访问另一个进程中的对象，这个确实有点困难了，作罢，谢谢。

本来想通过遍历所有打开的文档来关闭所有需要关闭的文档。

xlsber

RemoteProcess之类的api，这研究下去得去搞内核去了，搞大了，哈哈哈

ggmmlol

xlsber 发表于 2019-1-23 15:46
找了一些文章看了下，这个有点像一个程序开了两个进程，其中一个进程要访问另一个进程中的对象，这个确实 ...

如果只是想关闭文档，那不如关闭窗口，这个用API是很容易的。