VB.netでexcel api を使用するとタスクマネージャーにexeclが残る

VB2013でexcel操作するプログラムを作成
実行するとタスクマネージャーにexeclが残ってしまいます。
ネット上に書いてあった解放は試したのですが残ってしまいました。
どこが間違っているか、わかる方がいれば
教えてください。

VB.net
1        Dim fname As String = ""
2        Dim fname2 As String = ""
3
4        For i As Integer = 17 To mCsvList1.GetUpperBound(0)
5            Dim xlApp0 As New Excel.Application
6            Dim xlBooks0 As Excel.Workbooks = xlApp0.Workbooks
7            Dim xlBook0 As Excel.Workbook = xlBooks0.Open(moto_xls)
8            Dim xlSheet0 As Excel.Worksheet = xlApp0.Worksheets("従来")
9            Dim xlSheet2 As Excel.Worksheet = xlApp0.Worksheets("小型")
10
11            xlApp0.Visible = True
12            xlSheet0.Select()
13            xlSheet0.Range("A2").Select()
14            xlSheet0.Range("A2").Activate()
15
16            fname = mCsvList1(i).Substring(0, mCsvList1(i).Length - 4)
17            Dim csvApp1 As New Excel.Application
18            Dim csvBooks1 As Excel.Workbooks = csvApp1.Workbooks
19            Dim csvBook1 As Excel.Workbook = csvBooks1.Open(csvPath1 & "\" & mCsvList1(i))
20            Dim csvSheet1 As Excel.Worksheet = csvApp1.Worksheets(fname)
21
22            fname2 = mCsvList2(i).Substring(0, mCsvList2(i).Length - 4)
23            Dim csvApp2 As New Excel.Application
24            Dim csvBooks2 As Excel.Workbooks = csvApp2.Workbooks
25            Dim csvBook2 As Excel.Workbook = csvBooks2.Open(csvPath2 & "\" & mCsvList2(i))
26            Dim csvSheet2 As Excel.Worksheet = csvApp2.Worksheets(fname2)
27
28            xlApp0.Visible = True
29            csvApp1.Visible = True
30            csvApp2.Visible = True
31
32            csvSheet1.Select()
33            Dim xlRange As Excel.Range = csvSheet1.Cells.Range("A2:R9000")
34            xlRange.Copy()
35            Dim xlPasteRange As Excel.Range = xlSheet0.Range("A2")
36            xlSheet0.Paste(xlPasteRange)
37            'csvApp1.CutCopyMode = False
38            '* 件数
39            Dim cnt As Integer = xlSheet0.Range("X3").Value
40            xlRange = xlSheet0.Range("W2")
41            xlRange.Copy()
42            xlPasteRange = xlSheet0.Cells.Range("W3:W" & Format("#0", cnt))
43            xlSheet0.Paste(xlPasteRange)
44            csvApp1.CutCopyMode = False
45
46            xlSheet2.Select()
47            xlSheet2.Range("A2").Select()
48            xlSheet2.Range("A2").Activate()
49
50            csvSheet2.Select()
51            Dim xlRange2 As Excel.Range = csvSheet2.Cells.Range("A2:R9000")
52            xlRange2.Copy()
53            Dim xlPasteRange2 As Excel.Range = xlSheet2.Range("A2")
54            xlSheet2.Paste(xlPasteRange2)
55            'csvApp2.CutCopyMode = False
56            '* 件数
57            cnt = xlSheet2.Range("X3").Value
58            xlRange = xlSheet2.Range("W2")
59            xlRange.Copy()
60            xlPasteRange = xlSheet2.Cells.Range("W3:W" & Format("#0", cnt))
61            xlSheet2.Paste(xlPasteRange)
62            csvApp2.CutCopyMode = False
63
64            xlApp0.CutCopyMode = False
65            '* 保存処理
66            xlBook0.SaveAs(mxlsPath & "\" & fname & ".xlsx")
67            MRComObject(xlPasteRange)
68            MRComObject(xlRange)
69            MRComObject(xlPasteRange2)
70            MRComObject(xlRange2)
71            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlPasteRange)
72            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlRange)
73            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlPasteRange2)
74            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlRange2)
75
76            csvBook2.Close()
77            csvBooks2.Close()
78            MRComObject(csvSheet2)
79            MRComObject(csvBook2)
80            MRComObject(csvBooks2)
81            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvSheet2)
82            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvBook2)
83            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvBooks2)
84            csvApp2.Quit()
85            MRComObject(csvApp2)
86            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvApp2)
87            csvSheet2 = Nothing
88            csvBook2 = Nothing
89            csvBooks2 = Nothing
90            csvApp2 = Nothing
91
92            csvBook1.Close()
93            csvBooks1.Close()
94            MRComObject(csvSheet1)
95            MRComObject(csvBook1)
96            MRComObject(csvBooks1)
97            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvSheet1)
98            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvBook1)
99            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvBooks1)
100            csvApp1.Quit()
101            MRComObject(csvApp1)
102            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(csvApp1)
103            csvSheet1 = Nothing
104            csvBook1 = Nothing
105            csvBooks1 = Nothing
106            csvApp1 = Nothing
107
108            xlBook0.Close()
109            xlBooks0.Close()
110            MRComObject(xlSheet2)
111            MRComObject(xlSheet0)
112            MRComObject(xlBook0)
113            MRComObject(xlBooks0)
114            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlSheet2)
115            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlSheet0)
116            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlBook0)
117            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlBooks0)
118            xlApp0.Quit()
119            MRComObject(xlApp0)
120            'Call System.Runtime.InteropServices.Marshal.FinalReleaseComObject(xlApp0)
121            xlSheet2 = Nothing
122            xlSheet0 = Nothing
123            xlBook0 = Nothing
124            xlBooks0 = Nothing
125            xlApp0 = Nothing
126
127        Next
128    End Sub

行動規範の内容に同意します

回答3件

自己解決

いろいろな情報ありがとうございます。
GC.Collect()　で検索し下記のサイトで
https://diy-kagu.hatenablog.com/entry/2018/03/17/122736

みなさんが行っている方法を試してもダメな場合は
EXCELプロセスをkillするしかないということで

For Each p As System.Diagnostics.Process In Process.GetProcessesByName("EXCEL")
p.Kill()
Next

で解決いたしました。

投稿2021/05/11 23:41

yk3125

総合スコア91

退会済みユーザー

2021/05/12 00:18 編集

強制終了は、ファイルの破損やExcelのテンポラリファイルが残る等が発生しないかという懸念はありますが。また、普通に別に作業してるExcelプロセスがあったらどうするのか、そういったものが無い前提なのか等も問題になります。そのリンク先のページの結論でもEPPlusを勧められてるので、結局のところ.NETから可能な限りExcel呼び出さないのが正解な気がします。

行動規範の内容に同意します

Close()
して
Quit()
したら、もう十分だと思います。
タスクマネージャーに残るのは、オブジェクトプーリングの類では。

オブジェクトプーリングは、くり返しインスタンス生成を要求される場合に備えて、メモリ確保などの初期化処理を内部的に高速化させる狙いで、使用済みのインスタンスのメモリ分をわざと解放せずに使いまわし用に一時キープしておく手法。

このソースではないですが、New Excel.Application を使う手持ちのソースで試したところ、１０個ほどインスタンスがキープされたあと、一気に解放されました。
GC.Collect() を入れたら、インスタンス４個ぐらいまででとどめられた、けども、VBプロセス終了後も逆に残ってしまった。（←こっちのほうが避けたいから、GCには触れないほうがよい印象をもちました）

投稿2021/05/11 13:52

FromMZ1500

総合スコア496

退会済みユーザー

2021/05/11 14:49 編集

> GC.Collect() を入れたら、インスタンス４個ぐらいまででとどめられた、 > けども、VBプロセス終了後も逆に残ってしまった。 >（←こっちのほうが避けたいから、GCには触れないほうがよい印象をもちました） GC.Collectでも参照が残っているオブジェクトは解放されないので、単純にオブジェクトの参照掴んでるままの所があるのではないかと。GCに任せた場合、アンマネージCOMがいつ解放されるか把握できないので、そういうケースでGCを強制するのは理に適っていると思います。

行動規範の内容に同意します

こちらを読んでみてください。
Clean up Excel Interop Objects with IDisposable

この回答通りだと、Excel操作を完結したメソッドに分けてそれを呼び出し、その後に

vbnet
1GC.Collect()
2GC.WaitForPendingFinalizers()

を呼び出せばExcelオブジェクトは解放されるのではないかと考えられます。
よく見られる中間オブジェクトの保持と、Marshal.ReleaseComObject の呼出も不要のようです。

EPPlus、ClosedXML等のライブラリで間に合う場合は、ExcelのCOM自体使用しないのが一番安全かつ高速ですけどね。

投稿2021/05/11 07:34

編集2021/05/11 14:50

退会済みユーザー

総合スコア0

あなたの回答

tips

プレビュー

行動規範の内容に同意します

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.46%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

VB.netでexcel api を使用するとタスクマネージャーにexeclが残る

関連した質問