vb可引用多个excel程序来遍历吗

yutingyong

请教老师, 我电脑用的win10,  我在用vb引用已经打开的excel工作薄时 (不是vba), 采用的以下语句, 百分之90的时候是正常的, 少数时候引用失败,  这个时候我打开任务管理器, 就会发现有2个excel进程, 关闭1个只剩1个就能正常引用了,  我估计原因是我电脑上打开了2个excel程序, 用这句代码Set xlapp = GetObject(, "Excel.Application")  去引用excel程序对象恰好引用到没有工作薄的空excel程序所以失败, 关闭1个空的excel程序就正常了,  但是我每次都手动去关闭很麻烦,  我就尝试了1个办法, 引用后判断 xlapp.Workbooks.Count  结果是0, 就用xlapp.quit    ,   Set xlapp = Nothing, 想关闭这个没有工作薄的excel程序, 但是关闭不了, 下次还是引用到这个,   我又想第2种办法,  遍历引用这2个excel程序对象, 但引用程序对象的语句就只知道这1句 Set xlapp = GetObject(, "Excel.Application")  且仅能引用到1个, 不知道如何能引用到多个全部的excel对象,   请教老师, 有啥子办法能解决这个问题呢, 谢谢!!



        Set xlapp = GetObject(, "Excel.Application")  
        Debug.Print xlapp.Workbooks.Count       '正常时打印出1, 不正常时打印出 0
        Set wb = xlapp.ActiveWorkbook             '正常时能引用到工作簿, 不正常时结果为Nothing引用失败                  

Learner2022

我觉得问题可能出现在你的电脑上，我之前在一个公司里用的笔记本电脑就经常出现同时有多个线程的excel在运行，这个问题如果没有解决会给你带来比较大的麻烦，也许是那个笔记本电脑太老的原因吧，我在其他我的设备上都没有遇到这个问题

约定的童话

你的推测完全正确，在每次运行代码之前杀一遍excel进程就好了

WANT-T

你就没有考虑下为啥会有两个excel.appllication?有没有可能 是你的程序new出来的？

yutingyong

我知道有可能是我的程序新弄出来的, 因为我电脑上有时还有另外的vb制作的exe在运行, 创建excel对象之后, 好像要关闭销毁excel对象时  xlapp.Quit   有时不那么可靠,