Excel.exeが残る…

質問

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

現在VBを使用してエクセルへの書き込み？
というかエクセルに吐き出しをしているのですが、
シートの削除のところでexeが残ってしまいます。
方法が悪いのだろうと思うのですが、どこがどう悪いのかいまいち分かりません。
VB2005とExcel2000での組み合わせです。

コードは下記のとおりです。

Dim oSheets As Excel.Sheets = oBook.Worksheets
Dim myChkSht As Excel.Worksheet

For Each myChkSht In oSheets
If Not (myChkSht.Name = "Sheet1") Then
myChkSht.Delete()
End If
MRComObject(myChkSht)
Next
MRComObject(myChkSht)

回答No.3

khazad-lefty

「解放」の具体的な内容を教えてもらえないでしょうか？

VB6の知識で話しますが…。
Excel2000の場合、Quitメソッドか何かを送らないといけなかった記憶はあります。

回答No.2

taka451213

こんにちは。

COMを使用した後、オブジェクトを開放してください。
この場合、使用したもの全てを開放しなければいけません。
cell,range,sheet,bookなど、オブジェクトとして使用したもの全てです。
（参照カウンタが残って、プロセスが落ちません）

補足

さっそくのありがとうございます。
上の方でも書いたのですが、一部しかソースを載せていませんでした、すいません。

Tryの中で処理をしていてfinallyですべて解放しています。

また、ほかのものが原因だったようで消えるのですが、消えるまでに時間がかかります。

解放処理をしてから画面のボタンを使えるようにしているのですが、
ボタンが使えるようになってからもexeがしばらくのこって、それから消えます…
こちらのほうもご教授願えれば幸いです。

回答No.1

AKARI0418

Dim oSheets As Excel.Sheets = oBook.Worksheetsで使用している、
oBookの開放漏れが原因ではないでしょうか？

補足

すいません、ソースの一部しか乗せてなかったのですが、Tryの中で処理をやっているのでfinallyで使用しているものは全部解放しています。

あと、遅れましたがほかのものが原因だったようです、
消えるようになったのですが、消えるまで時間がかかります。
こちらのほうも原因が分かればご教授願えますか？