ÅöáñìïãÞ ôïõ Office äåí êëåßíåé ìåôÜ áõôïìáôéóìïý áðü ðñüãñáììá-ðåëÜôç ôïõ Visual Studio .NET

• Äçëþóôå ôï êÜèå áíôéêåßìåíï ùò ìéá íÝá ìåôáâëçôÞ ðåñéâÜëëïíôïò. Ãéá ðáñÜäåéãìá, áëëÜîôå ôçí áêüëïõèç ãñáììÞ êþäéêá

  oBook = oExcel.Workbooks.Add()
  					

  ìå ôçí áêüëïõèç:

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

• ×ñçóéìïðïéÞóôåSystem.Runtime.InteropServices.Marshal.ReleaseComObject¼ôáí Ý÷åôå ïëïêëçñþóåé ÷ñçóéìïðïéþíôáò Ýíá áíôéêåßìåíï. ÁõôÞ ç áíáöïñÜ ìÝôñçóç áðü ôï RCW ìåéþíåôáé.
• Ãéá íá áðåëåõèåñþóåôå ôçí áíáöïñÜ óôç ìåôáâëçôÞ, ïñßóåôå ßóç ìå ôç ìåôáâëçôÞnothingÞNULL.
• ×ñÞóç ôïõÊÜíôå Ýîïäïç ìÝèïäïò óôï áíôéêåßìåíï åöáñìïãÞò ôïõ Office, ãéá íá åíçìåñþóåôå ôï äéáêïìéóôÞ ãéá íá ôåñìáôßóåôå ôç ëåéôïõñãßá.

ÅðéóôñïöÞ óôçí áñ÷Þ

ÂÞìáôá ãéá ôçí áíáðáñáãùãÞ ôçò óõìðåñéöïñÜò

1. ÎåêéíÞóôå ôï Visual Studio .NET.
2. Óôï äéáêïìéóôÞFILEìåíïý, êÜíôå êëéê óôï êïõìðßÍÝáêáé, óôç óõíÝ÷åéá, êÜíôå êëéê óôï êïõìðßÔï Ýñãï. under¸ñãá ôçò Visual BasicÅðéëïãÞÅöáñìïãÞ ôùí Windowsêáé êÜíôå êëéê óôï êïõìðßOk. Öüñìá1 äçìéïõñãåßôáé áðü ðñïåðéëïãÞ.
3. ÐñïóèÝóôå ìéá áíáöïñÜ ãéá ôïÂéâëéïèÞêç áíôéêåéìÝíùí ôïõ Microsoft Excel. Ãéá íá ôï êÜíåôå áõôü, áêïëïõèÞóôå ôá åîÞò âÞìáôá: (Use the tools in the Windows Recovery Environment to repair Windows Vista. To do this, follow these steps:):
   1. Óôï äéáêïìéóôÞÔï Ýñãïìåíïý, êÜíôå êëéê óôï êïõìðßÐñïóèÞêç áíáöïñÜò.
   2. Óôï äéáêïìéóôÞComêáñôÝëá, åíôïðßóôå ôç âéâëéïèÞêç áíôéêåéìÝíùí ãéá ôï Excel êáé, óôç óõíÝ÷åéá, êÜíôå êëéê óôï êïõìðßÅðéëïãÞ.
      
      Ãéá ôï Excel 2002:ÂéâëéïèÞêç áíôéêåéìÝíùí ôïõ Microsoft Excel 10.0
      
      ÓÇÌÅÉÙÓÇÅÜí äåí ôï Ý÷åôå Þäç êÜíåé, óõíéóôÜôáé íá ëÞøç êáé íá åãêáôáóôÞóåôå ôï Microsoft Office XP Primary Interop óõãêñïôÞóåéò (óôïé÷åßá PIA).Ãéá ðñüóèåôåò ðëçñïöïñßåò ó÷åôéêÜ ìå ôá óôïé÷åßá PIA ôïõ Office XP, êÜíôå êëéê óôïí áñéèìü ôïõ Üñèñïõ ðáñáêÜôù ãéá íá ðñïâÜëåôå ôï Üñèñï ôçò ÃíùóéáêÞò ÂÜóçò ôçò Microsoft:
      328912  (http://support.microsoft.com/kb/328912/ ) Ôá êýñéá óýíïëá äéáëåéôïõñãéêüôçôáò (PIA) ôùí Microsoft Office XP åßíáé äéáèÝóéìá ãéá ëÞøç
      Ãéá ôï Microsoft Office Excel 2003:ÂéâëéïèÞêç áíôéêåéìÝíùí ôïõ Microsoft Excel 11.0
   3. ÊÜíôå êëéêOkÓôïÐñïóèÞêç áíáöïñÝòðáñÜèõñï äéáëüãïõ ãéá íá áðïäå÷èåßôå ôéò åðéëïãÝò óáò.
4. Óôï äéáêïìéóôÞViewìåíïý, êÜíôå êëéê óôï êïõìðßÅñãáëåéïèÞêç, êáé óôç óõíÝ÷åéá óýñåôå ìéáÊïõìð߸ëåã÷ïò óå Öüñìá1.
5. Äéðëü êëéêButton1. Åìöáíßæåôáé ôï ðáñÜèõñï êþäéêá ôçò öüñìáò.
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 óôï óôïÄéáäéêáóßåòËßóôá (List).
10. Ôçí ðåñßïäï ëåéôïõñãßáò ôïõ Excel åîáêïëïõèåß íá åêôåëåßôáé óôç ëßóôá åñãáóéþí áêüìç êáé ìåôÜ ôçí ïëïêëÞñùóç ôçò åöáñìïãÞò óå êáôÜóôáóç áíáóôïëÞò ëåéôïõñãßáò. Close the dialog box and note that Excel no longer appears in theÄéáäéêáóßåòËßóôá (List).
11. When you implement the steps in the "Resolution" section, the Office application quits after it releases the last variable. Replace the function in Step 5 with the following code:

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

ÅðéóôñïöÞ óôçí áñ÷Þ

ÁÍÔÉÌÅÔÙÐÉÓÇ ÐÑÏÂËÇÌÁÔÙÍ

ÅðéóôñïöÞ óôçí áñ÷Þ