none
VSTO 生成EXCEL文档级项目。为什么这个事件发生后、直接退出EXCEL?谢谢! RRS feed

  • 问题

  • 在VS2010中新建一个EXCEL文档级项目,来测试CHEANGE事件,为什么下面的代码运行后,直接退出EXCEL?

    Public Class Sheet1
    
      Private Sub Sheet1_Change(ByVal Target As Microsoft.Office.Interop.Excel.Range) Handles Me.Change
        If Target.Count <> 1 Then Exit Sub
        If Target.Row > 1 And Target.Column = 2 Then Target.Value = "OK"
      End Sub
    End Class
    2011年3月20日 12:07

答案

  • 你好

    或者你可以嘗試使用以下的Code 去Release 這個Excel Object

    E.G.

    在你的Code 的最後面加入

    ReleaseExcelObject(Target )

        Private Shared Sub ReleaseExcelObject(ByVal obj As Object)

            Try

                System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

                obj = Nothing

            Catch ex As Exception

                obj = Nothing

            Finally

                GC.Collect()

            End Try

        End Sub

     

    Please correct me if my concept is wrong


    Chi
    2011年3月20日 20:58
    版主