.NETでエクセル解放がうまくいきません．

　ネット上で散々ある良回答を拝見させていただいても，
自分で解決しきれませんでした．どうぞよろしくお願いいたします．

　下の２行を追加するとエクセルが解放できなくなってしまいます．
Private Sub Excel一括置換(ByRef N As Integer)
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim WB As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim Mypath As String = TextBoxパス.Text
Dim FName As String

FName = Dir(Mypath & "*.xls", vbNormal)
Do While FName <> ""
WB = xlBooks.Open(Mypath & FName)
For Each xlSheet In WB.Worksheets 'For N_s = 1 To WB.Worksheets.Count

Next 'Next N_s
' ↑の２行がなくなれば無事解放できます
MRComObject(xlSheet) : xlSheet = Nothing
WB.Save() : WB.Close()
MRComObject(WB)
FName = Dir()
Loop

Me.Activate()
xlSheet = Nothing
WB = Nothing
MRComObject(xlBooks) : xlBooks = Nothing
xlApp.Quit() : MRComObject(xlApp) : xlApp = Nothing
End Sub

　最初の「For N_s = 1 To WB.Worksheets.Count」という書き方だと，
ネット上で見かけるWorksheet「暗黙のオブジェクト」になるのかな？？と思い，
xlSheetを宣言してみましたが，うまくいきません．
できればFor N_s = ～　という記述法にしたいのですが．．．
　お詳しい方がいらっしゃれば，どうぞよろしくお願いいたします．

No.1 ベストアンサー 回答者： tom11 回答日時： 2009/05/24 15:16

こんにちは、

私も、エクセルのオブジェクトの解放の問題になったときに
紹介されたページ

http://hanatyan.sakura.ne.jp/dotnet/index.html

花ちゃん、コード見ると、このページにもたどり着いた様に
見受けられますが。

このページと、camputerさんのコードを見て
気づいた点として、

Dim xlSheets As Excel.Sheets = xlBook.Worksheets

(注意）Sheetも宣言しますが、Sheetsも宣言しています。

がないですね。

そのせいか、

xlSheetsの表現が、WB.Worksheets に変わっています。

花ちゃんでは、

花ちゃんから、転載****************

１．基本的に、下記のように、［.］が2つ連続で使用されたら解放できません。

誤り　
　　　　xlRange = xlCells(1,1)
　　　　xlRange.Interior.Color = RGB(0, 255, 0)

　　　　'使った変数の解放処理（.NETからExcelの基本的な操作方法 参照の事）
　　　　MRComObject(xlCells)
　　　　MRComObject(xlRange)
正
　　　　xlRange = xlCells(1, 1)
　　　　Dim xlInterior As Excel.Interior
　　　　xlInterior = xlRange.Interior
　　　　xlInterior.Color = RGB(0, 255, 0)

　　　　MRComObject(xlInterior)
　　　　MRComObject(xlCells)
　　　　MRComObject(xlRange)　　　　
　必ず、上記のように分解して変数に受けて、解放処理をして下さい。

***************************************転載終了

WB.Worksheets.Countの表現を使っていますが。

花ちゃんからの転載に書いてある。[.]が２つ連続で使用されています。

ここは、WB.WorksheetsをxlSheetsで受けて、
xlSheets.Countに変えたほうが、良い様な気がします。

とうぜん、xlSheetsを、使っているので、他にもこれ用にコードを
変更しないと、いけないかも知れませんが。

後は、気がついた点は、ないです。

外していたら、ごめん。

この回答へのお礼

　どうもありがとうございます．
　分かりにくくてもうしわけございませ．
'For N_s = 1 To WB.Worksheets.Count
のほうはコメントアウトしております．

For Each xlSheet In WB.Worksheets　が実行文になります．

　しかしtom11様のご指摘で
Dim xlSheet As Excel.Worksheetではなく
Dim xlSheet As Excel.Worksheetsにしたところ
正常に解放されるようになりました．ご指摘どうもありがとうございました．
今からExcel.WorksheetとExcel.Worksheetsについて勉強してみます．
　ほんとうにどうもありがとうございました．

お礼日時：2009/05/24 16:41