[OSのVer]：Windows2000　　[VBのVer]：VB.NET2003

いつもお世話になっております。

Excelのプロセスが残ってしまう現象が消えなくて困っております。
ロジック全体を分割して実行していったところ、
プロセスが残ってしまう現象がどこで起きているかが判明しました。

下記ロジックの「問題Ａ」の個所を
入れる場合、EXCELプロセスが残ってしまい、
コメントアウトすると、EXCELプロセスが消えます。
ここまではわかったのですが、情けないのですがその対処方法がわからなくて困っております。
ブックのシート数は取得したいので「問題Ａ」ロジックは必要なのです。

どなたか、お知恵をお貸しください。

        Dim xlApp As New Excel.Application
        Dim xlBooks As Excel.Workbooks
        Dim xlBook As Excel.Workbook
        Dim xlSheets As Excel.Sheets
        Dim xlSheet As Excel.Worksheet

        'エクセルファイルを作成する。
        xlBooks = xlApp.Workbooks
        xlBook = xlBooks.Add
        xlSheets = xlBook.Worksheets

        Dim intSheetCnt As Integer = xlBook.Worksheets.Count　'←問題Ａ

        'ファイル保存
        xlBook.SaveAs("C:\temp\test.xls")
        MRComObject(xlSheet)
        MRComObject(xlSheets)
        xlBook.Close(False) 'bookを閉じる
        MRComObject(xlBook)
        MRComObject(xlBooks)
        xlApp.DisplayAlerts = True
        'ファイルクローズ
        xlApp.Quit()
        MRComObject(xlApp)

>         Dim intSheetCnt As Integer = xlBook.Worksheets.Count　'←問題Ａ

Worksheets オブジェクトが暗黙的に取得され、参照を解放するタイミングを失っているからです。
変数に取り、しっかりと解放しましょう。

また確実に解放するために、Try 〜 Finally の実装をしましょう。
この実装を意識することで、こういったミスは防げます。

hhttp://jeanne.wankuma.com/tips/programing/02-releasecom.html

>         xlBooks = xlApp.Workbooks
>         Dim intSheetCnt As Integer = xlBook.Worksheets.Count　'←問題Ａ

すでに xlBooks がそんざいするのですから
　
          Dim intSheetCnt As Integer = xlBooks.Count

で取得できるかと。

おはようございます。

じゃんぬねっとさん、花ちゃんさん、ご返答ありがとうございました。

Font変更もxlRange.Font.Size = 9だと開放されないのですね。
これも花ちゃんさんにご指摘いただいた方法で開放することができました。

花ちゃんさんさんの方法で解決することができました。
また、じゃんぬねっとさんのリンク先は大変参考になりました。
私のプログラミングの配慮不足がよくわかるページですね。
自分のＰＧＭが恥ずかしくなりました。

本当にありがとうございました。