.NETでエクセル解放時のコーディング・現象についてアドバイスください

質問

こんばんは，いつも勉強させていただいております．
どうぞよろしくお願いいたします．
　毎夜寝ずに.NETプログラミングでエクセルが動くのを楽しんでおりますが，
手元の参考書とネット検索だけではすっきりしない疑問点が数点あります．
どれか一つでもアドバイスいただけると非常に嬉しいです．
もしお詳しい方がいらっしゃいましたら，どうぞお願いいたします．

　「．」が沢山あるような深いプロパティ等を使いたい際（たとえばエクセルの
シート上にグラフが数個あり，これらの軸ラベルを変更するとき）
xlSheet.ChartObject.Chart.Axes(1).Axistitle.text = "test"
といきなり書くと解放できなくなると思うのですが，

（１）この一行を書くためだけに，すべての階層のObjectを作成・解放するものなのでしょうか？？？
　　一応動作はするのですが，あまりこんな書き方を見かけないのですが．．．．．

　　　Dim ChartObject As Object
　　　Dim ChartObjects = xlSheet.ChartObjects
　　　For Each ChartObject In ChartObjects
　　　　　ChartObject.Activate()
　　　　　Dim myChart As Object = ChartObject.Chart
　　　　　Dim myAxes As Object = myChart.Axes
　　　　　Dim myAxis1title As Object = myAxes(1).Axistitle
　　　　　Dim myAxis2title As Object = myAxes(2).Axistitle
　　　　　　　myAxis1title.text = "test"
　　　　　　　myAxis2title.text = "test"
　　　　　MRComObject(myAxis2title) : myAxis2title = Nothing
　　　　　MRComObject(myAxis1title) : myAxis1title = Nothing
　　　　　MRComObject(myChart) : myChart = Nothing
　　　　　MRComObject(myAxes) : myAxes = Nothing
　　　　　MRComObject(ChartObject) : ChartObject = Nothing
　　　Next
　　　MRComObject(ChartObjects) : ChartObjects = Nothing

（２）解放の順序については，下の階層からすべき？　みたいなルールは特に無いのでしょうか．

　　　　　'たとえば↓みたいに下の階層から解放するか，
　　　　　MRComObject(myAxis1title) : myAxis1title = Nothing
　　　　　MRComObject(myAxes) : myAxes = Nothing
　　　　　MRComObject(myChart) : myChart = Nothing

　　　　　'もしくは↓みたいに上の階層から解放するか
　　　　　MRComObject(myAxis1title) : myAxis1title = Nothing
　　　　　MRComObject(myAxes) : myAxes = Nothing
　　　　　MRComObject(myChart) : myChart = Nothing

（３）下のコードだとぜんぜん問題ないんですが，
　　　　　Dim ChartObject As Object
　　　　　Dim ChartObjects = xlSheet.ChartObjects
　　　　　MRComObject(ChartObject) : ChartObject = Nothing
　　　　　MRComObject(ChartObjects) : ChartObjects = Nothing

　　　次のようにFor,Nextを入れるだけでExcelが解放されなくなります．
　　　　　Dim ChartObject As Object
　　　　　Dim ChartObjects = xlSheet.ChartObjects
　　　　　For Each ChartObject In ChartObjects

　　　　　　　MRComObject(ChartObject) : ChartObject = Nothing
　　　　　Next
　　　　　MRComObject(ChartObjects) : ChartObjects = Nothing

　　　この現象に一番困っております．もし何かお気づきになることがございましたら，
　　　是非ともアドバイスしてやってください．

（４）Excel解放のタイミングが，同じプログラム実行時でも弱冠異なるのですが，
　　　これはよくある現象なのでしょうか？それともコーディングに問題が？？？
　　　　たとえば，
　　　　　　　Excel操作　→解放　→msgbox("終わり")
　　　としたときに，メッセージボックスのOKをわざと押さずに待機していると
　　　OKを押すまでExcel.Exeが解放されない時もあれば，押す前に一瞬で消える時もあります．

　　どれか一つでもアドバイスいただけるようでしたら，是非よろしくお願いします．
　また上記コードの書き方に何か些細な突っ込みでもございましたら，いただければ嬉しいです．
　なにとぞお願いいたします．

回答No.1

AKARI0418 · ベストアンサー

>（１）この一行を書くためだけに，すべての階層のObjectを作成・解放するものなのでしょうか？？？
　　一応動作はするのですが，あまりこんな書き方を見かけないのですが．．．．．

そういうものだと思います。
VB6のときのほうが簡単でしたよね。

Vistual Studio Office Editionのような名前のものを使ってください。

>（２）解放の順序については，下の階層からすべき？　みたいなルールは特に無いのでしょうか．

もちろんです。
下から開放しなければ、MRComObjectが開放対象を正しく特定できません。

>３）下のコードだとぜんぜん問題ないんですが，
Dim xlApp As Object = CreateObject("Excel.Application")
Dim xlBooks As Object = xlApp.Workbooks
Dim xlBook As Object = xlBooks.Open(ExcelPath)
Dim xlSheets As Object = xlBook.Worksheets
Dim flg As Short = 0

For Each sht As Object In xlSheets
MRComObject(sht)
Next
MRComObject(xlSheets) 'xlSheets の解放
Try
xlBook.Save()
xlBook.Close(False) 'xlBook を閉じる
Catch ex As Exception

End Try

MRComObject(xlBook) 'xlBook の解放
MRComObject(xlBooks) 'xlBooks の解放
xlApp.Quit() 'Excelを閉じる
MRComObject(xlApp) 'xlApp を解放
ちゃんと消えます。
sheetから書くと、bookあたりが自動的に？作られてしまうのではないでしょうか？

>（４）Excel解放のタイミングが，同じプログラム実行時でも弱冠異なるのですが・・・

どうでしょうか？
さほど大きくづれることはないはずです。

お礼

AKARI0418 様
　どうもありがとうございます．なんとすべての質問にご回答いただけますとは．
ご親切にどうもありがとうございます．

＞（１）
＞そういうものだと思います。
＞VB6のときのほうが簡単でしたよね。
　一発ですっきりしました．どうもありがとうございます．
　VB6は触ったことがございません．．．VB6のコードを拾ってきて
.NETに直せないことはたまにございますが．．．
ずっとFortranオンリーで，何週間も数値計算して数字の羅列を吐き出すのが
この世のプログラムのすべてと思い込んでおりましたが，
.NETに始めて触れて取りつかれて毎晩ワクワクいるヘタレでございます．
　あまりこういう書き方に触れたことがないということは
まだまだ修行と検索量が足りないのかもしれませんね．
どうもありがとうございます．

＞（２）
＞もちろんです。
＞下から開放しなければ、
　どうもありがとうございます．すっきりしました．
ネットで必死に検索をかけておりますと，たまにxlAppから
解放しているコードを見かけますので，？？？？と．
　お詳しい方にアドバイスいただけて良かったです．

＞（３）
　コードでご確認までいただきどうもありがとうございます．
　ご指摘いただいた通り，sheetあたりの宣言文をもう少し練ってみます．
どうもありがとうございます．

＞（４）さほど大きくづれることはないはずです。
　ご回答をいただいてから考えておりましたが，どうも私の
コーディングが下手なせいでもともと解放されにくいプログラムを
実行したときに発生している現象のようでございます．
おそらくきちんとしたコードの場合はAKARI0418様のおっしゃる通りに
なるのだと．というかなるはずですよね．

　ご親切に沢山のアドバイスをいただけて助かります．
本当にどうもありがとうございました．