Office không thoát khỏi sau khi tự động hóa Visual Studio máy khách .NET

Các bước để tái tạo hành vi

1. Bắt Visual Studio .NET.

2. Trên menu Tệp, bấm vào Mới, rồi bấm vào Tệp Project. Dưới Visual Basic dự án, chọn Windows Dụng, rồi bấm OK.
   
   Lưu ý Form1 được tạo theo mặc định.

3. Thêm tham chiếu vào Thư viện Microsoft Excel tượng của bạn. Để thực hiện điều này, hãy làm theo các bước sau:
   

   1. Trên menu Project, bấm Thêm Tham chiếu.

   2. Trên tab COM, hãy định vị Thư viện Đối tượng Excel thư viện, rồi bấm Chọn.
      
      Ví dụ Microsoft Excel 2002: Thư viện Đối tượng Microsoft Excel 10.0
      
      Nếu bạn chưa thực hiện việc này, chúng tôi khuyên bạn nên tải xuống và cài đặt Tập hợp Liên hợp Chính (PIAs) Microsoft Office XP Chính.
      
      Để biết thêm thông tin về Office XP, hãy đi đến bài viết sau trong Cơ sở Tri thức Microsoft:
      

      328912 Microsoft Office hợp liên hợp chính (PIAs) XP chính sẵn có để tải xuống
        Ví Microsoft Office Excel 2003: Thư viện Microsoft Excel 11.0

   3. Bấm OK trong hộp thoại Thêm Tham chiếu để chấp nhận lựa chọn của bạn.

4. Trên menu Dạng xem, bấm vào Hộp công cụ, rồi kéo điều khiển Nút vào Form1.

5. Bấm đúp vào Nút1.
   
   Lưu ý Cửa sổ mã của biểu mẫu xuất hiện.

6. Thêm mã sau đây vào đầu Form1.vb:

   Imports Microsoft.Office.Interop
   

7. Thay thế mã sau đây trong cửa sổ mã:

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

   Thay thế mã sau:

   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. Nhấn F5 để chạy ứng dụng.

9. Mở Trình Windows tác vụ. Trong Visual Studio, hiển thị cửa sổ Đầu ra để xem thông báo gỡ lỗi. Bấm vào nút lệnh. Lưu ý rằng một phiên bản của Excel.exe xuất hiện trong danh sách Quy trình.

10. Phiên bản của Excel vẫn chạy trong danh sách tác vụ ngay cả khi ứng dụng đã ngủ xong. Đóng hộp thoại và lưu ý rằng Excel sẽ không còn xuất hiện trong danh sách Quy trình.

11. Khi bạn thực hiện các bước trong mục "Độ phân giải", ứng dụng Office thoát sau khi ứng dụng phát hành biến cuối cùng. Thay thế hàm trong Bước 5 bằng cách sử dụng mã sau đây:

      Private Sub NAR(ByVal o As Object)
        Try
          While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
          End While
        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
    

Nếu bạn đang sử dụng Visual C# .NET, hãy tham khảo mã cho hàm NAR():

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

Lưu ý Bắt đầu từ .NET Framework 2.0, bạn có thể sử dụng System.Runtime.InteropServices.Marsobices.FinalReleaseComObject thay vì trong lúc gọi theo vòng lặp System.Runtime.InteropServices.Marshal.ReleaseComObject để đạt được kết quả tương tự.
 

Gỡ rối

Chú ý Nếu bạn làm theo các bước được mô tả trong phần "Các bước để Tái tạo Hành vi" và máy chủ vẫn không tắt, bạn có thể sử dụng GC. Collect() và GC. Phương pháp WaitForPendingFinalizers() sau khi bạn thả đối tượng cuối cùng. Vì thời gian chạy thực hiện thu thập rác trên RCW, nên GC. Phương pháp Collect() buộc bộ thu thập rác chạy và có thể giải phóng bất kỳ tham chiếu nào mà RCW vẫn có. The GC. Collect() method tries to reclaim the maximum memory that is available. Lưu ý rằng điều này không đảm bảo rằng tất cả bộ nhớ sẽ được thu hồi.

Áp dụng cho

Bài viết này cũng áp dụng cho:

• Microsoft Visual Basic .NET (tất cả các phiên bản)

• Microsoft Visual C# .NET (tất cả phiên bản)

• Microsoft Office 2016 (tất cả phiên bản)

• Microsoft Office 2013 (tất cả phiên bản)