VB net 2008 and Office 2003 automation. GetObject and multiple Excel applications.

'*************************************************************************************************
'**  Example of VB net test routine using GetObject and Excel                              **
'**  Very usefull for programmers who did not know how to bind to open Excel  **
'*************************************************************************************************
 
'Project References :
'   Microsoft.Office.Interop.Excel  Version 11  (Office 2003)
' or
'   Microsoft.Office.Interop.Excel  Version 12  (Office 2007)
 
Imports Microsoft.Office.Interop        'Needed for any Excel operations
 
Public Class Form1
    Dim xlApp As Excel.Application              'Dim xlApp As New Excel.Application would open Excel
    Dim xlWB As Excel.Workbook = Nothing
 
    'Try binding to the chosen Excel application
    Private Sub BindBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindBtn.Click
 
         Dim WbookPath As String = "--- put path\name workbook here ---"
     
         Try
             xlApp = GetObject(WbookPath).Application
         Catch ex As Exception
             MessageBox.Show("ex.Message: " & ex.Message & vbCrLf & "ex.Source: " & ex.Source)
         End Try
 
         If xlApp Is Nothing Then
             MessageBox.Show("Excel loaded but not the correct book!")
             Exit Sub
         End If
 
         'Prove it is the correct Excel
	 Dim Message as string
         For Each Me.xlWB In xlApp.Workbooks
             Message = Message & "W/B name = " & Me.xlWB.Name 
             Message = Message & "   No of W/S = " & Str(Me.xlWB.Worksheets.Count)
	     MsgBox(Message)
         Next
         xlApp.WindowState = Excel.XlWindowState.xlNormal
    End Sub
End Class