ＥＸＣＥＬのプロセスに関して

質問

教えて下さい。

VB2008でＥＸＣＥＬを操作しようと考えていますが、以下のような記述をした場合、
ＥＸＣＥＬのプロセスが残ってしまいます。

いろいろ調査し、いらない部分を削除した結果、以下のところまで絞込みを行い、
****のところを削除した場合、問題なくプロセスは終了した為、****印の中の記述が
原因というところまで絞れました。

単純にブックの中のシートをコピーで追加しているだけですが、何がどのようにすれば
プロセスは残らずに消えてくれるでしょうか。。。

よろしくお願いします。

《記述内容》

'既存のＥＸＣＥＬファイルを開く
Dim xlFilePath As String = "C:\test.xls"

'起動時の処理
Dim xlApp As New Excel.Application
Dim xlBooks As Excel.Workbooks = xlApp.Workbooks
Dim xlBook As Excel.Workbook = xlBooks.Open(xlFilePath)

xlApp.Visible = True ' 確認のためExcelのウィンドウを表示する

Dim xlSheets As Excel.Sheets = xlBook.Worksheets
Dim xlSheet As Excel.Worksheet = CType(xlSheets.Item(1), Excel.Worksheet)

*************************

xlSheet = xlSheets.Item(1) 'シートの選択
xlSheet.Copy(After:=xlBook.Worksheets(1)) 'シートのコピー
xlSheet = xlSheets.Item(2) '再度シートを選択
xlSheet.Name = "zz" 'シートに名前を付ける

*************************

xlBooks.Close()

xlApp.DisplayAlerts = False
xlApp.Quit()

' COM オブジェクトの解放
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)

' Excel のプロセス終了
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

回答No.1

tsukasa-12r · ベストアンサー

＞xlSheet.Copy(After:=xlBook.Worksheets(1)) 'シートのコピー

を

Dim xlSheet2 As Excel.Worksheet = xlBook.Worksheets(1)
xlSheet.Copy(After:=xlSheet2) 'シートのコピー

のようにしてみてはどうでしょうか。

また、

＞System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)

の後ろに

GC.Collect()

を入れるといいかもしれません。

お礼

返答が遅くなりまして申し訳ありません。

ご指摘の通り記述したところ、問題なくプロセスが終了しました。

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

回答No.2

Hayashi_Trek

COM オブジェクトの解放で
上位オブジェクトから解放してますが、それは大丈夫なのでしょうか？
上位オブジェクトにつながっている下位オブジェクトが宙ぶらりんになったりしないでしょうか？

お礼

教えて頂き、ありがとうございました。

とても参考になりました。