Aplikace sady Office nen� ukon�ena po automatizace z aplikace Visual Studio.NET klienta

• Ka�d� objekt Deklarujte jako novou prom�nnou. Nap��klad zm�nit. n�sleduj�c� ��dek k�du

  oBook = oExcel.Workbooks.Add()
  					

  n�sleduj�c�:

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

• Pou�it� System.Runtime.InteropServices.Marshal.ReleaseComObject Po dokon�en� pomoc� objektu. Toto sn�� referen�n� po�et RCW.
• Chcete-li uvolnit odkaz na prom�nnou, nastavte prom�nnou rovno Nic nebo Null.
• Pou��t Ukon�it metody objektu aplikace Office ov��en� pravosti serveru vypnete.

Zp�t nahoru | Dejte n�m zp�tnou vazbu

Kroky pro reprodukci tohoto chov�n�

1. Spus�te aplikaci Visual Studio.NET.
2. V Soubor nab�dky, klepn�te na tla��tko Nov� a potom klepn�te na tla��tko Projekt. Ve skupinov�m r�me�ku Projekty jazyka Visual Basic, vyberte Aplikace syst�mu Windows a klepn�te na tla��tko OK. Ve v�choz�m nastaven� je vytvo�en formul�� Form1.
3. P�idat odkaz na Knihovna objekt� Microsoft Excel. Chcete-li to prov�st, postupujte takto:
   1. V Projekt nab�dky, klepn�te na tla��tko P�idat odkaz.
   2. V COM karta, vyhledejte knihovnu objekt� aplikace Excel a klepn�te na tla��tko Vybrat.
      
      Aplikace Microsoft Excel 2002: Knihovna objekt� Microsoft Excel 10.0
      
      Pozn�mka: Pokud jste tak ji� neu�inili, je vhodn�, St�hn�te a nainstalujte Microsoft Office XP prim�rn� defini�n� sestaven� (PIA). Dal�� informace o sestaven�ch PIA sady Office XP z�sk�te klepnut�m na n�sleduj�c� ��slo �l�nku datab�ze Microsoft Knowledge Base:
      328912

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

      Microsoft Office XP prim�rn� sestaven� InterOp (PIA) jsou k dispozici ke sta�en�
      Pro aplikaci Microsoft Office Excel 2003: Knihovna objekt� Microsoft Excel 11.0
   3. Klepn�te na tla��tko OK v P�idat odkazy Dialogov� okno potvr�te v�b�r.
4. V Zobrazen� nab�dky, klepn�te na tla��tko Panel n�stroj�a pak p�et�hn�te Tla��tko ��zen� na Formul��1.
5. Poklepejte na polo�ku Button1. Zobraz� se okno k�d pro formul��.
6. N�sleduj�c� k�d p�idejte na za��tek Form1.vb:

   Imports Microsoft.Office.Interop
   					

7. Nahra�te n�sleduj�c� k�d v okn� K�d

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

   s n�sleduj�c�m:

   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. Stisknut�m kl�vesy F5 pro spu�t�n� aplikace.
9. Otev�ete Spr�vce �loh syst�mu Windows. V aplikaci Visual Studio, zobraz� V�stupn� okno zobrazit zpr�vy lad�n�. Klepn�te na p��kazov� tla��tko a V�imn�te si, �e instance Excel.exe, zobraz� se v Procesy seznam.
10. Instance aplikace Excel st�le spou�t� v seznamu �kol� i Po dokon�en� aplikace v re�imu sp�nku. Zav�ete dialogov� okno a V�imn�te si, �e Aplikace Excel nebude ji� zobrazena v Procesy seznam.
11. P�i implementaci kroky v ��sti "�e�en�", ukon�en� aplikace sady Office po jeho vyd�n� posledn� prom�nn�. Nahradit funkce v kroku 5 s n�sleduj�c�m k�dem:

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

Poradce p�i pot��ch

Zp�t nahoru | Dejte n�m zp�tnou vazbu