Процедура открывает несколько экземпляров Excel

Question

Я написал следующую процедуру, чтобы проверить приложение Microsoft Excel, если оно открыто. Процедура работает нормально, за исключением того, что после открытия рабочей книги и активации листа открывается второй экземпляр Excel.

Вот мой код:

Dim xlApp As New Excel.Application 
Dim xlBook As Excel.Workbook 
Dim xlWBName As String = "2011.1004.Compensation Template" 

For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses() 
    If p.ProcessName <> "EXCEL" Then 
     xlApp.Visible = True 
     xlBook = xlApp.Workbooks.Open("F:\Test Environment\Compensation Workbook\Compensation Workbook\bin\Debug\" & xlWBName & ".xlsx") 
     Dim xlSheet As Excel.Worksheet 
     xlSheet = CType(xlBook.Sheets("SummaryWorksheet"), Worksheet) 

     xlSheet.Activate() 
    End If 
Next 

Answer 1

Используйте метод GetObject найти уже открытый объект Application:

http://msdn.microsoft.com/en-us/library/e9waz863(v=vs.90).aspx

Dim xlApp As Excel.Application 

    Try 
     'get an existing excel.application object 
     xlApp = GetObject(, "Excel.Application") 
    Catch ex As Exception 
     'no existing excel.application object - create a new one 
     xlApp = New Excel.Application 
    End Try 

    Dim xlBook As Excel.Workbook 
    Dim xlWBName As String = "2011.1004.Compensation Template" 


    xlApp.Visible = True 
    xlBook = xlApp.Workbooks.Open("F:\Test Environment\Compensation Workbook\Compensation Workbook\bin\Debug\" & xlWBName & ".xlsx") 
    Dim xlSheet As Excel.Worksheet 
    xlSheet = CType(xlBook.Sheets("SummaryWorksheet"), Worksheet) 

    xlSheet.Activate()