Visual Studio .NET クライアントで自動化した Office アプリケーションが終了しない

• 各オブジェクトを新しい変数として宣言しています。たとえば、コードに次の行があるとします。

  oBook = oExcel.Workbooks.Add()
  					

  この行を次のように変更します。

  dim oBooks as Excel.Workbooks
  oBooks = oExcel.Workbooks
  oBook = oBooks.Add()
  					

• オブジェクトの使用が終了したら、System.Runtime.InteropServices.Marshal.ReleaseComObject を使用します。このメソッドによって RCW の参照カウントを減らします。
• 変数を Nothing または Null に設定して、変数への参照を解放します。
• Office アプリケーション オブジェクトの Quit メソッドを使用して、サーバーにシャットダウンするように指示します。

先頭へ戻る

現象の再現手順

1. Visual Studio .NET を起動します。
2. [ファイル] メニューの [新規作成] をポイントし、[プロジェクト] をクリックします。[Visual Basic プロジェクト] をクリックし、[Windows アプリケーション] をクリックして、[OK] をクリックします。Form1 がデフォルトで作成されます。
3. Microsoft Excel Object Library への参照を追加します。この操作を行うには、以下の手順を実行します。
   1. [プロジェクト] メニューの [参照の追加] をクリックします。
   2. [COM] タブで、Excel 用のオブジェクト ライブラリを探してクリックし、[選択] をクリックします。
      
      Microsoft Excel 2002 の場合 : Microsoft Excel 10.0 Object Library
      
      注 : Microsoft Office XP プライマリ相互運用機能アセンブリ (PIA) をまだ入手していない場合は、ダウンロードしてインストールすることをお勧めします。 Office XP 用の PIA の関連情報を参照するには、以下の「サポート技術情報」 (Microsoft Knowledge Base) をクリックしてください。
      328912? (http://support.microsoft.com/kb/328912/ ) [INFO] Microsoft Office XP 用の PIA のダウンロード
      Microsoft Office Excel 2003 の場合 : Microsoft Excel 11.0 Object Library
   3. [参照の追加] ダイアログ ボックスで [OK] をクリックして選択内容を確定します。
4. [表示] メニューの [ツールボックス] をクリックし、Button コントロールを Form1 にドラッグします。
5. [Button1] をダブルクリックします。フォームのコード ウィンドウが表示されます。
6. Form1.vb の先頭に次のコードを追加します。

   Imports Microsoft.Office.Interop
   					

7. コード ウィンドウには、次のコードが表示されています。

       Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
       End Sub
   					

   これを次のコードで置き換えます。

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim oApp As New Excel.Application()
       Dim oBook As Excel.Workbook = oApp.Workbooks.Add
       Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
       oSheet = Nothing
       oBook.Close(False)
       oBook = Nothing
       oApp.Quit()
       oApp = Nothing
       Debug.WriteLine("Sleeping...")
       System.Threading.Thread.Sleep(5000)
       Debug.WriteLine("End Excel")
   End Sub
   					

8. F5 キーを押してアプリケーションを実行します。
9. Windows タスク マネージャを起動します。Visual Studio で [出力] ウィンドウを表示して、デバッグ メッセージを参照します。コマンド ボタンをクリックすると、Excel.exe のインスタンスが [プロセス] タブの一覧に表示されることを確認します。
10. アプリケーションが休止を終了した後も、タスク マネージャの一覧で Excel のインスタンスが実行されています。ダイアログ ボックスを閉じると、Excel が [プロセス] タブの一覧に表示されなくなることを確認します。
11. 「解決方法」に記載した手順を実行すると、Office アプリケーションは最後の変数の解放後、終了します。手順 5. の関数を次のコードで置き換えます。

      Private Sub NAR(ByVal o As Object)
        Try
          System.Runtime.InteropServices.Marshal.ReleaseComObject(o)
        Catch
        Finally
          o = Nothing
        End Try
      End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oApp As New Excel.Application()
        Dim oBooks As Excel.Workbooks = oApp.Workbooks
        Dim oBook As Excel.Workbook = oBooks.Add
        Dim oSheet As Excel.Worksheet = oApp.ActiveSheet
        NAR(oSheet)
        oBook.Close(False)
        NAR(oBook)
        NAR(oBooks)
        oApp.Quit()
        NAR(oApp)
        Debug.WriteLine("Sleeping...")
        System.Threading.Thread.Sleep(5000)
        Debug.WriteLine("End Excel")
    End Sub
    					

private void NAR(object o)
{
    try 
    {
        System.Runtime.InteropServices.Marshal.ReleaseComObject(o);
    }
    catch {}
    finally 
    {
        o = null;
    }
}

先頭へ戻る

トラブルシューティング

先頭へ戻る