Office не излиза след автоматизация от Visual Studio .NET клиент

Стъпки за възпроизвеждане на поведението

1. Стартирайте Visual Studio .NET.

2. В менюто Файл щракнете върху Създаване и след това щракнете върху Project. Под Visual Basic проекти изберете Windows приложение и след това щракнете върху OK.
   
   Забележка Формуляр1 се създава по подразбиране.

3. Добавете препратка към библиотеката с Microsoft Excel обекти. За да направите това, изпълнете следните стъпки:
   

   1. В менюто Project щракнете върху Добавяне на препратка.

   2. В раздела COM намерете библиотеката с обекти за Excel и след това щракнете върху Избор.
      
      За Microsoft Excel 2002: Microsoft Excel 10.0 Object LibraryNote
      
      Ако все още не сте направили това, ви препоръчваме да изтеглите и инсталирате основните междуопрочни асемблии на Microsoft Office XP (PIAs).
      
      За повече информация относно Office XP PIAs отидете на следната статия в базата знания на Microsoft:
      

      328912 Microsoft Office основни interop асемблирания на XP (PIAs) са налични за изтегляне
        За Microsoft Office Excel 2003: Microsoft Excel 11.0 Библиотека с обекти

   3. Щракнете върху OK в диалоговия прозорец Добавяне на препратки, за да приемете избора си.

4. В менюто Изглед щракнете върху Кутия с инструменти и след това плъзнете контрола на бутон във Формуляр1.

5. Щракнете двукратно върху Бутон1.
   
   Забележка Показва се прозорецът с код за формуляра.

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

Ако използвате Visual C# .NET, прегледайте кода за функцията NAR():

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

Забележка: Започвайки от .NET Framework (платформа) 2.0, можете да използвате System.Runtime.InteropServices.Marshal.FinalReleaseComObject вместо при циклична извикване System.Runtime.interopServices.Marshal.ReleaseComObject, за да постигнете същия резултат.
 

Отстраняване на неизправности

Забележка Ако следвате стъпките, описани в раздела "Стъпки за възпроизвеждане на поведението", а сървърът все още не се изключва, можете да използвате GC. Събира() метода и GC. Метод waitForPendingFinalizers(), след като освободите последния обект. Тъй като runtime извършва събирането на отпадъци в RCW, GC. Методът за събиране() принуждава събирателя на отпадъци да се изпълнява и може да освободи всички препратки, които все още има RCW. The GC. Методът Collect() се опитва да си възстановя максималната налична памет. Обърнете внимание, че това не гарантира, че цялата памет ще бъде възвратена.

Отнася се за

Тази статия се отнася и за:

• Microsoft Visual Basic .NET (всички издания)

• Microsoft Visual C# .NET (всички издания)

• Microsoft Office 2016 г. (всички издания)

• Microsoft Office 2013 (всички издания)