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

■No50727 (魔界の仮面弁士 さん) に返信
　アドバイス頂いた内容を確認しましたが、どうもExcel2003 SP3側に原因がありそうです。
　VB.netでの回避手段も模索しています。

>> 参照設定を外し、すべてレイトバインドで利用してみた場合はどうでしょうか?

　→チェック用に別プロジェクトを作成し、下記のコードで確認しましたがだめでした。
 
   Private Sub Button1_Click
        Dim oExcel As Object
        Dim oBooks As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim oRange As Object
        Try
            'Excel起動
            oExcel = CreateObject("Excel.Application")
            oBooks = oExcel.Workbooks
            oBook = oBooks.Add

            '仮データ入力
            oSheet = oBook.Worksheets(1)
            oRange = oSheet.Range("A1")
            oRange.Value = "hoge"

            'Excel保存し終了
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oRange)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)

            oBook.SaveAs("c:\Book1.xls")
            oBook.close()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)
            oExcel.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub


>> .NET ではなく、Word VBA や VBScript などから呼び出した場合も、残ってしまいますか?
→下記コードで2回目以降に残ります。（上書きになるため？）
　但し、oExcel.DisplayAlertsをTrueにしても、2回目以降にあわられる「上書きしますか？」
　で「はい」を選んでも残ります。
　直接、手動でExcelを開き、プログラムと同じ処理をしてみましたが、当然のことながら、
　問題は起きませんでした。　Excelのみを使用する場合は起きません。　Excelを外部プログ
　ラムで操作すると起きるようです。

Option Explicit

Dim oExcel
Dim oBooks
Dim oBook
Dim oSheet
Dim oRange

'�@エクセルオブジェクトを作成します
Set oExcel = CreateObject("Excel.Application")
Set oBooks = oExcel.Workbooks
Set oBook = oBooks.Add
Set oSheet = oBook.Worksheets(1)
Set oRange = oSheet.Range("A1")

oRange.Value = "hoge"

'�Aエクセルを終了します
oExcel.DisplayAlerts = false
oBook.SaveAs("c:\Book1.xls")
oBook.close()
oExcel.Quit

'オブジェクトの破棄
Set oExcel = Nothing
Set oBooks = Nothing
Set oBook = Nothing
Set oSheet = Nothing
Set oRange = Nothing

>>ネットに「SaveAsの後にApplication.DoEvents()を入れてみてください。」というのがありましたが、
> 具体的な URL を教えていただけないでしょうか。
→http://ap.atmarkit.co.jp/bbs/core/fdotnet/10767?page=2　にありました


> どうしても解決できないようであれば、CreateDomain したアプリケーションドメインに
> Excel.Application を CreateInstanceFromAndUnwrap しておき、xls 保存処理完了後に、
> 最後にそのアプリケーションドメインを Unload してみるというのは如何でしょう。
→う〜ん　非力な私には時間がかかりそうです。
　もう少し勉強します。
　(初心者に近い私にとって、ネットで検索しても実装するために必要な知識を習得できそうな記事が
　見当たりません。ヒントになるようなサイトがあれば紹介お願いします。）

■No50796 (Azulean さん) に返信
> なぜ、そのように判断したのでしょうか。
> 根拠をお聞かせください。

  �@VBSでもレイトバインドでも解決されない->プログラムの問題ではないのでは？
　�AExcel2002(別のPC)では問題ない。
　と思ったからです。

　※但し、検証用に新規作成したVBS・VB.net（レイトバインド）には下記不具合があ
　りましたので、修正して確認しました。　しかし、今度は、1回目から残りました。

  PCの環境かもしれませんので、Office2003とVB2008Expressを再インストするなど
　やってみます。


>>            oSheet = oBook.Worksheets(1)
> 
> Worksheets を一度変数で受けて、これも Release しないとだめですよね。
> （"Worksheets(1)" と直接やるとリークして（漏れて）いる）

　下記のようにVBSのコードを修正しましたが、今度は、1回目からExcelがプロセスに
　残りました。

------------------- VBS(修正版) -----------------------
Option Explicit

Dim oExcel
Dim oBooks
Dim oBook
Dim oSheets
Dim oSheet
Dim oRange

'�@エクセルオブジェクトを作成します
Set oExcel = CreateObject("Excel.Application")
Set oBooks = oExcel.Workbooks
Set oBook = oBooks.Add
Set oSheets= oBook.Sheets
Set oSheet = oSheets.item(1)
Set oRange = oSheet.Range("A1")

oRange.Value = "hoge"

'�Aエクセルを終了します
oExcel.DisplayAlerts = false
oBook.SaveAs("c:\Book1.xls")
oBook.close()
oExcel.Quit

'オブジェクトの破棄
Set oExcel = Nothing
Set oBooks = Nothing
Set oBook = Nothing
Set oSheets = Nothing
Set oSheet = Nothing
Set oRange = Nothing

--------------------- VB.net(修正版) --------------------
    Private Sub Button1_Click
        Dim oExcel As Object
        Dim oBooks As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim oSheets As Object
        Dim oRange As Object
        Try
            'Excel起動
            oExcel = CreateObject("Excel.Application")
            oBooks = oExcel.Workbooks
            oBook = oBooks.Add

            '仮データ入力
            oSheets = oBook.Sheets
            oSheet = oSheets.item(1)
            oRange = oSheet.Range("A1")
            oRange.Value = "hoge"

            'Excel保存し終了
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oRange)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)

            oExcel.DisplayAlerts = False
            oBook.SaveAs("c:\Book1.xls")
            oBook.close()

            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)

            oExcel.Quit()
            System.Threading.Thread.Sleep(5000)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

すみません。　VB.netにもQuitの後に９秒タイマーを入れていました。
VBSも９秒にしたら10/10回はOKでした。
タイマーでなく、もっと確実に開放する方法にしたいのですが、どなたか
良いアイデアがありませんか？

------------ 改善VB.net(今のターゲット環境ではExcelは残らない) -----------
    Private Sub Button1_Click
        Dim oExcel As Object
        Dim oBooks As Object
        Dim oBook As Object
        Dim oSheet As Object
        Dim oSheets As Object
        Dim oRange As Object
        Try
            'Excel起動
            oExcel = CreateObject("Excel.Application")
            oBooks = oExcel.Workbooks
            oBook = oBooks.Add

            '仮データ入力
            oSheets = oBook.Sheets
            oSheet = oSheets.item(1)
            oRange = oSheet.Range("A1")
            oRange.Value = "hoge"

            'Excel保存し終了
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oRange)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheets)

            oExcel.DisplayAlerts = False
            oBook.SaveAs("c:\Book1.xls")
            oBook.close()

            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oBooks)

            oExcel.Quit()
            System.Threading.Thread.Sleep(9000)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 

■No50812 (よねＫＥＮ さん) に返信
> 上記の対応も含めてきちんと対応したら、レイトバインドでなくても上手く行ったりしませんか？
> ＃既に試されていたらごめんなさい。
　いろいろやったんですが。。。　最終的にはタイマーで消えました。
　ただ、タイマーでは不安です。
　COM オブジェクト参照の解放漏れを無くすのがポイントと思いますが、前回の「改善VB.net
　(今のターゲット環境ではExcelは残らない)」コードを見る限り、どこに漏れがあるかが判
　りません。

　現在判っているのは、
　�@Save・SaveAsメソッドを使わないと残らない
　�ASave・SaveAsメソッドを使っても、QuitとReleaseComObject(oExcel)間に９秒タイマーを
　　入れると残らない。　但し、２〜５秒では不十分でした。(残ります）


　保存作業(Save・SaveAs)を行うとQuit後のExcel終了に時間が掛かり、その間にReleaseCom
　Object(oExcel)しても、この開放は無視されるということはないですか？
　つまり、Excelのインスタンスが消滅したのを確認してReleaseComObject(oExcel)しなけれ
　ばならないということはないですか？


> Quitするといきなりプロセスが消えるわけでなく、Excelが終了処理をしていると思いますので、
> 純粋にExcelの終了にかかる時間だったりしないか？ということです。

  タイマーを入れないと２０秒待っても残っています。　しかし、９秒タイマーを入れると９秒
　近くでExcelはプロセスから消えます。