C# と VB.NET の質問掲示板

お世話になります。
現在、VB2008にて、Windowsフォームの内容をExcelに書き込むという処理をしています。
既存のExcelファイルを開き、DataGridViewとTextBoxの値を書き込んだ後、別名を付けて保存するという
仕様にするためにソースを書いたのですが、タスクマネージャーで確認すると、プロセスが残っており、
正しく終了することができません。
大変申し訳ないのですが、以下のソースの中から、解放処理について間違っている部分をご指摘していただけないでしょうか。
以下が、そのソースになります。
Private Sub Sample()
   Dim xlApp As Excel.Application
   Dim xlBook As Excel.Workbook
   Dim xlSheet As Excel.Worksheet
   '---------------------
   ' EXCELファイルを開く
   '---------------------
   xlApp = CreateObject("Excel.Application") 'Application生成
   xlBook = xlApp.Workbooks.Open("C:\TEMP\sample.xls")
   xlApp.Visible = True          
   xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet

   '--------------
   ' シートの編集
   '--------------
　 'TextBoxの値を特定のCellに書き込む。
   Dim xlCells As Excel.Range = xlSheet.Cells
   Dim xlCell As Excel.Range = xlCells(3, 1)

   xlCell.Value = TextBox1.Text

   Dim xlce As Excel.Range = xlCells(3, 2)
   xlce.Value = TextBox2.Text

   Dim xlcel As Excel.Range = xlCells(3, 12)
   xlcel.Value = TextBox3.Text

	'DataGridViewの内容をExcelに書き込む。
        Dim X As Integer = 0
        Dim Y As Integer = 0
        'ループでDataGridViewの指定した範囲の値を書き込む
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            For j As Integer = 0 To DataGridView1.Columns.Count - 1
                If j < 16 Then
                    '書き込みは6行目から行う。
                    If j <> 6 Then
                        DirectCast(xlSheet.Cells(i + 6, j + 1), Excel.Range).Value = DataGridView1(j, i).Value
                    End If
                End If
                
		'特定の位置のCellの値が2の場合は、その行の色を変更する。
                If DataGridView1(5, i).Value = 2 Then
                    xlSheet.Range(xlSheet.Cells(i + 6, 1), xlSheet.Cells(i + 6, 16)).Interior.ColorIndex = 45
                ElseIf DataGridView1(5, i).Value = 3 Then
                    xlSheet.Range(xlSheet.Cells(i + 6, 1), xlSheet.Cells(i + 6, 16)).Interior.ColorIndex = 37
                End If
            Next j
        Next i

   '保存時の問合せを非表示に設定。
   xlApp.DisplayAlerts = False
   'Worksheet を名前をつけて保存します。
   xlSheet.SaveAs("C:\TEMP\test.xls")

   MRComObject(xlCells)
   MRComObject(xlCells)

   MRComObject(xlCells)
   MRComObject(xlCells)

   MRComObject(xlCells)
   MRComObject(xlCells)

   MRComObject(xlSheet) 'xlSheet の解放
   MRComObject(xlBook)  'xlBook の解放
   xlApp.Quit() 'Excelを閉じる 
   MRComObject(xlApp)   'xlApp を解放

   '保存するExcelファイルの解放・終了処理
        
   '解放処理を行う
   MRComObject(xlSheet) 'xlSheet の解放
   MRComObject(xlBook)  'xlBook の解放
   'xlApp.Quit() 'Excelを閉じる 
   MRComObject(xlApp)   'xlApp を解放

   '*********************
   '      解放処理
   '*********************
   xlCells
   xlSheet = Nothing
   xlBook = Nothing
   xlApp = Nothing

End Sub
長文になってしまい、申し訳ありません。
サイトなどを見て、違う書き方やなどを試しても見たのですが、どうしても原因や間違った部分が分かりませんでした。
大変恐縮ですが、よろしくお願いいたします。

■No36331 (魔界の仮面弁士 さん) に返信
回答ありがとうございます。
>>   xlApp = CreateObject("Excel.Application") 'Application生成
> 参照設定しているのだから、
> 　xlApp = New Excel.Application()
> で良いのでは無いかと。
> CreateObject だと、Object 型になってしまいますし。

最初にExcelを開くソースをサイトで見つけたときに、そのままコピーしてしまいました。

指摘していただいた部分を以下のように修正をしました。

xlApp = New Excel.Application()'Application生成
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook = xlBooks.Open("C:\TEMP\sample.xls")
xlApp.Visible = True          'EXCELの表示
xlSheet = DirectCast(xlBook.ActiveSheet, Excel.Worksheet) 'Worksheet

xlBookを変数として宣言して行うこととしました。
ですが、やはりプロセスが残ってしまいます。
>Dim a As Excel.Range = DirectCast(xlCells(i + 6, j + 1), Excel.Range)
>a.Value = DataGridView1(j, i).Value
>Marshal.ReleaseComObjcet(a)
の部分ですが、こちらのソースの、「Marshal.ReleaseComObjcet(a)」
というのは、書き込みを行っているループ内で書くのでしょうか、

今までは、書き込み → 解放 という形にしていたのですが・・・

>>   MRComObject(xlCells)
> MRComObject の実装が書かれていないので(推測はつきますが)、判断に困りますが,
> 何故、ここに 6 連続で xlCells を渡しているのでしょうか?

すみません、そこは間違って連続で貼り付けてしまっていました。

> MRComObject の実装が書かれていないので(推測はつきますが)、
こちらが、ソースになります。
　　''' <summary>
    ''' COMオブジェクト開放処理
    ''' </summary>
    ''' <remarks>
    ''' 使用したCOMオブジェクトの開放を行う
    ''' </remarks>
    Private Sub MRComObject(Of T As Class)(ByRef objCom As T, Optional ByVal force As Boolean = False)
        If objCom Is Nothing Then
            Return
        End If
        Try
            If System.Runtime.InteropServices.Marshal.IsComObject(objCom) Then
                If force Then
                    System.Runtime.InteropServices.Marshal.FinalReleaseComObject(objCom)
                Else
                    Dim count As Integer = System.Runtime.InteropServices.Marshal.ReleaseComObject(objCom)
                End If
            End If
        Finally
            objCom = Nothing
        End Try
    End Sub
ただ、このソースも自分で書いたわけではないので、具体的な説明ができません。
すみません、一応

■No36338 (魔界の仮面弁士 さん) に返信
> >>MRComObject の実装が書かれていないので(推測はつきますが)、
>>こちらが、ソースになります。
> それ、元ソースは私のコードです。。。

> 元々は、
> 　http://support.microsoft.com/kb/317109/ja
> の NAR の実装を元に、花ちゃんさんが
> 　http://hanatyan.sakura.ne.jp/index.html
> のサイトで、MRComObject というメソッドを作成されていたのですが、
> それに私が手を加えた物が、hito さんが現在使っている MRComObject です。
> 
> # 具体的には、花ちゃんさんのサイトでいうところの、VB.NET 掲示板の No6374 (2007-09-28 22:18)です。

そうだったんですか、いろいろなサイトを巡ってようやく発見したと最初は思っていたのですが、
巡り巡って本人の下に帰ってきたんですね。

ちなみにですが、すみません、１つ載せていなかったソースがありました。
　　　　Try
            xlBook.Close(False) 'xlBook を閉じる
        Catch ex As Exception
        End Try
です。
このあとに、
        'xlBooksの解放
        MRComObject(xlSheet) 'xlSheet の解放
        MRComObject(xlBooks)  'xlBook の解放
        MRComObject(xlBook)  'xlBook の解放
        xlApp.Quit() 'Excelを閉じる 
        MRComObject(xlApp)   'xlApp を解放
と記述しているのですが、

xlApp,xlBook,xlBooksなどの変数によって、解放させる順番があるのでしょうか、
つまり、「xlBookを開放する前に、xlAppを解放しなければならない」などの制限があるのであれば、
そこが原因ではないかと考えているのですが・・・。