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

質問

教えて下さい。

先日もＥＸＣＥＬに関して投稿させて頂きましたが、やはり少しソースを変更すると、最終的に
ＥＸＣＥＬのプロセスが残ってしまいます。

前回は、記述の最後に、"GC.Collect"を追加するようにご指摘頂き、余計なメモリを解放する事で、
プロセスは残らないようになりましたが、今回は、以下の記述のように、発注先コードが違った場合、
シートを分けるという事をしたい為、以下のような記述をした際に、プロセスが残ってしまう現象が
発生しました。

切り分けを行った結果、やはり*****印の部分があるかないかで、プロセスが残る現象が発生しますが、
何かプロセスを残してしまうような記述をしているのでしょうか。。。

どなたか教えて頂ければ幸いです。

よろしくお願いします。

《記述内容》

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

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

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

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"

Dim x, y As Integer
x = 0
y = 0
Dim mcount As Integer
Dim fcount As Integer

Dim D_発注先コード As String
D_発注先コード = h_date(0).IN_発注先コード

Dim strDat(14, 14) As Object

For icount As Integer = 0 To count - 1

If D_発注先コード <> h_date(icount).IN_発注先コード Then

'データをＥＸＣＥＬファイルに書き出し
Dim xlRange As Excel.Range
'データの入力セル範囲
xlRange = xlSheet.Range("A17:O31")
'セルへデータの入力
xlRange.Value = strDat

System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange)

D_発注先コード = h_date(icount).IN_発注先コード
x = 0

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

strDat(x, 1) = h_date(icount).IN_指示納期
strDat(x, 2) = h_date(icount).IN_発注番号

fcount = 1

Else

strDat(x, 1) = h_date(icount).IN_指示納期
strDat(x, 2) = h_date(icount).IN_発注番号

End If

x = x + 1

Next

Dim xlRange3 As Excel.Range

'データの入力セル範囲
xlRange3 = xlSheet.Range("A17:O31")

'セルへデータの入力
xlRange3.Value = strDat

'COM オブジェクトの解放
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlRange3)

xlBooks.Close()

xlApp.DisplayAlerts = False
xlApp.Quit()

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

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

GC.Collect()

回答No.3

MARU4812 · ベストアンサー

２行目消し忘れてた。。。いきなり解放したら命令できないよね。
***********************************************************************
xlSheet = xlSheets.Item(1) 'シートの選択じゃなくて参照！選択は xlSheet.Select()
'System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet) '間違い
xlSheet2 = xlSheets.Item(2) '同時に複数のシートを参照＆解放できないのでもう１つ変数が必要
xlSheet.Copy(After:=xlSheet2) 'シートのコピー
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet2) '使い終わったらすぐ解放しておく方が安全
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet) '次でシート3を参照するので必須
xlSheet = xlSheets.Item(3) 'シートを参照
xlSheet.Name = "YY" 'シートに名前を付ける
***********************************************************************

お礼

ソースまで記述して頂き、本当にありがとうございました。

教えて頂いた内容をもとに実行したところ、問題なくプロセスが
終了しました。

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

回答No.4

MARU4812

あまりに指摘事項が多いから、全体を修正しようと
思って見直したら、
SANA_999 って人とコードが同じ。
http://qanda.rakuten.ne.jp/qa7153396.html
しかも、
> 確かに、xlRange.Value = strDat　は外でしたね！
は修正されていない。
ダメ過ぎて「プログラムしない方がいいよ」と
アドバイスしたくなるほどです。

この質問に書いたコードは一体何ですか？？？
他人のコピペ？
過去にだめすぎる質問して名前を変えた？
修正する気が無い？

回答No.2

MARU4812

>Dim xlSheet2 As Excel.Worksheet = xlBook.Worksheets(1)
>xlSheet.Copy(After:=xlSheet2) 'シートのコピー
>
>のようにしてみてはどうでしょうか。
Worksheets オブジェクトが解放されないコードですね。
絶対に解放されるコードは、

Dim xlSheet2 As Excel.Worksheet = xlSheets.Item(1)
xlSheet.Copy(After:=xlSheet2) 'シートのコピー
です。

使いまわすなら、
***********************************************************************
xlSheet = xlSheets.Item(1) 'シートの選択じゃなくて参照！選択は xlSheet.Select()
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet) '使い終わったら解放
xlSheet2 = xlSheets.Item(2) '同時に複数のシートを参照＆解放できないのでもう１つ変数が必要
xlSheet.Copy(After:=xlSheet2) 'シートのコピー
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet2) '使い終わったらすぐ解放しておく方が安全
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet) '次でシート3を参照するので必須
xlSheet = xlSheets.Item(3) 'シートを参照
xlSheet.Name = "YY" 'シートに名前を付ける
***********************************************************************

回答No.1

MARU4812

前の質問時に指摘された項目が全く修正されていないようですが？
http://qanda.rakuten.ne.jp/qa7187674.html
>xlSheet.Copy(After:=xlSheet2) 'シートのコピー
>
>のようにしてみてはどうでしょうか。

> 'シートのコピー
> xlSheet.Copy(After:=xlBook.Worksheets(1))
と
> xlSheet.Copy(After:=xlBook.Worksheets(2)) 'シートのコピー
どちらも修正されていません。

ついでに言えば、ReleaseComObject は使ったオブジェクト
全てに適用しないといけません。
変数に対して1回実行するのではありません。

ある変数で「シート１」を参照し、
同じ変数で「シート２」を参照する場合は、
「シート２」を参照する前に、「シート１」を参照
している状態で ReleaseComObject します。

Excel 側で外部から参照されている事を覚える為に
フラグ(実際は複数から参照がありえるのでカウンタ)が
立つのですが、ReleaseComObject は、それを降ろす命令
です。「シート１」が参照された時点で「シート１のフラグ」
が立ちます。「シート２」が参照された時点で「シート２の
フラグ」が立ちます。
それぞれのフラグを降ろす命令が必要です。
同じシートを２回参照したら２回降ろす命令が必要です。
>GC.Collect
は VB 側のメモリ解放なので、本質的には関係ありません。
Excel 側の問題です。(※だから残るのは Excel.EXE で、
VB の実行が終わっても残る。)

>Dim xlSheet As Excel.Worksheet = CType(xlSheets.Item(1), Excel.Worksheet)
>
>'シートの選択
>xlSheet = xlSheets.Item(1)
上記で２回参照してますね。
…もともと無駄なコードですが。

切り分けまでされているようですが、問題なのは、
解放漏れとされるコードがあってもプロセスが残らない場合が
あるのです。
GC.Collect で改善されたのも「たまたま」だと思ってください。
この辺りは色々と議論されていますが、結論は出ていません。
Excel からの操作自体がブラックボックスが多いのです。

私は「確実派」なので、全てのオブジェクトに解放命令を
出す事を勧めています。結果として解放漏れを起こした事は
ありません。
>「Application」と「Workbooks」だけ
http://www.asahi-net.or.jp/~ef2o-inue/vbnet/sub13_03_040.html
という分析もあります。

ただ、単純なテストでは同じような結果が出るのですが、
コードを複雑にしていった時に、何かのタイミングでプロセス
が残り始めるような現象も経験しており、そこから見直しとか
なってしまうと工数の無駄なので、私はセル単位まで全ての
オブジェクトを解放するコードを最初から書くようにしています。