Office uygulamasý Visual Studio. NET'in istemciden Otomasyon sonra çýkýn

• Her nesne için yeni bir deðiþken olarak bildirir. Örneðin, <a1>Kod</a1>

  oBook = oExcel.Workbooks.Add()
  					

  aþaðýdaki:

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

• Bir nesne kullanarak bitirdiðinizde System.Runtime.InteropServices.Marshal.ReleaseComObject kullanýn. Baþvuru sayýsý RCW bu azaltýr.
• Deðiþken için baþvuru serbest býrakmak için <a0></a0>, deðiþken eþittir Nothing veya boþ olarak ayarlayýn.
• Sunucuyu kapanmaya bildirmek için Office uygulama nesnesi <a1>quit</a1> yöntemini kullanýn.

Üste

Davranýþý Yeniden Oluþturma Adýmlarý

1. Visual Studio .NET'i baþlatýn.
2. Dosya menüsünde Yeni'yi týklatýn ve Project ' ý týklatýn. Visual Basic Projeleri altýnda Windows Application seçin ve Tamam ' ý týklatýn. Varsayýlan olarak, Form1 oluþturulur.
3. Microsoft Excel nesne kitaplýðý ' na bir baþvuru ekleyin. Bunu yapmak için þu adýmlarý izleyin:
   1. Proje) menüsünde Add Reference ' ý týklatýn.
   2. COM sekmesinde, Excel nesne kitaplýðý bulun ve sonra da <a2>Seç</a2>'i týklatýn.
      
      Microsoft Excel 2002'de: Microsoft Excel 10.0 Nesne Kitaplýðý
      
      Not Önceden yapmadýysanýz, karþýdan yükleyin ve Microsoft Office XP Primary ýnterop Assemblies (Pýa) yüklemeniz önerilir. Office XP Pýa hakkýnda'ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aþaðýdaki makale numarasýný týklatýn:
      328912  (http://support.microsoft.com/kb/328912/ ) Microsoft Office XP ana birlikte çalýþma derlemeleri (PIA) karþýdan yüklenebilir
      Microsoft Excel 11.0 Nesne Kitaplýðý için Microsoft Office Excel 2003:
   3. Seçimlerinizi kabul etmek için Tamam <a0>Baþvuru Ekle</a0> iletiþim kutusunda týklatýn.
4. Görünüm menüsünden araç kutusu ' nu týklatýn ve sonra bir Düðme Form1 sürükleyip.
5. Button1</a1> çift týklatýn. Formun kod penceresi görüntülenir.
6. Aþaðýdaki kodu Form1.vb en üstüne ekleyin:

   Imports Microsoft.Office.Interop
   					

7. Aþaðýdaki kod kod penceresinde

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

   aþaðýdaki:

   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. Uygulamayý çalýþtýrmak için F5 tuþuna basýn.
9. Görev Yöneticisi'ni açýn. Visual Studio'da hata ayýklama iletileri görmek için çýktý penceresini görüntüleyin. Komut düðmesini týklatýn ve bir örneðini Excel.exe iþlemler listesinde göründüðünü unutmayýn.
10. Uyku uygulama bile tamamlandýktan sonra Excel örneði, görev listesinde hala çalýþýr. Iletiþim kutusunu kapatmak ve Excel artýk iþlemler listesinde göründüðünü unutmayýn.
11. "Çözüm" bölümünde adýmlarý uygulamak için Office uygulamasý, son deðiþken yayýmlandýktan sonra'nden çýkar. Adým 5'te iþlevi aþaðýdaki kodla deðiþtirin:

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

Üste

SORUN GÝDERME

Üste