'работаем с Excel
                'открываем шаблон и запускаем расчет на выполнение
                Dim sAppProgID As String = "Excel.Application"
                Dim tExcelObj As Type = Type.GetTypeFromProgID(sAppProgID)
                oExcel = Activator.CreateInstance(tExcelObj)

                args( 0 ) = True
                oExcel.GetType().InvokeMember("Visible", BindingFlags.SetProperty, Nothing, oExcel, args)
                (oExcel.GetType().InvokeMember("DisplayAlerts", BindingFlags.SetProperty, Nothing, oExcel, args))

                'получаем доступ к колекции книг
                oWorkbooks = oExcel.GetType.InvokeMember("Workbooks", BindingFlags.GetProperty, Nothing, oExcel, Nothing)
                'открываем книгу
                args( 0 ) = strFileName
                oWorkbook = oWorkbooks.GetType.InvokeMember("Open", BindingFlags.InvokeMethod, Nothing, oWorkbooks, args)

                'запускаем макрос на исполнение
                ReDim args( 1 )
                args( 0 ) = "'" & strFileName & "'!ИмяМакроса"
                oExcel.GetType.InvokeMember("Run", BindingFlags.InvokeMethod, Nothing, oExcel, args)

                'получаем ссылку на коллекцию листов книги
                oWorksheets = oWorkbook.GetType.InvokeMember("Worksheets", BindingFlags.GetProperty, Nothing, oWorkbook, Nothing)

                'берем лист "НужныйЛист" первый по счету
                ReDim args( 0 )
                Dim strWorkSheetName As String = ""
                args( 0 ) =  1 
                Do
                    strWorkSheetName = ""
                    oWorksheet = oWorksheets.GetType.InvokeMember("Item", BindingFlags.GetProperty, Nothing, oWorksheets, args)
                    strWorkSheetName = CType(oWorksheet.GetType.InvokeMember("Name", BindingFlags.GetProperty, Nothing, oWorksheet, Nothing), String)

                'сохраняем книгу
                oWorkbook.GetType.InvokeMember("Save", BindingFlags.InvokeMethod, Nothing, oWorkbook, Nothing)

                'получаем ссылку на ячейку (точнее на объект Range("B3"))
                args( 0 ) = "A1"
                oRange = oWorksheet.GetType.InvokeMember("Range", BindingFlags.GetProperty, Nothing, oWorksheet, args)
                'получаем сообщение об ошибке, если таковое есть
                Dim strError As String = ""
                strError = CType(oRange.GetType.InvokeMember("Value", BindingFlags.GetProperty, Nothing, oRange, Nothing), String)

                'закрываем книгу без принятия всех изменений
                args( 0 ) = False
                oWorkbook.GetType.InvokeMember("Close", BindingFlags.InvokeMethod, Nothing, oWorkbook, args)

                'освобождаем переменные
                If Not oRange Is Nothing Then Marshal.ReleaseComObject(oRange)
                oRange = Nothing
                If Not oWorksheet Is Nothing Then Marshal.ReleaseComObject(oWorksheet)
                oWorksheet = Nothing
                If Not oWorksheets Is Nothing Then Marshal.ReleaseComObject(oWorksheets)
                oWorksheets = Nothing
                If Not oWorkbook Is Nothing Then Marshal.ReleaseComObject(oWorkbook)
                oWorkbook = Nothing
                If Not oWorkbooks Is Nothing Then Marshal.ReleaseComObject(oWorkbooks)
                oWorkbooks = Nothing


        'закрываем Excel
        If Not oExcel Is Nothing Then
            oExcel.GetType.InvokeMember("Quit", BindingFlags.InvokeMethod, Nothing, oExcel, Nothing)
        End If

        'Уничтожение объекта Excel.
        Marshal.ReleaseComObject(oExcel)

        oExcel = Nothing

        'Вызываем сборщик мусора для немедленной очистки памяти
        GC.Collect()
        GC.GetTotalMemory(True)