C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: ExcelのSetSourceDataでプロセスが残ります

分類:[VB.NET/VB2005 以降]　

VB2005からレイトバインドによりExcelにデータ出力しているのですが
ChartのSetSourceDataを設定するとプロセスが残ってしまいます。
検索すると暗黙の参照になってしまっているミスが多いようですが
それを考えても私には間違っている所が見つかりません。
どなたか原因がお分かりでしたらお教えいただきたいのですが。

Dim objApp As Object
Dim objBooks As Object
Dim objBook As Object
Dim objSheets As Object
Dim objSheet As Object
Dim objChartObjects As Object
Dim objChartObject As Object
Dim objChart As Object
Dim objRange As Object

objApp = CreateObject("Excel.Application")
objApp.Visible = True

objBooks = objApp.Workbooks
objBook = objBooks.Open(Application.StartupPath & "\" & "TEST.xls")
objSheets = objBook.Worksheets
objSheet = objSheets("TEST")
objSheet.activate()

objChartObjects = objSheet.ChartObjects
objChartObject = objChartObjects(1)
objChart = objChartObject.Chart
objRange = objSheet.Range("A1:B10")

objChart.SetSourceData(Source:=objRange, PlotBy:=2)　← この行を実行するとプロセスが残ります

System.Runtime.InteropServices.Marshal.ReleaseComObject(objRange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objChart)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objChartObject)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objChartObjects)

objSheet.PrintPreview()

objBook.Close(SaveChanges:=False)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objSheets)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objBooks)

objApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(objApp)

■No27194 (欠片さん) に返信
> objChart.SetSourceData(Source:=objRange, PlotBy:=2)　← この行を実行するとプロセスが残ります

上記の実行後、objRange の参照カウントが増加しているのかも知れません。
このメソッドを実行後に、
> System.Runtime.InteropServices.Marshal.ReleaseComObject(objRange)
の戻り値の値がどうなっているのかを確認してみてください。

.NET からの動作は確認していませんが、Excel VBA 環境で見てみると、このメソッドは
　Sub SetSourceData(Source As Range, Optional PlotBy As Variant)
のような定義になっているようなので、レイトバインドでの呼び出し時において、もしかしたら
Object → Range の型変換が発生し、そこで参照数が増加しているかも……と予想。

Dim intA As Integer
intA = System.Runtime.InteropServices.Marshal.ReleaseComObject(objRange)

としてみたところintAの中身は1でした。
確かに型変換が発生しているのかもしれません。

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

と二連続で解放を行うことで無事プロセスが残らないようになりました。
今回の事でReleaseComObjectに戻り値がある事も初めて知りました。
ありがとうございました。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: ExcelのSetSourceDataでプロセスが残ります

過去ログには書き込み不可