Excel и позднее связывание

Imports System.Runtime.InteropServices
Imports System.Reflection
 
Dim sAppProgID As String = "Excel.Application"
Dim oExcel As Object = Marshal.GetActiveObject(sAppProgID)
Dim sAppProgID As String = "Excel.Application"
‘Получаем ссылку на интерфейс IDispatch
Dim tExcelObj As Type = Type.GetTypeFromProgID(sAppProgID)
‘Запускаем Excel
Dim oExcel As Object = Activator.CreateInstance(tExcelObj)
 
Dim oWorkbooks As Object = oExcel.GetType.InvokeMember("Workbooks", BindingFlags.GetProperty, Nothing, oExcel, Nothing) 
' Открытие файла d:\book1.xls Заносим в массив параметров имя файла
Dim args() As Object = New Object((1) - 1) {}
args(0) = "D:\book1.xls"
Dim oWorkbook As Object = oWorkbooks.GetType.InvokeMember("Open", BindingFlags.InvokeMethod, Nothing, oWorkbooks, args)

Dim objApp As Object
Dim objBook As Object
Dim objBooks As Object
……………………….
' Instantiate Excel and start a new workbook.
objApp = CreateObject("Excel.Application")
objBooks = objApp.Workbooks.Open("D:\book1.xls ")