Visual Studio .NET ??????? ?? ??????? ?? ??? Office ????????? ?? ???? ????

• ?? ???????? ???? ?? ?? ?? ??? ??? ????? ????? ?????? ?? ???, ??? ?? ????? ?????? ?? ?????

  oBook = oExcel.Workbooks.Add()
  					

  ?????:

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

• ?????System.Runtime.InteropServices.Marshal.ReleaseComObject?? ?? ?????? ?? ??? ???????? ?? ????? ?? ??? ??? ?? decrements RCW ?? ???? ?? ?????? ???
• ????? ?? ??? ?? ?? ??????, ??? ?? ????? ???? ?? ?????? ???? ????,??.
• ????????? ???????? ???? ???? ?? ??? ????? ?? ????? ???? ?? ??? Office ????????? ???????? ?? ?????? ???

????? ?? ???? ???? | ??????????? ???

??????? ?? ???: ??????? ???? ?? ??? ???

1. Visual Studio .NET ?? ??????? ?????
2. ????? ???????????? ??,????? ????-????? ????, ?? ???? ????????????. ?? ???????Visual Basic ???????????? ????Windows ??????????? ????? ????OK. Form1 ???????? ??? ?? ???? ??..
3. ???? ?????? ??????Microsoft Excel ???????? ?????????. ??? ???? ?? ???, ????? ????? ?? ???? ????::
   1. ????? ????????????????? ??,?????? ??????.
   2. ????? ????COM??? ???, Excel ?? ??? ???????? ????????? ?? ?????? ?????, ?? ???? ??? ????? ??????? ????.
      
      Microsoft Excel 2002: ?? ???Microsoft Excel 10.0 ???????? ?????????
      
      ???:??? ???? ??? ??? ?? ????, ?? ???????? ?? ?? ?? ??????? ???? ?? Microsoft Office XP ???????? Interop Assemblies (PIAs) ?? ??????? ?????Office XP PIAs ?? ???? ??? ???????? ??????? ?? ??? Microsoft ???????? ??? ???? ????? ?? ??? ????? ???? ?????? ?? ????? ????:
      328912

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

      Microsoft Office XP ???????? ?????? assemblies (PIAs) ??????? ???? ?? ??? ?????? ???
      Microsoft Office Excel 2003: ?? ???Microsoft Excel 11.0 ???????? ?????????
   3. ????? ????,OK??????????? ??????????? ????? ???? ??? ?? ??????? ???? ?? ??? ???
4. ????? ????????????? ??,????? ?????, ?? ??? ????? ?????Form1 ?? ????????? ?????
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 ?? ??????? ??? ????? ????????????????? ????
10. Excel ?? ?????? ??? ?? ???? ????? ???? ??? ?? ?? ?? sleeping ????????? ?? ???? ??? ????? ????? ??? ???? ?? ??? ???? ?? Excel ?? ??? ????? ???? ????????????????? ????
11. ?? ?? ??? "??????" ??? ??? ??????????? ?? ??, ?? Office ????????? ???? ?? ????? ?? releases ?? ???? ??? 5 ??? ?????? ????? ??? ?? ???????????? ????:

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

?????? ??????

????? ?? ???? ???? | ??????????? ???