Ссылки на ВСЕ Excel.Application (VS2008, VB .Net, Excel2002/2003)

[пасечник]

Хотел запросто получить ссылки на все Excel.Application.
По наивности думал как-то пробиться через Process.GetProcessesByName("excel") .
Мало того, что задуманное не получилось – удивило то, что
1. для скрытых Excel в VB .NET «Process.MainWindowHandle = 0» !

Взял API FindWindowEx и AccessibleObjectFromWindow.
FindWindow видит все хэндлы. Но
2. чтобы получит ссылку на Excel, используя AccessibleObjectFromWindow, нужен хэндл окна книги – окна класса "EXCEL7".

Без окон "XLMAIN" и "XLDESK" Excel'я не может быть, но при этом окна "EXCEL7" может (если нет открытых книг) не быть вовсе! Как получить ссылку на такой Excel? Буду согласен с теми, кто (как и я) считает, что такие Excel надо сразу убивать… С этого момента можно перейти к еще одной особенности:
3. если Excel создан с помощью «New Excel.Application», почему-то его окна по отношению к (например) API «ShowWindow» или «SendMessage», порой ведут себя не как другие окна "XLMAIN"… Другие – это открытые «руками» или командой «Open»…

Бардак! Если никто не поможет получить ссылки на все/любые Excel.Application, пожалуюсь главврачу…

[doober]

Надо спасать от врачей

        Dim hwnd As Integer

        Dim Proc, Processes() As Process


        Processes = Process.GetProcessesByName("excel")

        For Each Proc In Processes
            hwnd = Proc.Id
   
            combo.Items.Add(hwnd)



        Next

Таким образом получаю список процессов в комбобокс ,и когда закнчиваю работать с EXCEL убиваю его принудительно,другие методы не помагают

Вопрос интересный,надо покопать в этом направлении

[пасечник]

Нужны-то не процессы, а ссылки на Excel.Application, чтобы использовать свойства/методы Excel.
VB9

Public Class Form1
    Dim xl As Excel.Application = Nothing

    Declare Function AccessibleObjectFromWindow Lib "oleacc" _
    (ByVal Hwnd As IntPtr, ByVal dwId As Int32, ByRef riid As Guid, _
    <MarshalAs(UnmanagedType.IUnknown)> ByRef ppvObj As Object) As Integer
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
(ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As IntPtr, ByVal wMsg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As IntPtr, ByVal y As Integer) As Boolean

    Sub XLref()
        Dim ob As Object = Nothing
        Dim XLMAIN, XLDESK, EXCEL7 As IntPtr
        Dim G = New Guid("{00020400-0000-0000-C000-000000000046}") 
        XLMAIN = FindWindowEx(0, 0, "XLMAIN", vbNullString)
        While XLMAIN <> 0 
            XLDESK = FindWindowEx(XLMAIN, 0, "XLDESK", vbNullString)
            EXCEL7 = FindWindowEx(XLDESK, 0, "EXCEL7", vbNullString)
            If EXCEL7 = 0 Then
                SendMessage(XLMAIN, 16, 0, 0) 'убить пустой EXCEL
            Else 
                ShowWindow(XLMAIN, 8) : ShowWindow(XLDESK, 8) 'SW_SHOWNA=8
                AccessibleObjectFromWindow(EXCEL7, &HFFFFFFF0, G, ob)
                xl = ob.Application
            End If
            XLMAIN = FindWindowEx(0, XLMAIN, "XLMAIN", vbNullString)
        End While
    End Sub
End Class

Хотелось это выполнить покомпактнее, без API (максимально на VB)

[Pabloa]

Будьте добры, подскажите пожалуйста, если я создаю объект "excel.application", как мне узнать Id процесса, с учетом того, что на момент создания другие процессы excel могли быть запущены, то есть Process.GetProcessesByName("EXCEL") .id может найти не тот процесс?

[IgorGO]

Set xlApp = CreateObject("Excel.Application")

[Pabloa]

Сообщение от IgorGO

Set xlApp = CreateObject("Excel.Application")

Я так и создаю. Только как теперь узнать ID созданного процесса?

[Aleksandr H.]

ну а строкой

xlApp.quit

етот процесс же должен закрыться. "Случайно" другой процесс не закроете

[IgorGO]

однако... (у меня на компьютере) так:

xlID = Shell("C:\Program Files\Microsoft Office\Office12\EXCEL.EXE",1)

путь только Ваш напишите
и зачем это нужно? когда xlApp - это приложение со всеми его свойствами и методами. что такого особого Вам даст xlID???