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

Question

こんばんは，いつも勉強させていただいております．
どうぞよろしくお願いいたします．
　毎夜寝ずに.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が解放されない時もあれば，押す前に一瞬で消える時もあります．



　　どれか一つでもアドバイスいただけるようでしたら，是非よろしくお願いします．
　また上記コードの書き方に何か些細な突っ込みでもございましたら，いただければ嬉しいです．
　なにとぞお願いいたします．

AKARI0418 · Accepted Answer

>（１）この一行を書くためだけに，すべての階層の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 · Answer

参考になると思います。
http://hanatyan.sakura.ne.jp/dotnet/Excel03.htm

きちんとすべての対象にReleaseComObjectを呼んでいるのであれば、
GC.Collect()は必要ないはずです。

GC.Collect()を行わなければ、EXCELが残ってしまうというのは、開放もれがあるはずです。

クラスを経由して行っている場合はその親クラスにあたるインスタンスに対しても、ReleaseComObjectが必要です。

むやみにガベージコレクタに対して、Collectを発行するべきではありません。

GCはジェネレーション管理を行っており、Collectにより世代がどんどん増えていってしまい負荷がかかります。
http://www.atmarkit.co.jp/fdotnet/dotnettips/021gc/gc.html

redfox63 · Answer

そのプロシージャから抜ける段階で
GC.Collect()
を実行してみましょう

これの実行で参照の開放を忘れていなければプロシージャを抜けた段階でExcelのタスクは消滅するようですよ

単純に workbooksコレクションを取得し開放しただけでも
Exeが実行中はExcelのタスクが残ってしまうようです
GC.Collect()を実行すると End Sub を実行後 タスクが消えました^^
Excel.Application型の変数はローカル変数で検証ですが ・・・

当方の環境 VB2005 + Excel2003

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

>（１）この一行を書くためだけに，すべての階層のObjectを作成・解放するものなのでしょうか？？？

参考になると思います。

そのプロシージャから抜ける段階で

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング