Aplikasi Office tidak berhenti setelah otomatisasi dari Visual Studio.NET klien

• Menyatakan setiap objek sebagai variabel baru. Misalnya, mengubah baris kode berikut

  oBook = oExcel.Workbooks.Add()
  					

  dengan berikut:

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

• Penggunaan System.runtime.InteropServices.Marshal.ReleaseComObject Ketika Anda selesai menggunakan objek. Decrements ini referensi Bangsawan dari RCW.
• Untuk mengeluarkan referensi ke variabel, tetapkan variabel sama dengan Tidak ada atau Null.
• Penggunaan Berhenti metode dari objek aplikasi Office untuk memberitahu server untuk Matikan.

Kembali ke atas | Berikan Masukan

Langkah-langkah mereproduksi perilaku

1. Mulai Visual Studio.NET.
2. Pada Berkas menu, klik Baru kemudian klik Project. Di bawah Proyek-proyek Visual Basic, pilih Aplikasi Windows dan klik Oke. Form1 dibuat secara default.
3. Menambahkan referensi ke Perpustakaan objek Microsoft Excel. Untuk melakukannya, ikuti langkah-langkah berikut:
   1. Pada Project menu, klik Menambahkan referensi.
   2. Pada COM tab, mencari perpustakaan objek untuk Excel, dan kemudian klik Pilih.
      
      Microsoft Excel 2002: Perpustakaan objek Microsoft Excel 10,0
      
      Catatan Jika Anda tidak melakukannya, dianjurkan bahwa Anda men-download dan menginstal Microsoft Office XP utama Interop Majelis (PIAs). Untuk informasi tambahan tentang Office XP PIAs, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
      328912

      (http://support.microsoft.com/kb/328912/ )

      Microsoft Office XP utama interop Majelis (PIAs) tersedia untuk di-download
      Untuk Microsoft Office Excel 2003: Perpustakaan objek Microsoft Excel 11,0
   3. Klik Oke dalam Menambahkan referensi kotak dialog untuk menerima pilihan Anda.
4. Pada Lihat menu, klik Toolbox, dan kemudian tarik Tombol kontrol ke Form1.
5. Klik dua kali Button1. Jendela kode untuk bentuk muncul.
6. Menambahkan kode berikut ke atas Form1.vb:

   Imports Microsoft.Office.Interop
   					

7. Ganti kode berikut dalam jendela kode

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

   dengan berikut:

   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. Tekan F5 untuk menjalankan aplikasi.
9. Membuka Windows Task Manager. Dalam Visual Studio, menampilkan Keluaran jendela untuk melihat pesan debug. Klik tombol perintah dan catatan yang contoh Excel.exe muncul di Proses daftar.
10. Contoh Excel masih berjalan dalam daftar tugas bahkan Setelah aplikasi selesai tidur. Tutup kotak dialog dan perhatikan bahwa Excel tidak lagi muncul dalam Proses daftar.
11. Ketika Anda menerapkan langkah-langkah di bagian "Pemecahan masalah", aplikasi Office berhenti setelah rilis terakhir variabel. Menggantikan fungsi dalam langkah 5 dengan kode berikut:

      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;
    }
}

Pemecahan Masalah

Kembali ke atas | Berikan Masukan